Discussion :

[Arobase72]

Bonjour à tous,
J'ai un userform dans lequel je peux "rapeller" des données enregsitrées auparavant avec un combo déroulant par "nom".
Je souhaite une fois que je rapelle une "fiche" des données d'un client, voir la fiche du client enregistrée sur la ligne du dessous en cliquant sur le bouton "fiche suivante".
et l'inverse avec un bouton "fiche précédente".
D'avance merci du code pour ces 2 boutons.

[Didier Gonard]

Bonjour,

Ca dépend de ta méthode d’alimentation du combo, mais si ton combo est alimenté, c’est que tu sais pointer sur la ligne voulue à partir de là tu peux raisonner en utilisant la propriété Row d’une cellule de ta ligne sélectionnée, et faire Row +1 ou -1, ou raisonner avec un Offset(row, column) et rafraîchissant ton combo etc…
Le mieux serait d'ailleurs de stocker le N° de ligne du client actif dans une colonne non visible du combo !
cordialement,

Didier

[Arobase72]

Merci de ton aide mais je suis débutant en vba
Comment rédiger le code du bouton avec Row?


Voici un extrait du code du combo qui m'affiche les données du usf

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub ComboBox1_Change()
Dim x As Long
Sheets("Base").Activate
        N°dedossier = Cells(ComboBox1.ListIndex + 2, 1)
        Civilite = Cells(ComboBox1.ListIndex + 2, 2)
        Nom = Cells(ComboBox1.ListIndex + 2, 3)
        Prenom = Cells(ComboBox1.ListIndex + 2, 4)
        adresse = Cells(ComboBox1.ListIndex + 2, 5)
        codepostal = Cells(ComboBox1.ListIndex + 2, 6)
        Commune = Cells(ComboBox1.ListIndex + 2, 7)
etc..
end sub

Merci

[ESVBA]

pas évident de localiser les choses.

le "ComboBox1.ListIndex + 2" doit correspondre à un équivalent de ligne.

Donc avec le bouton "Suivant" on descend de ligne, il faut aller chercher la valeur sur

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ComboBox1.ListIndex + 2  + 1

Code à mettre dans l'évènement "_Clic()" du bouton "Suivant".

Et inversement pour "Précédent".

Alors comment mettre le code ?

• en remodifiant la valeur de la ComboBox, s'il y un évènement "_change" dessus => OK
• en ... tout dépendant du code et évènements.

Et attention à la fin de tableau et au début de tableau.

ESVBA

[Arobase72]

Non je n'y arrive pas si quelqu'un a une idée je joint un extrait de mon userform en piece jointe

Merci d'avance

[ESVBA]

un truc du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub CommandButton14_Click()
    On Error Go Bug
 
    ComboBox1.ListIndex = ComboBox1.ListIndex + 1
    Exit Sub
 
Bug:
    resume next
End Sub

ESVBA