[excel] Déplacer vers une cellule automatiqu
iliesss
Messages postés
120
Statut
Membre
-
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
- Liste déroulante excel - Guide
- Proteger cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
- Aller à la ligne dans une 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
