Petit Pb dans les Variables????

Salut Forum,

Sans grande expèrience en VBA, je me suis "Bidouillé" une petite routine de Recherche ... Mais je ne parviens pas à continuer sur la recherche...

Je voudrai récupérer la valeur de "x" pour poursuivre sur les "x" similaires

Comme avec le "Suivant" de Ctrl+F dans Excel

Si quelqu'un a une Idée ?

Merci d'avance.

A+

Private Sub Button_Rechercher_Click()

If UserForm2.Désignation.Text = "" Then

MsgBox "Vous devez saisir une Recherche", vbCritical

End If

Dim x As Long

ActiveSheet.Activate

For x = 4 To Range("A65535").End(xlUp).Row

If UCase(Range("A" & x)) Like "*" & UCase(UserForm2.Désignation.Value) & "*" Then

GoTo Trouve

Exit For

End If

Next x

GoTo Erreur

Exit Sub

Trouve: LigneActive = x

UserForm2.Désignation.Value = ActiveSheet.Cells(LigneActive, "A").Value

UserForm2.Entrée.Value = ActiveSheet.Cells(LigneActive, "D").Value

UserForm2.Puht.Value = ActiveSheet.Cells(LigneActive, "E").Value

UserForm2.Pvte.Value = ActiveSheet.Cells(LigneActive, "G").Value

UserForm2.Dlc.Value = ActiveSheet.Cells(LigneActive, "J").Value

UserForm2.TextBox_Stock.Value = ActiveSheet.Cells(LigneActive, "F").Value

UserForm2.TextBox_Etat.Value = ActiveSheet.Cells(LigneActive, "I").Value

UserForm2.TextBox_Sortie.Value = ActiveSheet.Cells(LigneActive, "H").Value

Exit Sub

Erreur: MsgBox ("Requête non trouvée !"), vbRetryCancel + vbExclamation

If Response = Retry Then

Désignation.Text = ""

Entrée.Text = ""

Puht.Text = ""

Pvte.Text = ""

Dlc.Text = ""

TextBox_Stock = ""

TextBox_Etat = ""

TextBox_Sortie = ""

Désignation.SetFocus

End If

End Sub

A+

Salut Callou

Je pense que si tu n'as pas reçu de réponse jusqu'à maintenant, c'est que tout bon programmeur qui se respecte n'utilise plus de GOTO. C'est une fonction qui lui sort par les oreilles et c'est tout à fait possible de programmer sans.

Mais ce n'est pas grave, on veut bien t'aider tout de même, mais pour cela, il faudrait que tu insers un exemple avec ta programmation à toi. On se débrouillera pour la structurer autrement.

Alors à bientôt

Dan_de_pic

Salut le forum

Dan_de_Pic, il faut aussi dire que Callou à multiplié les ficelles pour

des sujets similaires, sans avoir marquer [Résolu] ou [Délestage]

sur ses ficelles.

Pour mon compte, je ne sais plus sur quelles ficelles il faut travailler.

Sans rancune particulière

Mytå

P.S. Vidal fait la même chose (Multi-ficelles pour un graphique sans valeur nulle)