Automatiser déplacement saisie dans des cellules non adjacentes
beotien78
Messages postés
2
Date d'inscription
Statut
Membre
Dernière intervention
-
beotien78 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
beotien78 Messages postés 2 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai fait un tableau excel dont certaines cellules sont le résultat de formules.
Je les ai verrouillées, j'ai programmé avec les options avancées le sens de déplacement.
En revanche, lorsque je suis dans une cellule, pour saisir un nombre dans une autre cellule non adjacente (type 2 cellules en dessous) je voudrais pouvoir programmer mon déplacement automatiquement. Est-ce possible ?
Merci de vos réponses
J'ai fait un tableau excel dont certaines cellules sont le résultat de formules.
Je les ai verrouillées, j'ai programmé avec les options avancées le sens de déplacement.
En revanche, lorsque je suis dans une cellule, pour saisir un nombre dans une autre cellule non adjacente (type 2 cellules en dessous) je voudrais pouvoir programmer mon déplacement automatiquement. Est-ce possible ?
Merci de vos réponses
A voir également:
- Automatiser déplacement saisie dans des cellules non adjacentes
- Saisie gestuelle iphone - Guide
- Verrouiller des cellules excel - Guide
- Historique déplacement google - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Saisie vocale whatsapp - Accueil - Messagerie instantanée
2 réponses
Bonjour,
dans le classeur, il y a 4 exemples de saisie guidée.
http://boisgontierjacques.free.fr/fichiers/jb-worksheetchange.zip
On définit l'ordre dans lequel les cellules doivent être parcourues
Faire une sélection multiple des cellules dans l'ordre souhaité et nommer le champ
Private Sub Worksheet_Activate()
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To Range("champ").Count
If Range("champ").Areas(i) = Target.Value Then
If i = Range("champ").Count Then p = 1 Else p = i + 1
Range("champ").Areas(p).Select
End If
Next i
End Sub
JB
dans le classeur, il y a 4 exemples de saisie guidée.
http://boisgontierjacques.free.fr/fichiers/jb-worksheetchange.zip
On définit l'ordre dans lequel les cellules doivent être parcourues
Faire une sélection multiple des cellules dans l'ordre souhaité et nommer le champ
Private Sub Worksheet_Activate()
ActiveSheet.EnableSelection = xlUnlockedCells
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
For i = 1 To Range("champ").Count
If Range("champ").Areas(i) = Target.Value Then
If i = Range("champ").Count Then p = 1 Else p = i + 1
Range("champ").Areas(p).Select
End If
Next i
End Sub
JB