VBA - Recherche nom dans une liste (si vrai.. si faux...)

[sourcier08]

Bonjour à tous,

Je suis devant un dilemme. Je n'arrive pas à écrire ma macro qui me permettrait de chercher un nom dans une colonne, dès qu'il est trouvé, j'effectue une action et je m'arrête là.
Mais si je ne le trouve pas, je dois faire une autre action et m'arrêter là aussi.

J'ai commencé à faire ça mais pour la suite, je ne sais pas comment m'y prendre.

For i = 1 to 5000 
If range(i,3) = "johnny" then
range(i,5) = "10"
Exit For
End If
Next

Quelqu'un saurait si utiliser une boucle do until loop ne serait pas mieux dans ce cas et comment on l'utilise. J'ai essayé par là mais sans résultat non plus.


Merci d'avance à celui qui se donnera la peine de m'aider sur ce sujet.

 

[Modeste]

Re : VBA - Recherche nom dans une liste (si vrai.. si faux...)

Bonsoir sourcier08 ... et puis tous les autres,

Et pourquoi ne pas utiliser la fonction NB.SI, plutôt qu'une boucle? Quelque chose comme

If Application.WorksheetFunction.CountIf([A1:A5000], "johnny") = 0 Then ... la chose que tu dois faire, si t'as perdu johnny en route

 

[sourcier08]

Re : VBA - Recherche nom dans une liste (si vrai.. si faux...)

Merci, c'est pas bête.

 

[BOISGONTIER]

Re : VBA - Recherche nom dans une liste (si vrai.. si faux...)

Bonsoir,


Pour connaître la position:

  i = 1
  trouvé = False
  Do
    If Cells(i, 3) = "xxxx" Then trouvé = True Else i = i + 1
  Loop Until trouvé = True Or i = 5000
  If trouvé Then MsgBox "trouvé en; " & i Else MsgBox "pas trouvé"

  p = Application.Match("xxxx", [c:c], 0)
  If Not IsError(p) Then MsgBox "trouvé en:" & p

JB

 

[sourcier08]

Re : VBA - Recherche nom dans une liste (si vrai.. si faux...)

Merci BOISGONTIER pour ce bel exemple.

 

[Modeste]

Re : VBA - Recherche nom dans une liste (si vrai.. si faux...)

Re,
Bonsoir JB,

Pour connaître la position:

c'est pas bête non plus, quand on y pense ... et ça marche certainement mieux que ma proposition, si tu veux indiquer quelque chose dans la même ligne!

Le croirez-vous, j'arrivais avec une Application.WorksheetFunction.Match, après avoir relu le code plus attentivement