Excel VBA

bonjour

S'il vous plait est ce que vous pouvez m'aider ..le programme affiche une erreur d’exécution 9: l'indice n'appartient pas à la sélection

je sais pas il est ou le problème ..merci d'avance

Private Sub Worksheet_Activate()

Dim reference As String, verif As String

reference = InputBox("saissisez une référence:", "Rechercher une référence")

verif = ""

Dim i As Integer

i = 2

Do While Sheets("Recherche").Cells(i, 1) <> ""

If Sheets("Recherche ").Cells(i, 1) Like reference Then

UserForm1.Label11.Caption = Sheets("Recherche").Cells(i, 1).Value

UserForm1.Label2.Caption = Sheets("Recherche").Cells(i, 2).Value

UserForm1.Label5.Caption = Sheets("Recherche").Cells(i, 3).Value

UserForm1.Label6.Caption = Sheets("Recherche").Cells(i, 4).Value

UserForm1.Label7.Caption = Sheets("Recherche").Cells(i, 1).Value

End If

i = i + 1

Loop

End Sub

Bonjour

Si l'onglet se nomme "Recherche", sans espace au bout, ôte l'espace dans cette ligne

If Sheets("Recherche ").Cells(i, 1) Like reference Then

le problème il est pas régler je sais pas pourquoi? en tout cas MERCI Infiniment

Re,

Est ce que le nom de ton onglet est écrit de la même façon (minuscule / majuscule) ?

oui j'ai déjà vérifier que il s'écrit de la même façon

Re,

Place un exemple de ton classeur avec la macro

voila mon classeur

Re,

Vérifie le nom de ta feuille "Recherche" tu as un espace au bout

lMerciiiiiiiiiiiiiiiiii infiniment ta raison