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é