Discussion :

[destroyed]

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!!

[Menhir]

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

Code :

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

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.

[destroyed]

Merci, pour votre réponse aussi rapide. C'est ce que je voulais!

[Menhir]

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

[destroyed]

J'ai un problème avec :

Code :

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

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 :

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
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 :

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

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!

[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.