Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel (vba) ouvrir automatiquement une liste après offset

(vba) ouvrir automatiquement une liste après offset

3 réponses
Avatar
j-pascal
Bonsoir,

Est-il possible, lorsqu'après une saisie on passe sur une cellule comportant
un menu déroulant, d'ouvrir "automatiquement" la liste (sans avoir à cliquer
sur la petite flèche en bas à droite) ?

'----
If Not Intersect([V:V], Target) Is Nothing Then
Target.Offset(0, 3).Select
End If
'----

Merci d'avance pour vos lumières.

JP
Signaler un problème avec ce contenu

3 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
MichDenis
If Not Intersect([V:V], Target) Is Nothing Then
Range("C1").Select
SendKeys "%{Down}"
End If



"j-pascal" a écrit dans le message de news:

Bonsoir,

Est-il possible, lorsqu'après une saisie on passe sur une cellule comportant
un menu déroulant, d'ouvrir "automatiquement" la liste (sans avoir à cliquer
sur la petite flèche en bas à droite) ?

'----
If Not Intersect([V:V], Target) Is Nothing Then
Target.Offset(0, 3).Select
End If
'----

Merci d'avance pour vos lumières.

JP
Avatar
MichDenis
Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect([A:A], Target) Is Nothing Then
Target.Select
SendKeys "%{Down}"
End If
End Sub




"j-pascal" a écrit dans le message de news:

Bonsoir,

Est-il possible, lorsqu'après une saisie on passe sur une cellule comportant
un menu déroulant, d'ouvrir "automatiquement" la liste (sans avoir à cliquer
sur la petite flèche en bas à droite) ?

'----
If Not Intersect([V:V], Target) Is Nothing Then
Target.Offset(0, 3).Select
End If
'----

Merci d'avance pour vos lumières.

JP
Avatar
j-pascal
Bonsoir,

Je reprends "ma forme" à laquelle j'ajoute ton "SendKeys "%{Down}"
'----
If Not Intersect([V:V], Target) Is Nothing Then
Target.Offset(0, 3).Select
SendKeys "%{Down}"
End If
'----
... et le résultat est magnifique ! Merci ++

JP





"MichDenis" a écrit dans le message de news:

Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect([A:A], Target) Is Nothing Then
Target.Select
SendKeys "%{Down}"
End If
End Sub




"j-pascal" a écrit dans le message de news:

Bonsoir,

Est-il possible, lorsqu'après une saisie on passe sur une cellule
comportant
un menu déroulant, d'ouvrir "automatiquement" la liste (sans avoir à
cliquer
sur la petite flèche en bas à droite) ?

'----
If Not Intersect([V:V], Target) Is Nothing Then
Target.Offset(0, 3).Select
End If
'----

Merci d'avance pour vos lumières.

JP