Discussion :

[ComprendreExcel64]

Bonjour,

J'ai dans une colonne plusieurs valeurs contenant une variable(xo, ta, eb, ....) + un numéro (1,2,3,...).
Exemple:
xo1
xo2
xo3
xo4
ta1
ta2
eb1
eb2

Comment puis je faire une macro qui me donne la dernière valeur en fonction de la variable choisis. Si je choisis comme variable "xo"; la derniere valeur est "xo4". Si je choisis comme variable "ta"; la dernière valeur est "ta2"; etc...
Aprés avoir chercher longtemps sur le forum, j'ai trouvé des formules pour trouver l'adresse mais pas la valeur.


Merci pour votre aide.

Bonne journée.

[riaolle]

Bonjour,

Aprés avoir chercher longtemps sur le forum, j'ai trouvé des formules pour trouver l'adresse mais pas la valeur.

Utilise les bonnes propriétés des cellules.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Range("A1").Address           'me retourne l'adresse de A1 : $A$1
Range("A1").Value             'me retourne la valeur de A1

[ComprendreExcel64]

Oui mais celà me retourne que la valeur de A1, je souhaiterai avoir la dernière valeur de la colonne.

J'avais ce code pour trouver l'adresse de la dernière valeur contenant la variable"xo" : Set c = Sheets("CATALOGUE").Range("A:A").Find("xo", LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlPrevious)
Il faudrait l'adapter pour qu'il donne la dernière valeur.

En clair c'est arrivé à trouver la dernière valeur commençant par xo

[riaolle]

Ceci :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Set c = Sheets("CATALOGUE").Range("A:A").Find("xo", LookIn:=xlValues, LookAt:=xlWhole, SearchDirection:=xlPrevious)

Ne te retourne pas l'adresse, mais l'objet cellule.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
c.Value           'retroune la valeur de la cellule c
c.Address          'retourne l'adresse de la cellule c

[Menhir]

Avec entre les deux un petit If Not c Is Nothing Then pour éviter un plantage si la valeur n'est pas dans la liste.