Discussion :

[MrcRafale]

Bonjour,

J'essaie de créer une liste à partir de données que j'ai en colonne sur une même feuille. Cette plage de cellules est variable, elle va augmenter au fur et à mesure qu'on va remplir le fichier.

Quand je fais un apprentissage, VBA me donne ç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
 
Sub liste()
' liste Macro
    Range("G5").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$C$4:$C$9"
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = ""
        .ErrorTitle = ""
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Ca me fait bien une liste en G5 des données contenues en C4:C9
Sauf que dans mon cas, la cellule C9 n'est pas figée.
Donc j'introduis une variable Ligne (on peut la considérer comme constante vu qu'elle déterminée par une boucle un peu plus haut)
Donc dans ma ligne 7, je veux non plus C9, mais la cellule (Ligne,C)
Les $ ne servent à rien, ça fonctionne toujours quand on les retire.
Je suis finalement arrivé à cette expression :

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
 
Dim Ligne As Integer
Sub lignes()
    Ligne = 4
    Do While Cells(Ligne, 3) <> ""
        Ligne = Ligne + 1
    Loop
    Ligne = Ligne - 1
    MsgBox Ligne
    Range("G5").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=Range(Cells(4, 3), Cells(Ligne, 3))
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "Date"
        .ErrorTitle = "Erreur"
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With
End Sub

Quand on considère que Ligne = 4 (en retirant la boucle au dessus), ça fonctionne : j'ai bien le contenu de C4 dans G5, avec un menu déroulant. Quand on prend toute la boucle, le programme fonctionne jusqu'à "Range("G5").Select" et après il passe en mode débogage.

Quelqu'un saurait m'aider?

[thebenoit59]

Bonjour MrcRafale.

Premièrement, il vaut mieux éviter au maximum les Select, dans cette situation ce n'est pas un soucis en soi, mais autant prendre l'habitude.
Deuxièmement, la partie Formula1:=, attends une formule et pas une expression VBA comme tu as pu le faire.

Essaye ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    With [g5].Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$C$4:$C$" & Ligne
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "Date"
        .ErrorTitle = "Erreur"
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

[Philippe Tulliez]

Bonjour,
Tu ouvres une nouvelle discussion avec la même question posée dans la discussion nommée Création d'une liste dans excel avec VBA.
Discussion où tu n'as même pas répondu à ma dernière réponse que j'ai faite suite à une de tes demandes

Si vous savez comment faire pour avoir un lien hypertexte vers la feuille nommée dans le sommaire, ça me simplifie la tâche et allège l'applicatif

Je ne sais pas si tu te rends compte du temps que l'on passe à répondre d'une façon correcte et en effectuant tous les tests pour que la réponse soit pertinente et que le code fonctionne.
Le minimum est de répondre ou de faire un commentaire sur les interventions.

[MrcRafale]

Bonjour MrcRafale.

Premièrement, il vaut mieux éviter au maximum les Select, dans cette situation ce n'est pas un soucis en soi, mais autant prendre l'habitude.
Deuxièmement, la partie Formula1:=, attends une formule et pas une expression VBA comme tu as pu le faire.

Essaye ainsi :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
    With [g5].Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:="=$C$4:$C$" & Ligne
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "Date"
        .ErrorTitle = "Erreur"
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

C'est nickel, ça marche!! Merci!

[MrcRafale]

Bonjour,
Tu ouvres une nouvelle discussion avec la même question posée dans la discussion nommée Création d'une liste dans excel avec VBA.
Discussion où tu n'as même pas répondu à ma dernière réponse que j'ai faite suite à une de tes demandes
Je ne sais pas si tu te rends compte du temps que l'on passe à répondre d'une façon correcte et en effectuant tous les tests pour que la réponse soit pertinente et que le code fonctionne.
Le minimum est de répondre ou de faire un commentaire sur les interventions.

Bonjour M. Tulliez,

Je n'ai pas vu de réponse à ma question sur le fil que j'ai ouvert ce matin, depuis cette fameuse question sur les liens hypertextes.
J'ai donc passé quelques heures à y réfléchir avec un collègue et c'est ensemble que nous avons choisi de reposter un message.
Si je vous ai offensé d'une quelconque manière que ce soit, je m'en excuse : ce n'était absolument pas volontaire. Cela semblerait plutôt lié à un souci informatique.