Forcer un saut de cellule

[Andry]

Bonjour, je souhaite forcer les saut de cellule après avoir saisi une valeur dans la cellule. Ci joint un fichier explicatif. Merci d'avance

 

[Softmama]

Re : Forcer un saut de cellule

Bonjour,

Ceci devrait répondre à ton besoin :

Private Sub Worksheet_Change(ByVal Target As Range)
'Si une seule cellule change:
If Target.Count = 1 Then

  'Qu'elle se trouve dans la zone B2 à K13:
  If Not Intersect(Target, Range("B2:K13")) Is Nothing Then
  
    'Si la cellule est en ligne 13, alors on sélectionne la cellule 3 colonnes plus loin, en ligne 2:
    If Target.Row = 13 Then Cells(2, Target.Column + 3).Select
    
  End If
  
End If
End Sub

cf. fichier joint.

 

[Andry]

Re : Forcer un saut de cellule

Bonjour,
un grand MERCI, cela fait 2j que je m arrache les cheveux et toi en 5mn t avais la réponse!!! Merci encore

 

[Andry]

Re : Forcer un saut de cellule

J'ai encore une autre question,
Est ce qu'on peu le faire sur plusieurs zone?
ci joint le fichier explicatif
Merci