XL 2019 VBA Faire un retour

frederio

XLDnaute Impliqué
Bonsoir vous connais comment faire à “retour“ en VBA

Vous m’aidez a expliqué comme Excel Merci
 

Pièces jointes

  • ALLEMAGNE.xlsm
    420.3 KB · Affichages: 11

job75

XLDnaute Barbatruc
Bonjour,

Ce serait mieux d'expliquer ce que vous entendez par "retour" mais bon, voyez ces codes dans le fichier joint :
VB:
Dim lig& 'mémorise la variable

Private Sub ComboBox1_Change()
    lig = ActiveWindow.ScrollRow
    If ComboBox1.ListIndex = -1 Then ComboBox1 = "": Application.Goto [A1], True: Exit Sub
    Application.Goto Range("A" & ComboBox1 * 11 - 9), True
End Sub

Sub Retour()
If lig Then Application.Goto Range("A" & lig), True
End Sub
A+
 

Pièces jointes

  • ALLEMAGNE(1).xlsm
    425 KB · Affichages: 15

Statistiques des forums

Discussions
312 470
Messages
2 088 699
Membres
103 927
dernier inscrit
Mkeal