Discussion :

[Siuko]

Bonjour
Je développe une macro la ou je travail et sa fais 1 semaine que j'ai appris le vba, et je suis confronter a une difficulté.
Je suis désolé de ne pas pouvoir fournir le vrai code car aucune donné na le droit de sortir de la société...

en bref:

J'ai créer une liste déroulante dans un tableau excel grâce a un code vba. Les valeurs qui sont dans les liste déroulante ne sont pas enregistrer sur une feuil et même nul pars.
Du coup pour une autre fonction de ma macro j'aurais besoin de récupérer ces valeurs

exemple du code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
For i=1 to nb_ruban
      Controls("TextBox_ruban_" & i).value = Sheets("Base").Range("M5")   'J'aimerais avec une chose du genre .Item ou .column mais sa marche pas
next

J'ai déja essayer plein de chose, mais je ne peux pas enregistrer les veleur de ma liste déroulante dans une feuille ! je precise que la liste déroulant a bien été faite par le vba avec la Validation.

Merci de votre aide, je vais essayer de vous fournir plus de détail si besoin car il n'y a pas d'internet dans la société.

[SfJ5Rpw8]

Bonsoir,

as tu le code de création de ta liste déroulante ?

[Siuko]

Non ... comme j'ai dis c'est trés sécuriser dans la société...
de mémoire.

Code vba :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
for i=1 to nb_ruban
nameRuban = Controls("TextBox_ruban_" & i).value
liste_ruban=liste_ruban + "," + nameRuban
next
With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=liste_ruban
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Voici en gros la structure du code qui marche tres bien car ma liste déroulate se créer correctement dans mon tableau avec le ruban_1 en défaut comme valeur. "ce code est fait de mémoir"

[gFZT82]

Bonjour,

Essaie avec

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
    For i = 1 To nb_ruban
        Controls("TextBox_ruban_" & i) = Split(Sheets("Base").Range("M5").Validation.Formula1, ";")(i - 1)
    Next

Cordialement.

[Siuko]

Merci gfzt82
ton code marche.