Fonction find sur cellules contenant uniquement " "

Bonjour à tous,

Je me permet de poster pour solliciter votre aide sur un sujet simple mais que je n'arrive pas à résoudre.

(Je suis débutant en VBA).

Dans la colonne A, j'ai des blocs d'information précédées d'un chiffre allant de 1 à 10.

Cela ressemble à cela:

1

Info

info

info

info

2

info

info

info

3...

Grace à la fonction find, je recherche les numéros pour ensuite selectionner une partie des infos en dessous.

Ors, dans les infos, on retrouve parfois des numéros de téléphone qui contiennent [1-10] et donc ma fonction find les selectionne au lieu des "headers".

Voici ma formule:

Dim X As Integer
For X = 10 To 1 Step -1

 Worksheets(1).Select
        ActiveSheet.Cells.Find("X").Select
        

Pourriez-vous m'aider à résoudre ce pb ?

Merci beaucoup.

Ugo

Bonjour,

A priori, il faut préciser à la fonction Find que c'est une valeur exacte et ne pas mettre de quotes car X est une variable et non une constante.

ActiveSheet.Cells.Find(X, LookAt:=xlWhole).Select

Cela fonctionne parfaitement !

Merci beaucoup et bonne fin de journée !

Ugo