Créer une liste déroulante dans une cellule avec vba

Version imprimable

08/07/2014, 18h05
destroyed

Créer une liste déroulante dans une cellule avec vba

Bonjour, j'aimerai s'avoir, si cela est possible bien sur, est-ce qu'il est possible avec vba de créer une liste déroulante dans une certaine celulle qui varie selon le code.

Je veux une liste déroulante simple comme, si j'utiliserai validations des données et list.
Le problème est que je peux pas créer la liste au début, puisque la position de la celulle va être déterminé par le code.

De plus, j'aimerai bien vous fournire le code mais il fait plus de 3 page...

J'espère avoir été claire dans mes termes utilisés.

Merci de l'aide!!

Un exemple de code pour créer une liste par validation de données (l'enregistreur automatique de macro est mon ami) :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
    With Range("C3").Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=A1:A4"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

Il te suffit de changer les paramètre de la ligne Formula pour changer les données de la liste.

08/07/2014, 19h04
destroyed

Merci, pour votre réponse aussi rapide. C'est ce que je voulais!
08/07/2014, 19h06
Menhir

La prochaine fois, essaye l'enregistreur automatique de macro. Il apporte beaucoup de réponses.

J'ai un problème avec :

Code:

1
2
Worksheets("Planification").Cells(l + 7, i + 2).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                        xlBetween, Formula1:="=Complémentaire!F4:F" + Strings.Trim(Str(finSecteur))

+ Strings.Trim(Str(finSecteur)) me donne toujours un erreur: 1004 Erreur définie par l'application ou par l'objet.

Alors que sur ce site

Il le font comme cela:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
'the function below updates the source range for the data validation 
'based on the number of rows provided by the input 
Private Sub Update_DataValidation(ByVal intRow As Integer)
'the reference string to the source range 
Dim strSourceRange As String 
 
strSourceRange = "=Sheet1!A1:A" + Strings.Trim(Str(intRow))
With Sheet2.Range("J2").Validation
    .Delete 
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, _ 
    Operator:= xlBetween, Formula1:=strSourceRange 
    .IgnoreBlank = True 
    .InCellDropdown = True 
    .InputTitle = "" 
    .ErrorTitle = "" 
    .InputMessage = "" 
    .ErrorMessage = "" 
    .ShowInput = True 
    .ShowError = True 
End With 
End Sub

J'ai essayer de le mettre dans une variable string, mais ça me donne la même erreur. Cela fonctionne, quand je mets seulement:

Code:

1
2
Worksheets("Planification").Cells(l + 7, i + 2).Validation.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                        xlBetween, Formula1:="=Complémentaire!F4:F20"

Merci de votre aide!

10/07/2014, 09h19
Menhir

Je ne pense pas que ça va résoudre ton problème mais, pour faire une concaténation de chaîne de caractère, il est conseillé de mettre un & plutôt qu'un +, ça évite les ambiguïtés et les erreurs si l'un des éléments n'est pas une chaîne.