aide sur spinbutton et bouton recherche VBA

[jonathan00243]

bonjour, voici mon problème: j'ai crée un userform permettant de rajouter des informations sur une feuille excel ( qui elle contient 13 colonnes).
pour le bouton recherche:je voudrais être en mesure de rechercher une donnée en particulier par son et l'afficher sur l'userform. en piece jointe l'image (image userform) de l'userform tel que je l'ai concu. en voici les codes VBA:
------------------------------------------------------------------
Private Sub btnrecherche_Click()
Dim vrech As String
Dim i As Integer
i = 2
vrech = nom
If nom.Value = "" Then
MsgBox "Introduisez un nom SVP!!"
While vrech <> Feuil2.Cells(i, 1)
i = i + 1
Wend
ElseIf vrech = Feuil2.Cells(i, 1) Then
nom = Feuil2.Cells(i, 1)
prenom = Feuil2.Cells(i, 2)
fonction = Feuil2.Cells(i, 3)
matricule = Feuil2.Cells(i, 4)
datedenaissance = Feuil2.Cells(i, 5)
adresse = Feuil2.Cells(i, 6)
codepostal = Feuil2.Cells(i, 7)
ville = Feuil2.Cells(i, 8)
pays = Feuil2.Cells(i, 9)
salairebrutannuel = Feuil2.Cells(i, 10)
numerodetelephone = Feuil2.Cells(i, 11)
numerodegsm = Feuil2.Cells(i, 12)
email = Feuil2.Cells(i, 13)
Else
MsgBox "Aucun résultat"
End If
End Sub
|___________________________________________________________________|
le problème que j'ai c'est que quand j'introduis le nom se trouvant dans la case A2, tout fonctionne normalement mais lorsque j'introduis un nom se trouvant dans une autre case de la colonne A, ca affiche quand meme " aucun résultat", comme ca le ferait pour un nom ne se trouvant pas dans la colonne A. quelqu'un pourrait il m'aider a deceler l'erreur SVP?

pour le spinbutton: voici les codes:
--------------------------------------------------------------------
Private Sub gestion_intialize()
With SpinButton1
.Min = 0
.Max = 1000000
End With
i = 2
While Feuil2.Cells(i, 1) <> ""
i = i + 1
Wend
i = -1
SpinButton1.Value = 1
End Sub
*****************************************************
Private Sub SpinButton1_Change()
SpinButton1.Value = 1
If i < 2 Then
i = 2
SpinButton1.Value = 1
End If
If i > 1 Then
nom = Feuil2.Cells(i, 1)
prenom = Feuil2.Cells(i, 2)
fonction = Feuil2.Cells(i, 3)
matricule = Feuil2.Cells(i, 4)
datedenaissance = Feuil2.Cells(i, 5)
adresse = Feuil2.Cells(i, 6)
codepostal = Feuil2.Cells(i, 7)
ville = Feuil2.Cells(i, 8)
pays = Feuil2.Cells(i, 9)
salairebrutannuel = Feuil2.Cells(i, 10)
numerodetelephone = Feuil2.Cells(i, 11)
numerodegsm = Feuil2.Cells(i, 12)
email = Feuil2.Cells(i, 13)
End If
End Sub
|______________________________________________________________________|
le problème que j'ai est que en cliquant sur les fleches, je n'affiche que les données de la 1ere ligne mais je n'arrive pas a passer a la ligne suivante. comme pour dire: je suis bloqué sur la 1ère ligne.

Besoin d'aide SVP

P.S.: desolé pour ce long message.

 

[jonathan00243]

Re : aide sur spinbutton et bouton recherche VBA

merci, mais le code ne modifie pas, il crée sur une nouvelle ligne

LOL pour " même sujet"