RECHERCHER :
COMMUNAUTE MP
Identifiez vous ...
Devenir Membre
J'ai oublié mon MDP
DOMAINE MP
Bavardages
Langages Généraux
Langages Web
Langages DotNet
Autres langages
Dev. Jeux Video
Sécurité
Sys. Exploitation
Graphismes
Logiciels
Réseaux
Bases de données
Méthodologies
Emplois High-tech
Aide juridique
Articles juridiques
FORUM
Index des forums
Ajouter un sujet
Rechercher sujet
Contact Responsable
Devenir modérateur
CHAT MP IRC
Votre pseudo ...
Serv: irc.irc-land.org
Chan: #MoteurProg
PARTICIPER
Plus de 3500 emplois.
Rechercher un job
Déposez votre CV
Emplois High-tech

Visiteur MP

 Fonction RANG

Forum : VISUAL BASIC
Sous Catégorie : Aucune
Type du sujet : Sujet Normale
FAQ : FAQ VISUAL BASIC

SUIVI DES SUJETS PAR MAIL

SUIVI PAR MAIL INACTIF
RESOLUTION DU SUJET SUJET RESOLU
BLOQUAGE DU SUJET SUJET ACTIF
APPARTENANCE A LA FAQ N'APPARTIENT PAS A LA FAQ


PAGE : [1]

POSTER UN NOUVEAU SUJET REPONDRE A CE SUJET

FORUM VISUAL BASIC

PREMIERE PAGE

PAGE PRECEDENTE

Page précedente

Page suivante

PAGE SUIVANTE

 DERNIERE PAGE
fifisname
Nouveau membre
Inscrit : 25/04/2008
Messages : 16
Message
#152802
Posté le 07/05/08 à 09:32
Bonjour,

J'ai un petit probleme a faire fonctionner la fonction RANG suivante :


Sub rang() For k = 1 To 8 valeur = Cells(1, k).Value plage = Range("A1:H1") classement = Application.WorksheetFunction.Rank(valeur, plage, 1) Cells(2, k).Value = classement Next End Sub


Pouvez-vous m'éclairer ?

Merci d'avance

HAUT DE PAGE

 PROFIL MEMBRE LUI ECRIRE 

Publicité
Inscrit : X
Messages : X
Message
#Aucun

HAUT DE PAGE

   

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique
Avatar de RGI
Inscrit : 21/08/2006
Messages : 1718
Message
#152822
Posté le 07/05/08 à 17:32
Bonjour

Comme ceci

Sub rang()
Dim valeur As Integer
Dim plage As Range
For k = 1 To 8
valeur = Cells(1, k).Value
Set plage = Range("A1:H1")
Cells(2, k).Value = Application.WorksheetFunction.Rank(valeur, plage, 1)
Next
End Sub

salutations

RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley
merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :Imageaprès résolution.

HAUT DE PAGE

 PROFIL MEMBRE LUI ECRIRE 

fifisname
Nouveau membre
Inscrit : 25/04/2008
Messages : 16
Message
#153011
Posté le 13/05/08 à 08:51
Merci beaucoup

HAUT DE PAGE

 PROFIL MEMBRE LUI ECRIRE 
POSTER UN NOUVEAU SUJET REPONDRE A CE SUJET

PREMIERE PAGE

 PAGE PRECEDENTE Page précédente

Page suivante

 PAGE SUIVANTE DERNIERE PAGE

FORUM VISUAL BASIC


    PAGE : [1]



.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.