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

Usine à gaz · 22 Février 2016

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,

phlaurent55 · 22 Février 2016

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

thebenoit59 · 22 Février 2016

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

sousou · 22 Février 2016

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

Usine à gaz · 22 Février 2016

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,

Usine à gaz · 22 Février 2016

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)

Usine à gaz · 22 Février 2016

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,

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

Usine à gaz

XLDnaute Barbatruc

Pièces jointes

phlaurent55

Nous a quittés en 2020

thebenoit59

XLDnaute Accro

sousou

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Usine à gaz

XLDnaute Barbatruc

Discussions similaires