Erreur de compilation

[Lone-wolf]

Bonjour à tous,

J'ai cette erreur: Fonction ou variable attendue (texte plus bas en gras)

Voici le code:

Private Sub Recherche_Click()
' Si rien dans le champ de saisie, alors message d'erreur

If UserForm1.TextBox9.Text = "" Then
GoTo Erreur
End If

' Recherche de la donnée puis selection de la ligne si donnée trouvée

Dim x As Long
Sheets("Feuil1").Activate
' On recherche dans la Ligne 1 colonne A, si la case contient la même valeur que notre champ de recherche
For x = 1 To Range("A65535").End(xlUp).Row
If UCase(Range("A" & x)) Like "*" & UCase(UserForm1.TextBox9.Value) & "*" Then
' Si on a trouvé on va à "Trouve"
GoTo Trouve
Exit For
End If
' Sinon on passe à la ligne suivante
Next x
' Si on ne trouve rien, on va à "Erreur"
GoTo Erreur
Exit Sub

' Recherche trouvée, on retrouve notre programme pour charger le formulaire

Trouve: LigneActive = x

UserForm1.TextBox1.Value = Sheets("Feuil1").Cells(LigneActive, "A").Value
UserForm1.TextBox2.Value = Sheets("Feuil1").Cells(LigneActive, "B").Value
UserForm1.TextBox3.Value = Sheets("Feuil1").Cells(LigneActive, "C").Value
UserForm1.TextBox4.Value = Sheets("Feuil1").Cells(LigneActive, "D").Value
UserForm1.TextBox5.Value = Sheets("Feuil1").Cells(LigneActive, "E").Value
UserForm1.TextBox6.Value = Sheets("Feuil1").Cells(LigneActive, "F").Value
UserForm1.TextBox7.Value = Sheets("Feuil1").Cells(LigneActive, "G").Value
UserForm1.TextBox8.Value = LigneActive

Exit Sub

' Message d'erreur

Erreur: MsgBox ("Il n'y a pas de correspondant !")
Sheets("Feuil1").Activate
Exit Sub
End Sub

Qu'est-ce qu'il faut inscrire à la place?

Merci de votre aide.

 

[youky(BJ)]

Re : Erreur de compilation

Bonsoir,
essaye comme ceci, je ne peux pas tester....
Bruno

Private Sub Recherche_Click()
If UserForm1.TextBox9.Text = "" Then Exit Sub
' Recherche de la donnée puis selection de la ligne si donnée trouvée
Dim x As Long
Sheets("Feuil1").Activate
' On recherche dans la Ligne 1 colonne A, si la case contient la même valeur que notre champ de recherche
For x = 1 To Range("A65535").End(xlUp).Row
If UCase(Range("A" & x)) Like "*" & UCase(UserForm1.TextBox9.Value) & "*" Then
LigneActive = x
UserForm1.TextBox1.Value = Sheets("Feuil1").Cells(LigneActive, "A").Value
UserForm1.TextBox2.Value = Sheets("Feuil1").Cells(LigneActive, "B").Value
UserForm1.TextBox3.Value = Sheets("Feuil1").Cells(LigneActive, "C").Value
UserForm1.TextBox4.Value = Sheets("Feuil1").Cells(LigneActive, "D").Value
UserForm1.TextBox5.Value = Sheets("Feuil1").Cells(LigneActive, "E").Value
UserForm1.TextBox6.Value = Sheets("Feuil1").Cells(LigneActive, "F").Value
UserForm1.TextBox7.Value = Sheets("Feuil1").Cells(LigneActive, "G").Value
UserForm1.TextBox8.Value = LigneActive
Exit Sub
End If
' Sinon on passe à la ligne suivante
Next x
MsgBox ("Il n'y a pas de correspondant !")
Sheets("Feuil1").Activate
End Sub

 

[Lone-wolf]

Re : Erreur de compilation

Bonjour youky(BJ)

merci de m'avoir répondu.

Toujours le même problème.

 

[youky(BJ)]

Re : Erreur de compilation

Alors essaie comme ceci avec retour à la ligne

Trouve:
LigneActive = x

Bruno

 

[Lone-wolf]

Re : Erreur de compilation

Problème résolu, il manquait un bout de code de correspondance
avec LigneActive.

Merci quand même de ton aide.

Bonne soirée.