Je veux selectionner 2 plages pour une listBox, j'ai =E9crit
le code suivant :
With Selection.Validation
.Delete
.Add xlValidateList, xlValidAlertInformation, _
xlBetween, Formula1:=3D"=3D$C$6:$C$8,$E$6:$E$8"
.InCellDropdown =3D True
end With
simplement le probl=E8me c'est que cela ne marche pas, j'ai
essay=E9 avec union, j'ai la m=EAme erreur!!
En revanche si j'enleve ",$E$6:$E$8" cela marche, mais il
manque une plage lors de l'affichage logique!!!
Que faire pour que j'arrive =E0 afficher mes 2 plages dans
la listebox!
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
AV
Heu....tu parles de listbox et ton exemple fait référence à une liste de validation ! En supposant qu'il s'agit bien de liste de validation : Pour la plage source, tu ne peux pas faire référence à une plage discontinue ! Une solution récupérer les valeurs des diverses plages pour les affecter à la liste de validation :
Sub zz_Valid() For Each c In [C6:C8,E6:E8] x = x & c & "," Next With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Left(x, Len(x) - 1) End With End Sub
AV
"forey" a écrit dans le message news: 0b6401c34ae0$11461080$ bonjour,
Je veux selectionner 2 plages pour une listBox, j'ai écrit le code suivant :
With Selection.Validation .Delete .Add xlValidateList, xlValidAlertInformation, _ xlBetween, Formula1:="=$C$6:$C$8,$E$6:$E$8" .InCellDropdown = True end With
simplement le problème c'est que cela ne marche pas, j'ai essayé avec union, j'ai la même erreur!! En revanche si j'enleve ",$E$6:$E$8" cela marche, mais il manque une plage lors de l'affichage logique!!!
Que faire pour que j'arrive à afficher mes 2 plages dans la listebox!
Merci d'avance! .
Heu....tu parles de listbox et ton exemple fait référence à une liste de
validation !
En supposant qu'il s'agit bien de liste de validation :
Pour la plage source, tu ne peux pas faire référence à une plage discontinue !
Une solution récupérer les valeurs des diverses plages pour les affecter à la
liste de validation :
Sub zz_Valid()
For Each c In [C6:C8,E6:E8]
x = x & c & ","
Next
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:=Left(x, Len(x) - 1)
End With
End Sub
AV
"forey" <forey@free.fr> a écrit dans le message news:
0b6401c34ae0$11461080$a601280a@phx.gbl...
bonjour,
Je veux selectionner 2 plages pour une listBox, j'ai écrit
le code suivant :
With Selection.Validation
.Delete
.Add xlValidateList, xlValidAlertInformation, _
xlBetween, Formula1:="=$C$6:$C$8,$E$6:$E$8"
.InCellDropdown = True
end With
simplement le problème c'est que cela ne marche pas, j'ai
essayé avec union, j'ai la même erreur!!
En revanche si j'enleve ",$E$6:$E$8" cela marche, mais il
manque une plage lors de l'affichage logique!!!
Que faire pour que j'arrive à afficher mes 2 plages dans
la listebox!
Heu....tu parles de listbox et ton exemple fait référence à une liste de validation ! En supposant qu'il s'agit bien de liste de validation : Pour la plage source, tu ne peux pas faire référence à une plage discontinue ! Une solution récupérer les valeurs des diverses plages pour les affecter à la liste de validation :
Sub zz_Valid() For Each c In [C6:C8,E6:E8] x = x & c & "," Next With Selection.Validation .Delete .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _ xlBetween, Formula1:=Left(x, Len(x) - 1) End With End Sub
AV
"forey" a écrit dans le message news: 0b6401c34ae0$11461080$ bonjour,
Je veux selectionner 2 plages pour une listBox, j'ai écrit le code suivant :
With Selection.Validation .Delete .Add xlValidateList, xlValidAlertInformation, _ xlBetween, Formula1:="=$C$6:$C$8,$E$6:$E$8" .InCellDropdown = True end With
simplement le problème c'est que cela ne marche pas, j'ai essayé avec union, j'ai la même erreur!! En revanche si j'enleve ",$E$6:$E$8" cela marche, mais il manque une plage lors de l'affichage logique!!!
Que faire pour que j'arrive à afficher mes 2 plages dans la listebox!
