Microsoft 365 VBA Range. Find. method

Alrives

XLDnaute Nouveau
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
 

Discussions similaires

Statistiques des forums

Discussions
313 316
Messages
2 097 098
Membres
106 836
dernier inscrit
ChristopheDF