Toggle bouton Up et Down modifier direction au clic bouton

Bonjour et bon dimanche à toutes et tous,

je dois en utilisant les deux boutons Toggle, faire en sorte de faire défiler en cellule G8 de la Feuil1

en cliquant sur le bouton toggle 1 pour Monter et l'autre pour faire descendre la liste des mots

ma petite demande : comment coïncider et effectuer correctement mes deux fléches forms de la feuille ( ArrowUP et ArrowDOWN )

ci-joint le classeur Excel

j'ai ceci pour les 2 Toogle bouton :

Private Sub ToggleButton1_Click()
    If Sheets("Feuil1").Range("g8").Value = Sheets("Feuil1").Range("g10").Value Then
       ToggleButton1.Caption = Sheets("Feuil1").Range("g11").Value
       Sheets("Feuil1").Range("g8").Value = ToggleButton1.Caption
       ToggleButton2.Caption = Sheets("Feuil1").Range("g8").Value
       ToggleButton1.Caption = Sheets("Feuil1").Range("g8").Value

    ElseIf Sheets("Feuil1").Range("g8").Value = Sheets("Feuil1").Range("g11").Value Then
       ToggleButton1.Caption = Sheets("Feuil1").Range("g12").Value
       Sheets("Feuil1").Range("g8").Value = ToggleButton1.Caption
       ToggleButton2.Caption = Sheets("Feuil1").Range("g8").Value
       ToggleButton1.Caption = Sheets("Feuil1").Range("g8").Value

    ElseIf Sheets("Feuil1").Range("g8").Value = Sheets("Feuil1").Range("g12").Value Then
       ToggleButton1.Caption = Sheets("Feuil1").Range("g13").Value
       Sheets("Feuil1").Range("g8").Value = ToggleButton1.Caption
       ToggleButton2.Caption = Sheets("Feuil1").Range("g8").Value
       ToggleButton1.Caption = Sheets("Feuil1").Range("g8").Value

    ElseIf Sheets("Feuil1").Range("g8").Value = Sheets("Feuil1").Range("g13").Value Then
       ToggleButton1.Caption = Sheets("Feuil1").Range("g10").Value
       Sheets("Feuil1").Range("g8").Value = ToggleButton1.Caption
       ToggleButton2.Caption = Sheets("Feuil1").Range("g8").Value
       ToggleButton1.Caption = Sheets("Feuil1").Range("g8").Value
      End If

End Sub

Private Sub ToggleButton2_Click()
    If Sheets("Feuil1").Range("g8").Value = Sheets("Feuil1").Range("g13").Value Then
       ToggleButton2.Caption = Sheets("Feuil1").Range("g12").Value
       Sheets("Feuil1").Range("g8").Value = ToggleButton2.Caption
       ToggleButton2.Caption = Sheets("Feuil1").Range("g8").Value
       ToggleButton1.Caption = Sheets("Feuil1").Range("g8").Value

    ElseIf Sheets("Feuil1").Range("g8").Value = Sheets("Feuil1").Range("g12").Value Then
       ToggleButton2.Caption = Sheets("Feuil1").Range("g11").Value
       Sheets("Feuil1").Range("g8").Value = ToggleButton2.Caption
       ToggleButton2.Caption = Sheets("Feuil1").Range("g8").Value
       ToggleButton1.Caption = Sheets("Feuil1").Range("g8").Value

    ElseIf Sheets("Feuil1").Range("g8").Value = Sheets("Feuil1").Range("g11").Value Then
       ToggleButton2.Caption = Sheets("Feuil1").Range("g10").Value
       Sheets("Feuil1").Range("g8").Value = ToggleButton2.Caption
       ToggleButton2.Caption = Sheets("Feuil1").Range("g8").Value
       ToggleButton1.Caption = Sheets("Feuil1").Range("g8").Value

    ElseIf Sheets("Feuil1").Range("g8").Value = Sheets("Feuil1").Range("g10").Value Then
       ToggleButton2.Caption = Sheets("Feuil1").Range("g13").Value
       Sheets("Feuil1").Range("g8").Value = ToggleButton2.Caption
       ToggleButton2.Caption = Sheets("Feuil1").Range("g8").Value
       ToggleButton1.Caption = Sheets("Feuil1").Range("g8").Value
      End If
End Sub

En vous remerciant d'avance pour vos propositions

crdlt,

André

zfleches

Bonjour,

Je n'ai pas trop compris ta demande ...

Mais quand même ... un essai ...

Je n'ai qu'inversé les 2 codes ...

J'ai remplacé les données pour voir le mouvement.

ric

Bonjour,

Coder pour arrêter arrivé à la fin ou au début selon le bouton.

Sinon ainsi, c'est une boucle.

ric

Bonjour Ric,

oui tu a compris, je vais regarder et te tiens au courant

merci à toi

Merci Ric, c'est cela que je souhaitais impeccable, je te remercies

Bonjour,

Il suffit de lier les macros aux flèches.

J'ai aussi simplifié le code ... ce qui arrête le défilement rendu à la limite.

Si tu supprimes les boutons, il faudra modifier le code.

Voir si ça convient...

ric

Bonjour Andre

mettre le CodeNome a la place Sheets("Feuil1") car tu peux pas changer le nom de l'onglet

A voir

Private Sub ToggleButton2_Click()
With Feuil1
    If .Range("g8").Value = .Range("g10").Value Then
       ToggleButton1.Caption = .Range("g11").Value
       .Range("g8").Value = ToggleButton1.Caption
       ToggleButton2.Caption = .Range("g8").Value
       ToggleButton1.Caption = .Range("g8").Value

    ElseIf .Range("g8").Value = .Range("g11").Value Then
       ToggleButton1.Caption = .Range("g12").Value
       .Range("g8").Value = ToggleButton1.Caption
       ToggleButton2.Caption = .Range("g8").Value
       ToggleButton1.Caption = .Range("g8").Value

    ElseIf .Range("g8").Value = .Range("g12").Value Then
       ToggleButton1.Caption = .Range("g13").Value
       .Range("g8").Value = ToggleButton1.Caption
       ToggleButton2.Caption = .Range("g8").Value
       ToggleButton1.Caption = .Range("g8").Value

    ElseIf .Range("g8").Value = .Range("g13").Value Then
       ToggleButton1.Caption = .Range("g10").Value
       .Range("g8").Value = ToggleButton1.Caption
       ToggleButton2.Caption = .Range("g8").Value
       ToggleButton1.Caption = .Range("g8").Value
      End If
End With
End Sub

A+

Maurice

Merci Ric tu es un grand champion ^^

tu m'as énormément simplifié le code

j'avais pensé au Senkeys pour les 2 Toogle bouton ( non fonctionnel)

Spoiler
Sub ArrowDOWN_Cliquer()
' BAS  lettres
 Application.Wait (Now + TimeValue("0:00:01"))   ' ATTENTE
            Sheets("Feuil1").ToggleButton1.Select
            SendKeys "~", True

End Sub
Sub ArrowUP_Cliquer()
' HAUT lettres
 Application.Wait (Now + TimeValue("0:00:01"))   ' ATTENTE
            Sheets("Feuil1").ToggleButton2.Select
            SendKeys "~", True
End Sub

merci Archer également, pour l'information du CodeName de la feuille et du code ( je vais regarder aussi ton code merci)

bien joué Archer j'ai testé aussi avec le Toggle button2

merci à vous deux, je vais pouvoir avancer sur mon futur projet

Rechercher des sujets similaires à "toggle bouton down modifier direction clic"