Aide sur spinbutton et bouton recherche VBA
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 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.
Bonsoir
Pourquoi ne pas avoir mis un fichier ?
ah bonne idée, je n'y avais pas pensé.
mais je n'arrive pas a inserer le fichier. il est ou le bouton insertion ici ( desolé, je suis nouveau sur ce forum)
-- 05 Mai 2011, 23:24 --
voila, le fichier est joint.
en espérant que je pourrais trouver ici de l'aide
merci pour cette reponse,
ca marche mais:
1. le spinbutton se limite a la dernière ligne. il devrait revenir a la 2è ligne lorsqu'il atteint la premiere case vide. il doit donc faire une boucle.
2. le userform, lorsqu'il est executé, apparait deja avec les données de la 2è ligne. il devrait apparaitre vide pour pouvoir y rajouter des éléments dans la feuille "employes".
3. le bouton recherche n'a pas l'air de marcher. il doit pouvoir effectuer une recherche sur base d'un nom introduit dans le textbox "nom" et afficher le résultat de la ligne correspondante sur le userform.
merci d'avance pour ton aide, deja ca m'aide beaucoup
Bonjour
Quelques corrections
Mais la recherche fonctionne
Bonne journée
merci mille fois, ca marche