Création
d'entreprise
Posez votre question Signaler

Excel Macro liste déroulante et SendKeys [Résolu]

Gaetan95800 10Messages postés 18 mars 2009Date d'inscription - Dernière réponse le 7 juin 2009 à 10:15
Bonjour,
J'aimerais inserer la dedans ;
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("Saisie")) Is Nothing Then Exit Sub
With Target
If .Rows.Count > 1 Or .Columns.Count > 1 Then Exit Sub
With .Validation
.Modify Formula1:="=ListInitiale"
End With
End With
SendKeys "%{DOWN}", False
End Sub
Ceci ;
'If Application.Intersect(Target, Range("aatest")) Is Nothing Then Exit Sub
'SendKeys "%{DOWN}", False
Il est pas possible de faire 2x Worksheet_selection, malheureusement :)
du genre --> :)
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("aatest")) Is Nothing Then Exit Sub
SendKeys "%{DOWN}", False
End Sub
Merci :)
Lire la suite 

Excel Macro liste déroulante et SendKeys »

2 réponses
Réponse
+0
moins plus
pilas31 1079Messages postés 5 septembre 2008Date d'inscription 23 mai 2012Dernière intervention 7 juin 2009 à 01:31
Bonjour,

Je propose de modifier comme cela pour inclure les deux cas : 

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Application.Intersect(Target, Range("Saisie")) Is Nothing Then
    If Not (Application.Intersect(Target, Range("aatest")) Is Nothing) Then
        SendKeys "%{DOWN}", False
    End If
Else
    With Target
        If .Rows.Count = 1 And .Columns.Count = 1 Then
            With .Validation
                .Modify Formula1:="=ListInitiale"
            End With
        End If
    End With
    SendKeys "%{DOWN}", False
End If
End Sub


A+

Ajouter un commentaire
Gaetan95800- 7 juin 2009 à 10:15
Merci pour ton aide pilas, j'ai même pu inclure un 3ème cas, identique au 2ème.
Si par hasard je veux inclure un cas identique au 1er ? (par curiosité :))
Merci
Ajouter un commentaire
Posez votre question
Ce document intitulé « Excel Macro liste déroulante et SendKeys » issu de CommentCaMarche (www.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Dossier à la une
Passage au tout numérique : quel coût pour les particuliers ?