Trouver toutes les adresses

[cat]

Bonjour à tous

Je voudrais trouver toutes les adresses dans un tableau qui contiennent la valeur "123", j'aimerais que toutes ces adresses s'affiche dans un msgbox.

Mon code pour l'instant, ne me permet de le faire mais que une par une, alors que je voudrais un msgbox qui me donne toutes les adresses trouvées.

merci d'avance

 

[OnErrorResumeNext]

bonjour cat,

essaie ce code pour tester la plage A1:C15 :

---------------------------------------------------------------------------------
Sub nb123()
Dim Tblo As String
i = 1
For Each c In Range("A1:C15")
If c = 123 Then
Tblo = Tblo & vbLf & c.Address
End If
Next

MsgBox Tblo

End Sub
----------------------------------------------------------------------------------

amicalement

 

[cat]

Merci pour l'astuce

 

[François]

Bonjour OERN

J'examine tout ce qui passe comme code, pour ma plus grande information.

Aurais-tu l'amabilité de me dire ce qu'est "vbLf" (pas trouvé dans l'aide)?

D'avance merci et bonne journée.

François

 

[OnErrorResumeNext]

bonjour François,

visual basic line feed,
je crois mais je n'en suis pas certain à100%. Si quelqu'un sait !!

On rencontre aussi des vbYes, vbNo, vbCr (retour de chariot qui semble remplir la même fonction que vbLf) ....

amicalement

 

[cat]

Suite à cette discussion, j'ai fait une petite recherche...

EFfectivement ce sont des constantes VB ou VBA.

On les trouves dans l'explorateur d'objet en recherchant "Constants".

lf = Line feed = saut de ligne
CR = Carriage return = retour chariot

cat

 

[François]

Merci à vous tous, puits de science inépuisables. et infatiguables.

François