Excel Macro liste déroulante et SendKeys

Résolu/Fermé

Gaetan95800 Messages postés 10 Date d'inscription mercredi 18 mars 2009 Statut Membre Dernière intervention 7 juin 2009 - 6 juin 2009 à 23:24
Gaetan95800 Messages postés 10 Date d'inscription mercredi 18 mars 2009 Statut Membre Dernière intervention 7 juin 2009 - 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 :)

A voir également:

Excel Macro liste déroulante et SendKeys
Liste déroulante excel - Guide
Excel liste déroulante en cascade - Guide
Si et excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Word et excel gratuit - Guide

1 réponse

Réponse 1 / 1

pilas31 Messages postés 1825 Date d'inscription vendredi 5 septembre 2008 Statut Contributeur Dernière intervention 24 avril 2020 643
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+

Gaetan95800 Messages postés 10 Date d'inscription mercredi 18 mars 2009 Statut Membre Dernière intervention 7 juin 2009
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

Discussions similaires

Suppression listes déroulantes

Supprimer liste déroulante Excel

Discussions similaires

Newsletters