Liste déroulante = Remplacer la sélection par des données "text"

ssassam · 14 Février 2013

Bonjour ,

S'il vous plait , j'ai besoin de votre aide,

Je travaille sur une macro de Liste déroulante , mais ne ne souhaite pas indiquer la sélection pour la liste de choix

Et voila ma problématique :

Je veux remplacer la sélection
"Formula1:=$F$6:$F$9"

et intégré directement la liste de choix comme ça
Formula1:=("A" & "B" & "C" & "D")

Code:

Sub LISTE_CHOIX()

    With Range("H19").Validation
        .Delete
        
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=("A" & "B" & "C" & "D")
        
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "Test 1"
        .ErrorTitle = ""
        .InputMessage = "Test 2"
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Merci pour votre aide.

phlaurent55 · 14 Février 2013

Re : Liste déroulante = Remplacer la sélection par des données "text"

Bonjour ssassassam

avec ceci:

Code:

.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="A;B;C;D"

à+
Philippe

Pierrot93 · 14 Février 2013

Re : Liste déroulante = Remplacer la sélection par des données "text"

Bonjour,

si j'ai bien compris, pas sûr :

Code:

With Range("H19").Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=("A,B,C,D")
End With

bon après midi
@+

kjin · 14 Février 2013

Re : Liste déroulante = Remplacer la sélection par des données "text"

bonjour,
Il est vrai qu'écrit en rouge on comprends mieux !
Ne serait-ce pas plutôt

Code:

Formula1:="a;b;c;d"

A+
kjin

ssassam · 14 Février 2013

Re : Liste déroulante = Remplacer la sélection par des données "text"

Merci pour votre aide mes amis , la bonne réponse et c'elle de Pierrot93 Merci beaucoup , et pour les autre vous avez gagné une information de Plus grâce et moi aussi 😎

phlaurent55 · 14 Février 2013

Re : Liste déroulante = Remplacer la sélection par des données "text"

Re,

Merci pour votre aide mes amis , la bonne réponse et c'elle de Pierrot93

elles sont pourtant identiques toutes les 3 😡😡😡

à+
Philippe

Pierrot93 · 14 Février 2013

Re : Liste déroulante = Remplacer la sélection par des données "text"

Re,

elles sont pourtant identiques toutes les 3

non, éléments séparés par des virgules chez moi... pas par des point-virgules 🙂

kjin · 14 Février 2013

Re : Liste déroulante = Remplacer la sélection par des données "text"

re, salut Pierrot et Philippe 🙂,

phlaurent55 à dit:
elles sont pourtant identiques toutes les 3 😡😡😡

ssassam à dit:
et pour les autre vous avez gagné une information de Plus grâce et moi aussi

il y a un lot de consolation, c'est nouveau...
kjin

DoubleZero · 14 Février 2013

Re : Liste déroulante = Remplacer la sélection par des données "text"

Bonjour le Fil, le Forum,

Pardon pour mon intrusion : je souhaiterais simplement avoir quelques nouvelles sur l'état de santé de TATA 🙄...

A bientôt 🙂🙂

Liste déroulante = Remplacer la sélection par des données "text"

ssassam

XLDnaute Occasionnel

phlaurent55

Nous a quittés en 2020

Pierrot93

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

ssassam

XLDnaute Occasionnel

phlaurent55

Nous a quittés en 2020

Pierrot93

XLDnaute Barbatruc

kjin

XLDnaute Barbatruc

DoubleZero

XLDnaute Barbatruc

Discussions similaires

Liste déroulante = Remplacer la sélection par des données "text"

XLDnaute Occasionnel

Nous a quittés en 2020

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Occasionnel

Nous a quittés en 2020

XLDnaute Barbatruc

XLDnaute Barbatruc

XLDnaute Barbatruc

Discussions similaires

Privacy & Transparency

Privacy & Transparency