Bonjour a tous,
J'espere que vous allez bien, moi oui.
Voila, j'ai un petit probleme et je ne sais pas trop comment le resoudre.
Voici le code correspondant
Private Sub VisuCondi_Click()
If TextBox1 = "" Then
MsgBox "Veuillez entrer un Mnémonique", , "Message"
End If
Dim i As Integer
i = 1
line1: If i < 1000 Then
i = i + 1
If TextBox1.Value = Cells(i, "A") Then
Worksheets("Cas enregistrés").Select
Rows.Hidden = True 'L'erreur est ici
Rows.Hidden("i") = False 'et la!
End If
If TextBox1.Value <> Cells(i, "A") Then
GoTo line1
End If
End If
If (i = 1000 And TextBox1 <> "") Then
MsgBox "Ce type de carte n'a pas de conditionnement spécifié, Veuillez appeler la Qualité pour valider le conditionnement "
End If
End Sub
En faite je veux afficher la ligne qui contient la meme valeur que ma textbox1.
Donc voila, ce code n'est surement pas la meilleur solution mais bon, on fait avec ce que l'on connait!!!.
Bonne journée a tous et merci d'avance
A bientot