Résolu par la communauté LOL - Macro "change" itinéraire de saisie cellules

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Usine à gaz

XLDnaute Barbatruc
Supporter XLD
Bonjour à toutes et à tous,

Me revoilà devant un nouveau code que je n'arrive pas à faire.

Mon besoin
Je souhaite, dans une feuille, que lorsque qu'une saisie est faite dans une cellule, la cellule suivante à saisir soit sélectionnée et etc ...

Je pense que la macro "Private Sub Worksheet_Change(ByVal Target As Range)" est le code à utiliser.
Malgré tous mes essais, je n'ai pas réussi à écrire le bon code.

Seul le 1er déplacement s'exécute et la suite est en erreur.

Mon code "tout faux" dans ma feuille
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B6")).Value = "" Then
Range("D2").Select
End If
If Not Application.Intersect(Target, Range("D2")).Value = "" Then
Range("F14").Select
End If
If Not Application.Intersect(Target, Range("F14")).Value = "" Then
Range("F6").Select
End If
If Not Application.Intersect(Target, Range("F6")).Value = "" Then
Range("H10").Select
End If
End Sub

Pourriez-vous m'aider ?
Un classeur test est en pièce jointe.

Je vous remercie et vous souhaite, à toutes et à tous, une très bonne semaine;
Amicalement,
Lionel,
 

Pièces jointes

Dernière édition:
Re : Macro "change" itinéraire de saisie cellules

Bonjour Lionel,

avec ce code:
Code:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B6")) Is Nothing Then
Range("D2").Select
End If
If Not Intersect(Target, Range("D2")) Is Nothing Then
Range("F13").Select
End If
If Not Intersect(Target, Range("F13")) Is Nothing Then
Range("F6").Select
End If
If Not Intersect(Target, Range("F6")) Is Nothing Then
Range("H10").Select
End If
If Not Intersect(Target, Range("H10")) Is Nothing Then
Range("B6").Select
End If
End Sub
à+
Philippe
 
Re : Macro "change" itinéraire de saisie cellules

Bonjour Lionel, bonjour Philippe.
De mon côté j'avais pensé à :
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = Cells(6, 2).Address Then Cells(2, 4).Select
If Target.Address = Cells(2, 4).Address Then Cells(13, 6).Select
If Target.Address = Cells(13, 6).Address Then Cells(6, 6).Select
If Target.Address = Cells(6, 6).Address Then Cells(10, 8).Select

End Sub
 
Re : Macro "change" itinéraire de saisie cellules

Bonjour
essai cette solution
Private Sub Worksheet_Change(ByVal Target As Range)
ordre = Array("$b$6", "$d$2", "$f$13", "$f$6", "$h$10")

For n = 0 To UBound(ordre) - 1
If Target.Address = UCase(ordre(n)) Then ActiveSheet.Range(ordre(n + 1)).Select
Next
End Sub
 
Re : Macro "change" itinéraire de saisie cellules

Bonjour Philippe,

Je serai toujours surpris par tant de bienveillance.

Merci, c'est ça bien entendu.
Je ne savais pas comment faire.

Encore un grand merci pour votre aide précieuse.

Bonne journée,
Amicalement,
Lionel,
 
Re : Macro "change" itinéraire de saisie cellules

Bonjour thebenoit,

Un grand merci aussi,
ton code fonctionne bien.

Merci d'avoir encore été là.
Bonne journée,
Amicalement,
Lionel,

PS : XLDnaute Junior ..... faudrait peut-être rectifier ? LOL (la valeur n'attend pas le nombre des années)
 
Re : Macro "change" itinéraire de saisie cellules

Bonjour Sousou,

Un grand merci à toi aussi, ça marche à merveille.
Vous êtes supers !!!

Moi qui n'ai pas pu en faire un seul, me voilà avec 3 codes qui fonctionnent.
Je ne sais que dire.

Encore Merci à vous tous,
Amicalement,
Lionel,
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
14
Affichages
246
Réponses
4
Affichages
223
Réponses
9
Affichages
201
  • Question Question
Microsoft 365 worksheet_change
Réponses
29
Affichages
479
Réponses
14
Affichages
468
  • Question Question
Microsoft 365 Probléme VBA
Réponses
8
Affichages
317
Réponses
4
Affichages
177
Retour