Code Suivant / Precedent

[apdf1]

Bonjour,

J'ai trouver sur le fil de " Fredoud" les boutons "Premier, suivant, précédent et Dernier" avec son code mais j'ai du mal, à les régler, il sont décaler par apport a ma feuille.

Si quelqu'un peut m'aider, je vous remercie par avance et vous souhaite une bonne journée.

Ci-joint mon fichier qui seras plus parlant.

Cordialement

Max

 

[mécano41]

Re : Code Suivant / Precedent

Bonjour,

Si j'ai compris ton problème est la mauvaise sélection dans la feuille...

Dans : Private Sub ComboBox1_Change ce n'est pas ...ListIndex + 1, 1...mais
Worksheets("Feuil1").Cells(ComboBox1.ListIndex + 3, 1).Select

Dans : Private Sub CmdPremier_Click()
Ajoute cela pour la première sélection
Worksheets("Feuil1").Cells(3, 1).Select

Cordialement

EDIT : ce serait plus sympa en mettant ceci dans l'Initialize pour afficher le premier à l'ouverture

    ComboBox1.ListIndex = 0
    Worksheets("Feuil1").Cells(3, 1).Select

EDIT2 : Dans le code du bouton "Suivant" il faut corriger :

Nb = Me.ComboBox1.ListCount - 1
et non ...ListCount + 1

 

[apdf1]

Re : Code Suivant / Precedent

Bonjour Mecano41,

Je te remercie beaucoup et te souhaite un bon We.

Max

 

[mécano41]

Re : Code Suivant / Precedent

Bonsoir,

En regardant un peu le reste du code, j'ai trouvé un certain nombre d'anomalies.

A toutes fins utiles, j'ai corrigé et ajouté quelques améliorations.

- il n'y a plus les messages car les boutons sont désactivés lorsque nécessaire (c'était prévu mais ne fonctionnait pas...)

- tu peux changer le nom de feuille sans créer de problème

- tu peux ajouter ou enlever des lignes ou des colonnes avant le tableau sans créer de problème (la première cellule marquée N° doit rester nommée : TitreNum)

Il y a une bizarrerie : tu as déjà le nom dans la combobox et tu le remets plus bas ... enfin c'est à toi de voir ...


Cordialement

EDIT : Attention, s'il n'y a aucune ligne dans le tableau, il y aura une erreur

 

[apdf1]

Re : Code Suivant / Precedent

Re,

Je te remercie beaucoup du temps passer bonne soirée.

@+

Max

 

[mécano41]

Re : Code Suivant / Precedent

J'ai oublié de supprimer :

Dans / Private Sub CmdPremier_Click()

Worksheets(Feuil1.Name).Range("TitreNum").Offset(1, 0).Select

et dans : Private Sub CmdSuivant_Click() la condition

If Me.ComboBox1.ListIndex <> Me.ComboBox1.ListCount - 1 Then

et

End If

qui ne servent plus à rien...

Cordialement

 

[apdf1]

Re : Code Suivant / Precedent

Bonjour Mecano,

Je te remercie beaucoup, j'ai supprimé tous sa c'est OK

Bon dimanche

Max

 

[laetitia90]

Re : Code Suivant / Precedent

bonjour apdf1,mécano41
peut être plus simple de passer par un SpinButton ??

 

[apdf1]

Re : Code Suivant / Precedent

Bonjour Laetitia,

Sa fait longtemps, je te remercie beaucoup et puisque j'ai la chance de t'avoir sur le fil, n'aurais tu pas dans tes archives un fichier pour envoyer des mails avec pieces jointes je me bagarre avec sa! depuis plusieurs jours.
Dans l'attente de tes nouvelles je te souhaite une bonne journée.

@+

Max

 

[laetitia90]

Re : Code Suivant / Precedent

re;bonjour & merci Pascal🙂🙂🙂
desole pas cela en archives par contre en recherchant sur le forum plein d'exemples
autrement on peu optimiser un peu le code du spinbutton j'ai utiliser Change on peut utiliser SpinDown & SpinUp plus simple si tu as deja choisi un item dans la combo
le code user

Dim t As Variant, y As Byte
Private Sub s1_SpinDown()
If ComboBox1.ListIndex > 0 Then ComboBox1.ListIndex = ComboBox1.ListIndex - 1
End Sub
Private Sub s1_SpinUp()
If ComboBox1.ListIndex < ComboBox1.ListCount - 1 Then ComboBox1.ListIndex = ComboBox1.ListIndex + 1
End Sub
Private Sub UserForm_Initialize()
t = Range("b4:t" & Cells(Rows.Count, 2).End(xlUp).Row): ComboBox1.List = t
ComboBox1.ListIndex = 0
End Sub
Private Sub ComboBox1_Click()
For y = 1 To 10: Controls("T" & y) = ComboBox1.List(ComboBox1.ListIndex, y - 1): Next y
Cells(ComboBox1.ListIndex + 4, 2).Select
End Sub
Private Sub CmdPremier_Click()
ComboBox1.ListIndex = 0
End Sub
Private Sub CmdDernier_Click()
ComboBox1.ListIndex = ComboBox1.ListCount - 1
End Sub

 

[apdf1]

Re : Code Suivant / Precedent

Re,

Je te remercie beaucoup laetitia et bonne fin du WE

@+

Max