Macro sélectionner case

bonjour

dans la cellule C6, j'ai une liste déroulante avec des noms. Je voudrais une macro qui fait simplement passer à la cellule C7 dès que je choisis un nom dans la liste, peu importe lequel. Ceci est dans le but d'éviter d'appuyer sur Entrée.

merci

Bonjour,

un exemple à appliquer à ton cas :

Bonjour,

Un test

M12 a écrit :

Bonjour,

Un test

andersfriden.xlsm

merci. Cependant, j'ai déjà un objet :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 And Target.Address = "$F$4" Then
    Application.EnableEvents = False
        If Target.Value = "ALPHABET" Then Alphabet
        If Target.Value = "ABSORBA HYPER" Then Absorba_Hyper
        If Target.Value = "ABSORBA BOUTIQUE" Then Absorba_Boutique
        If Target.Value = "JEAN BOURGET" Then Jean_Bourget
    Application.EnableEvents = True
End If
End Sub

quand je copie ton code dans mon classeur et que j'exécute le code, ça me met un message

"Erreur de compilation:

Nom ambigu détecté: Worksheet_change"

que dois-je faire ?

Attention quand tu mets un Worksheet change, il ne faut pas le mettre dans un module mais directement dans une feuille, sinon VBA ne comprendra pas de quelle feuille tu parles ni pourquoi tu mets ça dans un module qui n'est pas une feuille.

Re,

Il suffit d'ajouter à ta macro

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C6")) Is Nothing Then
    Range("C7").Select
End If
If Target.Count = 1 And Target.Address = "$F$4" Then
    Application.EnableEvents = False
        If Target.Value = "ALPHABET" Then Alphabet
        If Target.Value = "ABSORBA HYPER" Then Absorba_Hyper
        If Target.Value = "ABSORBA BOUTIQUE" Then Absorba_Boutique
        If Target.Value = "JEAN BOURGET" Then Jean_Bourget
    Application.EnableEvents = True
End If
End Sub

M12 a écrit :

Re,

Il suffit d'ajouter à ta macro

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("C6")) Is Nothing Then
    Range("C7").Select
End If
If Target.Count = 1 And Target.Address = "$F$4" Then
    Application.EnableEvents = False
        If Target.Value = "ALPHABET" Then Alphabet
        If Target.Value = "ABSORBA HYPER" Then Absorba_Hyper
        If Target.Value = "ABSORBA BOUTIQUE" Then Absorba_Boutique
        If Target.Value = "JEAN BOURGET" Then Jean_Bourget
    Application.EnableEvents = True
End If
End Sub

merci !