Aide sur fonction Find VBA

Bonsoir les pros,

J'aurais besoin d'un petit coup de pouce si possible.

J'ai un petit bout de code qui me permet de trouver une chaine specifique ( exemple un prénom) dans une feuille.

(A l'aide de find ) --> Voir ci après:

Set cel = Workbooks("Archive").Sheets("Donnees").Cells.Find(prenoms, LookIn:=xlValues, SearchOrder:=xlByRows, MatchCase:=False)

Jusque la pas de soucis !

Admettons que ce prénom se trouve en A1

Je voudrais pouvoir incrementer la valeur dans la case adjacente (A2) .

Je n'arrive pas à trouver la syntaxe exacte pour "décaler" d'une colonne et écrire en vba dans cette colonne

(Autrement dit, recupérer le row du prénom cherché, garder le row mais ajouter + 1 a la column, pour pouvoir bricoler dans la case adjacente)

Je sais pas si j'ai été assez clair ....

Dans l'attente de vous relire.

Bien à vous.

Gilles

bonjour,

si la correspondance est trouvée cel est un objet range qui fait référence à la cellule qui contient la valeur cherchée.

cel.row te donne la ligne de la cellule, cel.column la colonne, cel.address, l'adresse, cel.offset(0,1) fait référence à la cellule une colonne à droite etc....

pour ce que tu veux faire

cel.offset(0,1)=cel.offset(0,1)+1

Bonjour,

If not cel is nothing then
    cel.offset(,1)=cel.offset(,1)+1
end if

eric

Edit : salut h2so4. Plus lent mais j'en ai mis plus

@eriiic, bonsoir,

(...) mais j'en ai mis plus

c'est à cela que l'on reconnait les pros !

Merci les pros,

ça fonctionne parfaitement !

Bonne soirée

Et juste un petit complément d'info...

Comment récupérer dans une variable, la valeur de la cellule incrémentée?

Merci encore

tu n'as pas dû chercher longtemps...
a=cel.offset(0,1).value
eric

merci bien.

Tout dépend de ce que tu appelles longtemps...

ça parait simple quand on sait !