[excel] Déplacer vers une cellule automatiqu
iliesss
Messages postés
92
Date d'inscription
Statut
Membre
Dernière intervention
-
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
michel_m Messages postés 18903 Date d'inscription Statut Contributeur Dernière intervention -
Bonjour
Dans ma feuille Excel j'ai un tableau et dans ce tableau j'utilise que certaines cellules avec un chemin fixe
Exemple
Je commence la saisie dans la cellule C4 après A8 après B15 après F28.
Question
SVP comment faire lorsque je saisi dans la cellule C4 et je valide, automatiquement je saisi dans la cellule A8 sans bouger la sourie ou les touche de direction et ainsi de suite selon mon chemin
Merci
Dans ma feuille Excel j'ai un tableau et dans ce tableau j'utilise que certaines cellules avec un chemin fixe
Exemple
Je commence la saisie dans la cellule C4 après A8 après B15 après F28.
Question
SVP comment faire lorsque je saisi dans la cellule C4 et je valide, automatiquement je saisi dans la cellule A8 sans bouger la sourie ou les touche de direction et ainsi de suite selon mon chemin
Merci
2 réponses
-
-
Bonjour,
1° jet à installer dans le module de la feuille concernée'-----Je commence la saisie dans la cellule C4 après A8 après B15 après F28. Private Sub Worksheet_Change(ByVal Target As Range) Static flag As Byte flag = flag + 1 adresse = Choose(flag, "C4", "A8", "B15", "F28") If Not Intersect(Target, Range(adresse)) Is Nothing Then If flag = 4 Then flag = 0 Exit Sub End If adresse = Choose(flag + 1, "C4", "A8", "B15", "F28") Range(adresse).Select End If End Sub
je regarde une méthode cpmplémentaire pour empêcher de saisir ailleurs cellule verouillée ou non .... patience
Michel-
a tester
'Je commence la saisie dans la cellule C4 après A8 après B15 après F28. Private Sub Worksheet_Change(ByVal Target As Range) Static flag As Byte flag = flag + 1 adresse = Choose(flag, "C4", "A8", "B15", "F28") If Not Intersect(Target, Range(adresse)) Is Nothing Then If flag = 4 Then flag = 0 Exit Sub End If adresse = Choose(flag + 1, "C4", "A8", "B15", "F28") Range(adresse).Select Else Application.EnableEvents = False Target = "" Range(adresse).Select flag = flag - 1 Application.EnableEvents = True End If End Sub Sub nettoyer() Application.EnableEvents = False Range("C4,A8,B15,F28").ClearContents Application.EnableEvents = True End Sub Sub sos() 'si les mactos ne se déclenchent plus Application.EnableEvents = True End Sub
-
