[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
A voir également:
- [excel] Déplacer vers une cellule automatiqu
- Déplacer une colonne excel - Guide
- Proteger cellule excel - Guide
- Liste déroulante excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Trier cellule excel - Guide
2 réponses
Bonjour,
1° jet à installer dans le module de la feuille concernée
je regarde une méthode cpmplémentaire pour empêcher de saisir ailleurs cellule verouillée ou non .... patience
Michel
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
