Avancer de plusieurs colonnes en un seul clic

bonjour à tous

je vous ai joint un fichier pour plus d'explications.

merci à tous pour votre reponse

Bonjour

Avec une macro à copier dans le code de la feuille

Attention ne fonctionne que si modification de la cellule

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Columns("B"), Target) Is Nothing Then
    Range("G" & Target.Row).Select
  ElseIf Not Intersect(Columns("G"), Target) Is Nothing Then
    Range("B" & Target.Row + 1).Select
  End If
End Sub

Bonjour,

En utilisant la fonction Application.onkey.

Voir module1.

Bonjour,

J'ai deux exemples dans le classeur joint

Le premier utilise l'événement Change qui s'exécute à chaque fois que tu modifies une cellule :

 Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count = 1 Then
        Select Case Target.Column
            Case Is = 2 ' Colonne B then
                Target.Offset(0, 5).Select ' on se déplace de 5 colonnes vers la droite
            Case Is = 7 ' Colonne C then ' on se déplace d'une ligne vers le bas et de 5 colonnes vers la gauche
                Target.Offset(-1, -5).Select
        End Select
    End If
End Sub

Le second utilise une feuille protégée avec uniquement les colonnes B et G non verrouillées et un déplacement de la cellule active vers la droite (Outils/Général/Déplacer la sélection après validation.. C'est; a mon avis, la seule méthode qui le fait sans macro, mais il faut changer un paramètre qu'il est préférable de modifier par code..

Pour l'exemple, j'ai mis quelques événements pour que, quand on est sur la feuille VersDroite le paramètre de déplacement soit automatiquement fait et quand on revient sur la feuille EvénementChange, le déplacement se fasse vers le bas.

A+

Benead