Discussion :

[grenouille18]

je veux créer un menu déroulant avec Excel dans la feuille 2 avec des données de la feuille 1 et choisir le nombre de données présentes dans le menu déroulant avec une varaible

en utilisant le VBA

jusqu'a présent j'utilise ce programme

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
With Selection.Validation
 
 .Delete
 .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=AB1:AB21"
 .IgnoreBlank = True
 .InCellDropdown = True
 .InputTitle = ""
 .ErrorTitle = ""
 .InputMessage = ""
 .ErrorMessage = ""
 .ShowInput = True
 .ShowError = True
 
End With

ca marche trés bien, mais il faut que les donées soient sur la feuille 2 et je veux pouvoir définir le nombre de données avec un variable

si quelqu'un peu me venir en aide
merci

[boisgontierjacques]

Bonjour,

-Une solution simple:

Définir un nom de champ dynamique avec la fonction Decaler()

Boisgontier

[grenouille18]

Bonjour,

la fonction Decaler() fonctionne trés bien si je l'utilise dans une cellule,

je voudrais faire fonctionner cette fonction en Macro, je viens d'essayer avec offset mais ca me genere une erreur 1004

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 With Selection.Validation
 
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween, Formula1:="=offset(CAVE!AB1,2,4,2,3)"
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = ""
    .ErrorTitle = ""
    .InputMessage = ""
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True

Je ne vois pas ce qui ne va pas ?

[grenouille18]

Bonjour,

la commande :

Code :

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

1
2
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=VINCasier1!$L$9:$L$11"

fonctionne à présent, il à fallue que je passe par l'enregistreur de Macro

Maintenant je voudrais mettre des variables dans la formule pour changer le nom de la feuille

ex : VINCasier1 , VINCasier2 ,......

ET le numero des lignes