Microsoft 365 VBA Range. Find. method

[Alrives]

Bonjour, c’est mon premier poste, j’espère que quelqu’un pourra m’aider.

J'ai un petit problème avec ce code, je souhaite faire la recherche d’une valeur qui se trouve dans la sheet2 cellule (9,2) dans un range (B2 :Q2) qui se trouve dans la sheet1 et donner comme résultat le numéro de la colonne.

J’ai utilisé ce code, mais j’ai l’erreur suivante : <<Run-time error 1004-Select method of range class failed>>
Je pense que ça a un lien avec le fait que la macro ne tourne pas dans la bonne Sheet, mais je n'ai pas réussi à trouver une solution.
Avez-vous des idées ? Merci d’avance


Sub Button1_Click()

Dim SHT, ShtD As Worksheet

Set SHT = Sheets("Sheet2")
Set ShtD = Sheets("Sheet1")

ShtD.Range("B2:Q2").Find(SHT.Cells(9, 2).Value, MatchCase:=False).Select

Coli = ActiveCell.Column

MsgBox (Coli)
End Sub

 

[Wayki]

Bonjour et bienvenue sur XLD,
Un fichier serait de mise pour vous apporter notre aide,
A +

 

[Cousinhub]

Bonjour,
Sans le Select :

Coli = ShtD.Range("B2:Q2").Find(SHT.Cells(9, 2).Value, MatchCase:=False).Column

Bonne journée

 

[Alrives]

Bonjour,
Sans le Select :

Coli = ShtD.Range("B2:Q2").Find(SHT.Cells(9, 2).Value, MatchCase:=False).Column

Bonne journée

Trop bien!!! ça marche. Un tt grand merci