Question rapide sur les liste en VBA

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion nicolase78
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
N

nicolase78

Guest
Bonjour à tous,

Je voudrai créer une liste de validation en vba mais mon problème se porte sur les données de cette liste. En effet cette liste est variable et je me demande comment l'intégrer dans le code ci-dessous qui accepte seulement une plage (ici $A$24:$A$29). Y'a t-il un moyen pour qu'elle accepte un tableau ???

Code: 
Sub Macro3()
'


    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$A$24:$A$29"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
 
End Sub

Merci par avance!
 
Trier par date Trier par votes
Re : Question rapide sur les liste en VBA

Salut nicolase78, le Forum

essaye cela

Sub Macro3()
'
Dim DerLig As Long
DerLig = Feuil1.Range("A" & Rows.Count).End(xlUp).Row
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=$A$24:$A$" & DerLig
.IgnoreBlank = True
.InCellDropdown = True
.InputTitle = ""
.ErrorTitle = ""
.InputMessage = ""
.ErrorMessage = ""
.ShowInput = True
.ShowError = True
End With
End Sub
Cliquez pour agrandir...

DerLig te permet de trouver la dernière ligne de la Col A renseignée

Bonne Journée
 
Vote positif 0 Vote négatif
Re : Question rapide sur les liste en VBA

Bonjour nicolase78, salut Dull 🙂

Pour définir une liste de validation, il n'y a que 2 possibilités :

- soit une plage de cellules comme la vôtre ou celle proposée par Dull

- soit une liste de type String avec la virgule comme séparateur :

Code: 
Sub ListeValidation()
Dim liste As String
liste = "a,b,c,d,e,f"
With Selection.Validation
  .Delete
  .Add xlValidateList, Formula1:=liste
End With
End Sub
A+
 
Vote positif 0 Vote négatif
Re : Question rapide sur les liste en VBA

Merci Dull. En fait moi je voudrai prendre les données d'une plage mais sans les doublons c'est là la difficulté. Donc je me suis dis je vais passer par un tableau qui va virer les doublons et transmettre ce tableau mais ça ne marche pas...

Job, tu me confirmes qu'il n'y a pas moyen de faire ce que je veux alors. Puisque si je prends un string qui comprend "a,b,c,d", la liste n'aura qu'une seule entrée qui sera "a,b,c,d" ?
 
Vote positif 0 Vote négatif
Re : Question rapide sur les liste en VBA

Bonjour à tous


À défaut de support, un essai sans plage auxiliaire...
  • ... sans classement :
    VB: 
    Sub Liste1()
Dim i%, v$, oCel As Range, oPlg As Range, Coll As New Collection
    Set oPlg = Range("B5:B19") 'plage de données à définir à sa convenance.
    On Error Resume Next
    For Each oCel In oPlg.Cells
        Coll.Add oCel.Value, CStr(oCel.Value)
    Next
    Set oPlg = Nothing
    On Error GoTo 0
    For i = 1 To Coll.Count
        v = v & Coll.Item(i) & ","
    Next
    With [B1].Validation 'ou autre adresse...
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Left$(v, Len(v) - 1)
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub
  • ... avec classement :
    VB: 
    Sub Liste2()
