Discussion :

[r.morel]

Bonjour,
J'intègre une validation de données dans une suite de cellule, grâce au code suivant :

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
    Dim V3 As Integer
    V3 = 12
    While Sheets("Feuil1").Cells(V3, 1) <> ""
    Sheets("Feuil1").Select
    Cells(V3, 12).Select
        If Not ActiveCell <> "" Then
            With Selection.Validation
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="=Listes_menus_deroulants!$A$2:$A$27"
                .IgnoreBlank = True
                .InCellDropdown = True
                .ShowInput = True
                .ShowError = True
            End With
        End If
        V3 = V3 + 1
    Wend
Else

Cependant je ne parviens pas à comprendre comment remplacer la plage par une variable

Merci par avance.
Cordialement.

[Philippe Tulliez]

Bonjour,
Tu sélectionnes la plage $A$2:$A$27 de la feuille [Listes_menus_deroulants], tu sélectionnes la référence A2 dans la zone des noms et tu tapes le nom que tu souhaites donner à cette plage en validant à l'aide de la touche Entrée. Le nom aura une portabilité classeur.
Si tu souhaites que le nom ne soit connu que dans une feuille, il faut passer par le gestionnaire de nom ou faire précéder le nom que par le nom de la feuille suivi du point d'exclamation.
Pour rendre la plage dynamique, il faut transformer la plage en tableau.
Le code en VBA doit alors être (code non testé, tapé de mémoire)

Code :

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

Formula1:="=leNomDeLaPlage"

ou

Code :

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

Formula1:="=NomDeLaFeuille!leNomDeLaPlage"

[Invité]

je sais pas si j'ai bien compris!

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
Dim R As Range
    While Sheets("Feuil1").Cells(V3, 1) <> ""
     Set R = Sheets("Feuil1").Cells(V3, 12)
            If R = "" Then
            With R.Validation
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="=Listes_menus_deroulants!$A$2:$A$27"
                .IgnoreBlank = True
                .InCellDropdown = True
                .ShowInput = True
                .ShowError = True
            End With
        End If
        V3 = V3 + 1
    Wend

[r.morel]

je sais pas si j'ai bien compris!

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
Dim R As Range
    While Sheets("Feuil1").Cells(V3, 1) <> ""
     Set R = Sheets("Feuil1").Cells(V3, 12)
            If R = "" Then
            With R.Validation
                .Delete
                .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
                xlBetween, Formula1:="=Listes_menus_deroulants!$A$2:$A$27"
                .IgnoreBlank = True
                .InCellDropdown = True
                .ShowInput = True
                .ShowError = True
            End With
        End If
        V3 = V3 + 1
    Wend

Bonjour,
Je n'ai peut être pas bien formulée ma question : mais l'objectif est de faire varier la plage : "Listes_menus_deroulants!$A$2:$A$27" pour assurer un bon fonctionnement lors de la modification de la plage.
Merci.

[Thautheme]

Bonjour le fil, bonjour le forum,

Je pense que ma proposition du post #4 devrait convenir. L'as-tu regardée ?

[r.morel]

Oui.
J'étais justement dessus. Elle ne renvoie pas d'erreur, cependant les cellules "traitées" ne contiennent pas de validation de données.

Je ne comprend pas pourquoi.

Merci.

[r.morel]

Bonjour,
Tu sélectionnes la plage $A$2:$A$27 de la feuille [Listes_menus_deroulants], tu sélectionnes la référence A2 dans la zone des noms et tu tapes le nom que tu souhaites donner à cette plage en validant à l'aide de la touche Entrée. Le nom aura une portabilité classeur.
Si tu souhaites que le nom ne soit connu que dans une feuille, il faut passer par le gestionnaire de nom ou faire précéder le nom que par le nom de la feuille suivi du point d'exclamation.
Pour rendre la plage dynamique, il faut transformer la plage en tableau.
Le code en VBA doit alors être (code non testé, tapé de mémoire)

Code :

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

Formula1:="=leNomDeLaPlage"

ou

Code :

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

Formula1:="=NomDeLaFeuille!leNomDeLaPlage"

Bonjour,
Merci pour votre réponse mais cela me renvoie le défaut suivant : 1004

[Thautheme]

Bonjour le fil, bonjour le forum,

Si j'ai bien compris, essaie comme ça :

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
Sub Macro1()
Dim L As Object 'déclare la variable L (onglet Liste_menus_deroulants)
Dim DL As Integer 'déclare la variable DL (Dernière Ligne)
Dim PL As Range 'déclare la variable PL (PLage)
Dim O As Object 'déclare la variable O (onglet)
Dim CEL As Range 'déclare la variable CEL (CELlule)
 
Set L = Sheets("Listes_menus_deroulants") 'définit l'onglet L
DL = L.Cells(Application.Rows.Count, 1).End(xlUp).Row 'définit la dernière ligne éditée DL de la colonne 1 (=A) de l'onglet L
Set PL = L.Range("A2:A" & DL) 'définit la plage PL
Set O = Sheets("Feuil1") 'définit l'onglet O
Set CEL = O.Cells(12, 1).End(xlDown).Offset(1, 0) 'définit la cellule CEL
With CEL.Validation 'prend en compte la validation de données de la cellule CEl
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
    xlBetween, Formula1:="=Listes_menus_deroulants!" & PL.Address
    .IgnoreBlank = True
    .InCellDropdown = True
    .ShowInput = True
    .ShowError = True
End With
End Sub