Sélection de cellule définie

Bonjour à tous,

Pour faire de la vérification en croisant plusieurs donnée j'utilise un scanner pour remplir certaine cellule, jusque-là tout fonctionne très bien, les cellules que je remplie avec le scanner sont C5, C10, et C15, mon problème c'est que quand je scanne la donnée en C5 mon curseur ce place automatiquement en cellule C6 après remplissage comme si on avait écrit dans la cellule et fait enter ensuite, ce qui m'oblige a sélectionner la cellule C10 manuellement avant le 2eme scan et pareil pour le 3eme. Les 3 cellules désignée sont les seul qui peuvent être écrite sur cette page tous les autre sont protégée

Y a t-il une solution pour que quand j'ai scanner ma donnée en C5 la sélection passe à C10 direct, et le même une fois C10 remplie passer directement à C15.

Tout mon code actuelle, est écrit sur la page "worksheet change (ByVal Target As Range)"

En vous remerciant d'avance, bonne journée.

Pour le moment je suis juste arriver a passer de c5 a c10

Private Sub Worksheet_Change(ByVal Target As Range)

Range("C5").Select
ActiveCell.Offset(5, 0).Select

End Sub

Bonjour

Peut être ceci

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("C:c")) Is Nothing Then
    Target.Offset(5, 0).Select
End If
End Sub

Cela fonctionne sur n'importe quelle cellule de la colonne C

Cordialement

Merci DAN, c'est cool.

j'étais arriver a ce code moi, mais le tient est beaucoup plus simple

Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Count > 3 Then Exit Sub
  If Target.Column = 3 Then         ' Colonne c
    If Target.Row = 5 Then          ' Ligne 5
      Target.Offset(5, 0).Select    ' On se déplace de 5 lignes
    End If
  End If 
  If Target.Count > 3 Then Exit Sub
  If Target.Column = 3 Then         ' Colonne c
    If Target.Row = 10 Then          ' Ligne 10
      Target.Offset(5, 0).Select    ' On se déplace de 5 lignes
    End If
  End If 
End Sub