Discussion :

[Cipollini]

Bonjour à tous,

Je suis perplexe face à un problème. J'utilise une macro VBA 6 avec Excel.
Voici mon problème :

Mettons que les cases A1 et A5 aient la valeur "Boom".
Ce code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

 Range(Columns(1),Columns(1)).Find("Boom", lookAt:=xlWhole, SearchDirection:=xlNext).Row

renvoie la valeur 5.

C'est-à-dire qu'il ignore la toute première case de la colonne. Il en va de même si j'avais posé le même problème, mais horizontalement avec Rows. Par contre, si on supprime "Boom" dans la case A5, alors il renvoie effectivement la case 1.

J'ai impérativement besoin de récupérer les coordonnées de la première instance de "Boom", quand elle est sur la première ligne ou colonne (je dois pouvoir utiliser Columns ou Rows dans Range).

Pouvez-vous m'aider? Merci d'avance

[zyhack]

Bonjour

Dans l'aide de Find il est précisé

After Argument de type Variant facultatif. Cellule après laquelle vous souhaitez commencer la recherche. Cela correspond à la position de la cellule active lorsqu'une recherche est effectuée à partir de l'interface utilisateur. Notez que l'argument After doit correspondre à une seule cellule dans la plage. Rappelez-vous que la recherche commence après cette cellule ; la cellule spécifiée n'est pas recherchée jusqu'à ce que la méthode reviennent à cette cellule. Si vous ne spécifiez pas cet argument, la recherche commence après la cellule située dans le coin supérieur gauche de la plage.

donc il faut dire de commencer par la dernière cellule de la plage pour qu'il trouve la première de la manière suivante

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim lastCell As String
 
'Définir quelle est la dernière cellule utilisé dans la colonne A
lastCell = Cells(Rows.Count, 1).End(xlUp).Address
 
'Effectuer la recherche aprés la derniere cellule force à trouver la premiere
msgbox Range("A1:" & lastCell).Find("Boom", After:=Range(lastCell), lookAt:=xlWhole).Row

[Cipollini]

Merci de ta rapidité et de ta réponse Samuel.