Discussion :

[linkcr15]

Bonjour à tous!

Voila grâce à ce bout de code :

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
22
23
24
25
For compteDonnees = 2 To 20000
                    If Sheets("Données").Cells(compteDonnees, 3).Value = "" Then
                        Dim NewAddress As String
                        NewAddress = "M1:M" & compteDonnees - 1
                        Exit For
                    End If
                Next compteDonnees
 
                Sheets("Compte rendu").Activate
                Sheets("Compte rendu").Unprotect ("excel")
                Range("D" & compteur2).Select
                With Selection.Validation
                    .Delete
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween, Formula1:="=" & NewAddress
                    .IgnoreBlank = True
                    .InCellDropdown = True
                    .InputTitle = ""
                    .ErrorTitle = "Interdit"
                    .InputMessage = ""
                    .ErrorMessage = _
                    "Veuillez sélectionner une valeur dans la liste déroulante de la cellule."
                    .ShowInput = True
                    .ShowError = True
                End With

je devrais pouvoir créer une liste déroulante dans une cellule. La liste se créée bien, le problème sont les données qui sont dedans. Mes données se situent dans une feuille "Données". Le problème c'est qu'avec cette ligne :

Code :

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

1
2
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween, Formula1:="=" & NewAddress

Et bien il va chercher les données dans la feuille "Compte rendu" et non dans la feuille "Données". Comment lui indiquer que je souhaite utiliser les données d'une autre feuille svp?

En le faisant par enregistreur de macro, il est impossible de sélectionner une liste dans une feuille différente de celle où l'on veut créer la liste. Est-ce possible de faire ça?

[Daniel.C]

Bonjour,

Code :

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

NewAddress = "Données!M1:M" & compteDonnees - 1

[linkcr15]

Ceci ne fonctionne pas.
J'ai une erreur sur cette ligne là :

Code :

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

1
2
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween, Formula1:="=" & NewAddress

Edit : J'ai essayé en mettant un nom de plage plutôt que d'entrer en dur les coordonnées. Voici le résutat :

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
                ActiveWorkbook.Names("Liste").Delete
                          For compteDonnees = 2 To 20000
                    If Sheets("Données").Cells(compteDonnees, 3).Value = "" Then
                        ActiveWorkbook.Names.Add Name:="Liste", RefersToR1C1:="=Données!R2C3:R" & compteDonnees - 1 & "C3"
                        Exit For
                    End If
                Next compteDonnees
 
                Sheets("Compte rendu").Activate
                Sheets("Compte rendu").Unprotect ("excel")
                Range("D" & compteur2).Select
                With Selection.Validation
                    .Delete
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween , Formula1:="=Liste"
....

Mais cela bloque lors de la suppression du nom de la liste, est-ce que quelqu'un sait pourquoi svp?
PS : Je viens d'y penser, mes feuilles sont protégées mais peut-être que le classeur complet aussi, je vais regarder de ce côté la!

Edit 2 : Le classeur n'est pas protégé, mauvaise piste...

[Daniel.C]

C'est valable avec XL2010. Je regarde.

Quel est le message d'erreur ?

[linkcr15]

Voici l'erreur : Erreur d'exécution '1004':
Erreur définie par l'application ou par l'objet

En me surlignant bien cette ligne :

Code :

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

1
2
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
xlBetween, Formula1:="=" & NewAddress

[linkcr15]

Voila, j'ai finalement trouvé un code qui fonctionne, le voici :

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
ActiveWorkbook.Names("Liste").Delete
                For compteDonnees = 2 To 20000
                    If Sheets("Données").Cells(compteDonnees, 3).Value = "" Then
                        ActiveWorkbook.Sheets("Données").Range("C2:C" & compteDonnees - 1).Name = "Liste"
                        Exit For
                    End If
                Next compteDonnees
 
                Sheets("Compte rendu").Activate
                Sheets("Compte rendu").Unprotect ("excel")
                Range("D" & compteur2).Select
                With Selection.Validation
                    .Delete
                    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                    xlBetween, Formula1:="=Liste"
                    .IgnoreBlank = True

C'est l'ajout du nom Liste qui n'était pas écris correctement, j'ai trouvé cette syntaxe dans l'aide Microsoft.
Merci à toi Daniel.C pour m'avoir aidé en tout cas!