Recherche dans un organigramme

Bonjour !

Je souhaite rechercher une liste de personnes dans un organigramme vachement grand, mais j'ai du mal avec mon code VBA...

La liste des gens se situe en colonne 33. Je veux que le programme s'arrête quand il ne trouve pas une personne dans l'organigramme.

On me dit qu'il y a une erreur avec l'utilisation de Nothing mais bon ca me semble correct

Est ce que quelqu'un pourrait m'aider svp

    i = 2

    Do While (Range("A1:X99").Find(Cells(i, 33).Value) <> Nothing) Or (i = 158)
        i = i + 1
    Loop

    MsgBox (i)

Bonjour et sur le forum,

en effet, on ne peut pas écrire = Nothing, ou <> Nothing, on peut seulement dire: Is Nothing, ou Not Is Nothing, ce qui pour toi donnera:

    Do While (Not Range("A1:X99").Find(Cells(i, 33).Value) Is Nothing) Or (i = 158)
        i = i + 1
    Loop

La raison c'est que Find te renvoie un objet, et que quand tu dis Nothing, tu ne compares pas une simple variable, mais tu interroges l'objet, de même que pour affecter un objet à quelque chose, tu utilises Set, ici il faut tester avec Is Nothing

bonjour,

une proposition de correction, je pense que tu t'es trompé(e) dans tes conditions de fin.

i = 2

    Do Until (Range("A1:X99").Find(Cells(i, 33).Value) Is Nothing) Or (i = 158)
        i = i + 1
    Loop

    MsgBox (i)

Bonjour,

Okay c'est bon ca marche et j'ai compris pourquoi. Merci et bonne journée

De rien

Merci d'avoir passé le sujet en résolu