[excel] Déplacer vers une cellule automatiqu
Fermé
iliesss
Messages postés
113
Date d'inscription
mardi 14 septembre 2010
Statut
Membre
Dernière intervention
26 octobre 2014
-
9 nov. 2011 à 14:08
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 9 nov. 2011 à 15:32
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 - 9 nov. 2011 à 15:32
A voir également:
- [excel] Déplacer vers une cellule automatiqu
- Déplacer une colonne excel - Guide
- Liste déroulante excel - Guide
- Aller à la ligne dans une cellule excel - Guide
- Verrouiller cellule excel - Guide
- Excel cellule couleur si condition texte - Guide
2 réponses
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
Modifié par michel_m le 9/11/2011 à 15:03
Modifié par michel_m le 9/11/2011 à 15:03
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
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 303
9 nov. 2011 à 15:32
9 nov. 2011 à 15:32
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
