Discussion :

[flappy]

Bonjour,

J'ai un problème dans l'écriture d'une fonction qui doit créer une liste déroulante dans une cellule (validation) en se basant sur des valeurs qui sont dans une colonne d'une autre feuille. Ce qui me complique la tâche c'est que la longueur de la liste n'est pas constante et varie en fonction de la colonne.

Je suis parti de ceci:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 Cells(1, 5).Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$A$1:$A$8"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "Sélection"
        .ErrorTitle = ""
        .InputMessage = "Choisissez une valeur"
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

mais je n'arrive pas à écrire le champ "Formula1" sachant que la nom de la feuille où se trouve la liste avec les valeurs est passé en paramètre ainsi que la colonne visée et que la dernière ligne de la liste doit soit être aussi passée en paramètre soit idéalement calculée.

J'espère que j'ai été clair dans la description de mon problème. En parcourant le forum, je n'ai pas vu de solution à mon problème.

Merci d'avance pour votre aide

Renaud

[unparia]

Bonjour

Ma réponse sous forme d'un exemple :

- Remplis comme tu l'entends la colonne A de Feuil1 , à partir de A1
- lance ce code depuis une autre feuille :

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
 Dim F As Worksheet, adresse As String
  Set F = Worksheets("Feuil1")
  derlig = F.Range("A" & Rows.Count).End(xlUp).Row
  adresse = F.Range("A1:A" & derlig).Address
  With Cells(1, 5).Validation
    .Delete
    .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
     xlBetween, Formula1:="=" & F.Name & "!" & adresse
    .IgnoreBlank = True
    .InCellDropdown = True
    .InputTitle = "Sélection"
    .ErrorTitle = ""
    .InputMessage = "Choisissez une valeur"
    .ErrorMessage = ""
    .ShowInput = True
    .ShowError = True
  End With

et va voir ce que tu as en cellule E1

[Promethee25]

Bonjour,

Voici un exemple (en supposant que tes listes commencent en D1 sur Feuil2 & Feuil3 sinon tu peux utiliser une plage nommée à portée locale ayant le même nom sur chaque onglet; sinon pour calculer la zone à réellement sélectionner, tu as donné trop peu d'informations):

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
Sub creerValidationDeDonnees(sheetName As String)
    With Cells(1, 5).Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=" & Worksheets(sheetName).Range("D1").CurrentRegion.Address(, , , True)
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "Sélection"
        .ErrorTitle = ""
        .InputMessage = "Choisissez une valeur"
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub
 
Sub test1()
    creerValidationDeDonnees "Feuil2"
End Sub
 
Sub test2()
    creerValidationDeDonnees "Feuil3"
End Sub

Edit: grillé... :-)

[flappy]

Merci pour vos réponses rapide, je regarde ça au plus vite et vous dit quoi

[XLRATOR]

Bonjour à tous,
Sans vouloir vous importuner les amis, je me demande seulement s'il est vraiment nécessaire de passer par le VBA pour réaliser un truc pareil, en plus d'Excel 2010 qui permet la validation sur des feuilles différentes, à mon avis quelques petits jeux de formules permettrait de le faire à l'exemple du fichier Ms Excel que j'attache à ce poste.

A moins que je n'aie pas trop compris le problème.

Bien cordialement.

[unparia]

Bonjour XLRATOR
Tu n' "importunes" personne, bien au contraire.
Ta solution n'est toutefois pas confortable du tout si le développeur utilise par ailleurs VBA car la cohabitation, sur une feuille de calcul, de résultats issus de formules et de saisies ou de résultats issus de VBA est toujours source de problèmes divers et variés et dans plusieurs sens. Entre autres (mais pas uniquement) les modifications par formules ne génèrent aucun évènement.
Le demandeur n'ayant pas précisé cet aspect et ayant ouvert cette discussion dans la section VBA, je ne peux que présumer que son projet utilise également VBA (et ne cours donc aucun risque). D'autant que nous ignorons tout du reste de son appli et des cellules susceptibles d'être impactées en cascade.