Discussion :

[MrcRafale]

Bonjour,

Je voudrais faire une liste depuis des cellules d'Excel, mais cette plage de cellules est variable.
Si je sélectionne ma plage maximale, j'ai dans la liste des sélections vides,malgré le "ignore blank = true"

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
 
Const lst As String = "=$C4:$C10"
Range("G5").Select
    With Selection.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=lst
        .IgnoreBlank = True
        .InCellDropdown = True
        .InputTitle = "Date"
        .ErrorTitle = "Erreur"
        .InputMessage = ""
        .ErrorMessage = ""
        .ShowInput = True
        .ShowError = True
    End With

[Philippe Tulliez]

Bonjour,
Pour rendre dynamique une liste, il suffit de convertir la plage de cellules la contenant en tableau.
Après avoir sélectionné cette plage, il faut cliquer sur la commande Tableau du groupe Tableaux de l'onglet [Insertion] ou la commande Mettre sous forme de tableau du groupe Style de l'onglet [Accueil]

[MrcRafale]

Bonjour,

En fait je ne peux pas simplement faire ça puisque je me sers ensuite de la valeur saisie dans la liste pour faire une recherche dans le fichier.
En fait, la simple utilité de cette liste est de pouvoir naviguer dans le classeur Excel en cherchant uniquement les noms des onglets. Le morceau de code que j'ai mis vient compléter celui-ci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
Dim Feuille As Worksheet
Dim cherche As String
Private Sub CommandButton1_Click()
cherche = Range("G5").Value
For Each Feuille In Worksheets
  If InStr(1, Feuille.Name, cherche) > 0 Then
  Sheets(cherche).Activate
  End If
Next
End
End Sub

[Philippe Tulliez]

Bonjour,
Je ne comprends pas la raison qui t'empêche de créer une liste dynamique.
De plus le code que tu viens de publier me semble contenir une boucle inutile et pourquoi utiliser Instr alors que la variable Cherche semble avoir le nom complet de la feuille au vu de la ligne

Code :

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

Sheets(cherche).Activate

Cette ligne suffit amplement

Code :

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

Sheets(Range("A5").Value).Activate

[MrcRafale]

Je veux créer ma liste dynamique en G5, et les données sont en C3. Je ne comprends pas comment je fais, une fois que j'ai créé le tableau, pour dire à G5 "prends toutes les valeurs du tableau d'à côté sauf les cases vides", puisque ce tableau n'a aucune référence

[Philippe Tulliez]

Bonjour,
Pourquoi placer la liste sur la même feuille
Tu crées une feuille où tu places test paramètres dont par exemple cette liste de dates les unes après les autres (par exemple A1:A10 où tu mets le titre en A1. Tu nommes la plage A2:A10 à l'aide du gestionnaire des noms tu transformes ensuite la plage A1:A10 en tableau (en n'oubliant pas de cocher l'option Mon tableau comporte des en-têtes)
Dans l'outil Validation de données, tu fais référence au nom que tu as donné et tu pourras ajouter et/ou supprimer des éléments de ta liste comme tu l'entends sans avoir besoin d'avoir des cellules vides)