Dim i%, v$, dPlg, oCel As Range, oPlg As Range, Coll As New Collection
    Set oPlg = Range("B5:B19") 'plage de données à définir à sa convenance.
    dPlg = oPlg.Value
    With oPlg.Parent.Sort
        .SortFields.Clear
        .SortFields.Add Key:=oPlg.Range("A1"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
        .SetRange oPlg
        .Header = xlNo 'à adapter
        .MatchCase = False
        .Orientation = xlTopToBottom
        .Apply
    End With
    On Error Resume Next
    For Each oCel In oPlg.Cells
        Coll.Add oCel.Value, CStr(oCel.Value)
    Next
    oPlg.Value = dPlg
    Set oPlg = Nothing
    Erase dPlg
    On Error GoTo 0
    For i = 1 To Coll.Count
        v = v & Coll.Item(i) & ","
    Next
    With [B1].Validation 'ou autre adresse...
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:=Left$(v, Len(v) - 1)
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub


ROGER2327
#5534

Dimanche 1er Pédale 139 (Erection du Surmâle - fête Suprême Tierce)
5 Ventôse An CCXX, 1,5863h - bouc
2012-W08-5T03:48:26Z
 
Vote positif 0 Vote négatif
Re : Question rapide sur les liste en VBA

Bonjour,


>soit une liste de type String avec la virgule comme séparateur :

Il faut préciser que ce genre de liste ne peut pas dépasser 200 caractères, ce qui en limite l'utilisation.

Avec un formulaire

Code: 
Private Sub UserForm_Initialize()
  Set mondico = CreateObject("Scripting.Dictionary")
  a = [Noms].Value  ' tableau a(,)
  For Each c In a
    mondico(c) = ""
  Next c
  Me.ComboBox1.List = mondico.keys
  SendKeys "{F4}"
End Sub

Private Sub ComboBox1_Change()
  ActiveCell = Me.ComboBox1
  Unload Me
End Sub

Avec tri des noms

Code: 
Private Sub UserForm_Initialize()
  Set mondico = CreateObject("Scripting.Dictionary")
  a = [Noms].Value  ' tableau a(,)
  For Each c In a
    If c <> "" Then mondico(c) = ""
  Next c
  temp = mondico.keys
  Call tri(temp, LBound(temp), UBound(temp))
  Me.ComboBox1.List = temp
  SendKeys "{F4}"
End Sub

JB
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

P
  • Résolu(e)
Microsoft 365 Validation des données avec VBA
2
Réponses
16
Affichages
539
pat66
P
D
  • Résolu(e)
Microsoft 365 Validation des données avec formule + liste déroulante dans la même cellule
Réponses
8
Affichages
1 K
de_hanstrapp
D
Roland_M
  • Question Question
XL 2016 concerne la validation des données avec vba !?
Réponses
8
Affichages
922
Staple1600
Staple1600
S
  • Résolu(e)
Autres ActiveWorkbook.Worksheets("vierge").AutoFilter.Sort.SortFields.Clear
2
Réponses
23
Affichages
3 K
AtTheOne
AtTheOne
fanch55
Excel: "Validation des données" en Vba
Réponses
13
Affichages
2 K
Gégé-45550
Gégé-45550
P
  • Résolu(e)
Microsoft 365 Cellule avec liste déroulante ou pas, sous condition par macro
Réponses
5
Affichages
673
pat66
P
A
  • Question Question
XL 2013 erreur 1004 définie par l'application ou par l'objet
2
Réponses
27
Affichages
2 K
adet ruireux
A
F
  • Question Question
XL 2013 VBA - Indirect - Validation de données
Réponses
11
Affichages
3 K
FGV
F
N
  • Question Question
XL 2016 Mettre un nombre égal de caractères dans textbox
Réponses
12
Affichages
1 K
NadJP
N
I
  • Résolu(e)
XL 2019 VBA - Liste déroulante à partir de cellules d'une autre feuille
Réponses
13
Affichages
4 K
Stéphane_1
S
B
  • Résolu(e)
XL 2016 Sélection dernière ligne, création de liste déroulante X fois, macro vba
Réponses
8
Affichages
3 K
BARNS
B
E
  • Question Question
Microsoft 365 VBA Calendrier, rien ne se passe.
Réponses
12
Affichages
1 K
fanch55
fanch55
M
  • Question Question
XL 2010 probleme de validation par liste avec vba
Réponses
2
Affichages
1 K
moialbert2
M
T
  • Résolu(e)
XL pour MAC lenteur du vba
2
Réponses
16
Affichages
3 K
Bernard_XLD
Bernard_XLD
T
  • Question Question
XL 2019 probleme dans une macro
Réponses
3
Affichages
1 K
mapomme
mapomme
W
  • Question Question
XL 2013 Liste de validation
Réponses
1
Affichages
1 K
Dudu2
Dudu2
D
  • Question Question
XL 2013 Erreur d'exécution '1004'
Réponses
4
Affichages
1 K
Disiz4K
D
KTM
  • Question Question
XL 2016 validation de donnees dans cellule
Réponses
2
Affichages
931
KTM
KTM
P
  • Résolu(e)
XL 2016 Liste déroulantes VBA trop longues
Réponses
7
Affichages
2 K
fanch55
fanch55
C
  • Résolu(e)
XL 2013 Créer une liste de validation avec VBA
Réponses
2
Affichages
2 K
Chrystel01
C
Retour