Fonction find sur cellules contenant uniquement " "

Y compris Power BI, Power Query et toute autre question en lien avec Excel
Répondre
u
ugojoulin
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 12 novembre 2019
Version d'Excel : 365

Message par ugojoulin » 4 mars 2020, 12:24

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
Avatar du membre
thev
Membre impliqué
Membre impliqué
Messages : 2'682
Appréciations reçues : 225
Inscrit le : 13 juin 2016
Version d'Excel : 2019 FR 64 bits

Message par thev » 4 mars 2020, 13:09

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
u
ugojoulin
Nouveau venu
Nouveau venu
Messages : 4
Inscrit le : 12 novembre 2019
Version d'Excel : 365

Message par ugojoulin » 4 mars 2020, 13:50

Cela fonctionne parfaitement !

Merci beaucoup et bonne fin de journée !

Ugo ::D
Répondre
  • Sujets similaires
    Réponses
    Vues
    Dernier message