Forcer le choix dans une liste déroulante

**jarault** · 02/07/2008, 16h51

Bonjour,

Je souhaiterais savoir s'il est possible de choisir une valeur spécifique par défaut dans une liste déroulante.
Mon problème est le suivant: j'ai une liste déroulante qui est alimentée par la zone A1:A100, à chaque fois que je sélectionne l'onglet ou se trouve cette liste la zone A1:A100 celle-ci est triée alphabétiquement, comme certaine cases sont parfois vide dans cette zone, les cases vides se retrouvent en haut de la liste:
A1:
A2:
A3:
A4: PRODUIT1
A5: PRODUIT2
....
S'il n'y a qu'une ou deux cases vides c'est gérable, par contre lorsqu'il y en a plusieurs cela devient contraignant car il faut descendre dans la liste déroulante avant de pouvoir apercevoir les premières valeurs.

Est-il possible de forcer la liste déroulante à se positionner sur la première case non vide de la plage A1:A100 ou alors, lors du tri ne pas avoir les cases vides en premier ?

Merci par avance de votre aide,

Jarault

**fring** · 02/07/2008, 16h56

Bonjour,

Comment est triée ta colonne ?
Une colonne triée par ordre alphabétique, tri croissant, les cellules vides se retrouvent en fin de liste

**casefayere** · 02/07/2008, 17h02

Bonjour,
un truc du genre :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Set PLAGE = .Range("a1", .Range("a1").End(xlDown))
    Set PLAGE = PLAGE.Cells.SpecialCells(xlCellTypeVisible)
    With 'ta liste
    .Clear
    For Each cel In PLAGE
'tes colonnes
      .AddItem cel(1, 0)
          .BoundColumn = 1
    Next cel
 
    End With

Peut-etre !!!

**jolzeviking** · 02/07/2008, 17h14

Code :

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

1
2
3
4
5
 
Dim base7 as string
 
    Zone_a_trier = Range("dep1").Address & ":" & Range("dixhuit").Offset(-1, 0).Address
    Range( Zone_a_trier ).Sort key1:=Range("dep1"), order1:=xlAscending

dep1 est le nom de la cellule de départ et dixhuit celle de fin de liste
Voila un code qui trie correctement les cellules, code donné par un des entraideurs.

**casefayere** · 02/07/2008, 17h15

Ou mieux

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
Application.ScreenUpdating = False
With sheets("feuil1") 
    If .AutoFilterMode Then
     .AutoFilterMode = False
    End If
    .Range("a1").AutoFilter
    .Range("a1").AutoFilter Field:=2, Criteria1:="*"
    Set PLAGE = .Range("a1", .Range("a1").End(xlDown))
    Set PLAGE = PLAGE.Cells.SpecialCells(xlCellTypeVisible)
    With ta listbox
    .Clear
    For Each cel In PLAGE
      .AddItem cel(1, 0)
         Next cel
 
    End With
Selection.AutoFilter
.Select
If .AutoFilterMode Then
    .AutoFilterMode = False
    End If
End With
Application.ScreenUpdating = True
End Sub

**jarault** · 02/07/2008, 17h40

Envoyé par fring

Bonjour,

Comment est triée ta colonne ?
Une colonne triée par ordre alphabétique, tri croissant, les cellules vides se retrouvent en fin de liste

La macro utilisée pour le tri est la suivante:

Code :

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

1
2
3
4
5
6
7
Sub TriAlphabetique()
 
    Range("A1:A100").Select
    Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
        DataOption1:=xlSortNormal
End Sub

**fring** · 02/07/2008, 17h49

Teste le code ci-dessous

Code :

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

1
2
3
4
Sub TriAlphabetique()
    Range("A1:A" & Range("A65535").End(xlUp).Row).Sort Key1:=Range("A1"), _
    Order1:=xlAscending, Header:=xlGuess
End Sub

La colonne est trièe et les cellules vides renvoyées en fin de tri

**jarault** · 02/07/2008, 17h55

Pour l'instant aucunes des réponses ne semble fonctionner.
Je pense que le problème vient peut-être du fait que les données contenues dans la zone A1:A100 sont en fait des formules car les données d'origines sont sur une autre feuille(du même classeur) car pour pouvoir utiliser une liste déroulante (crées à partir de Données-Validation) il faut que les données soient sur la même feuille.

**ilcocodrillo** · 02/07/2008, 18h15

Non pas si tu nomme ta liste. Dans ce cas tu peux utiliser ce nom depuis une autre feuille

**casefayere** · 02/07/2008, 19h11

je ne connais pas ton fichier mais je t'envoies un exemple simplifié (fait en excel2007, enregistré en compatible excel)

**jarault** · 04/07/2008, 13h05

Envoyé par casefayere

je ne connais pas ton fichier mais je t'envoies un exemple simplifié (fait en excel2007, enregistré en compatible excel)

Je n'utilise pas une listbox mais une liste déroulante, ce n'est pas la même chose, sinon ton exemple fonctionne bien effectivement.

Envoyé par fring

Teste le code ci-dessous

Code :

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

1
2
3
4
Sub TriAlphabetique()
    Range("A1:A" & Range("A65535").End(xlUp).Row).Sort Key1:=Range("A1"), _
    Order1:=xlAscending, Header:=xlGuess
End Sub

La colonne est trièe et les cellules vides renvoyées en fin de tri

Cette fonction marche si les données sont brut parcontre comme ma zone contient des formules du type =SI(Feuil1!A1="";"";Feuil1!A1) cela met en premier les cellules "vides", ou alors il faut que je mette quelques chose du genre:=SI(Feuil1!A1="";"ZZZZZ";Feuil1!A1) mais bon c'est pas très esthétique.

**zazaraignée** · 04/07/2008, 14h28

Trié ou pas trié, ceci fonctionne

Dans le code de l'événement Activate de la feuille ou se trouve la liste déroulante...

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Private Sub Worksheet_Activate()
    Dim i As Integer
    With cmbParfum
        If .Text = "" Then
            For i = 0 To .ListCount - 1
                If .List(i) <> "" Then
                    .ListIndex = i
                    Exit For
                End If
            Next
        End If
    End With
End Sub

**jarault** · 04/07/2008, 16h37

Le principe du Worsheet_Activate me convient par contre la macro bloque à : If .Text = "" Then
C'est bizarre car la formule est bien du genre '=SI(Feuil1!A1="";"";Feuil1!A1)'

Jarault

**zazaraignée** · 05/07/2008, 05h13

Que viennent faire les formules de cellules ici ? Je croyais qu'il s'agissait d'un ComboBox (pas celui de la barre d'outils Formulaire mais celui de la barre d'outils Contrôle) lié à une cellule pour le résultat et dont le contenu provient d'une plage de cellules... Donc, respectivement les propirétés LinkedCell et ListFillRange.

Pour l'exemple que j'ai donné plus haut, j'ai nommé une plage de cellules de la feuil2 au nom de parfums et qui contient des parfums de glaces (vanille, fraise, etc.) en laissant des cellules vides un peu partout au travers (juste pour fins de l'exemple, même si d'un point de vue pratique, ce n'est pas trop logique).

J'ai réglé les propriétés de mon ComboBox comme suit directement dans la fenêtre Propriétés :

Code :

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

1
2
3
4
Propriété :     Valeur
Name :          cmbParfum
LinkedCell :    B2
ListFillRange : parfums

Il reste à adapter pour appliquer le principe avec ton classeur de façon cohérente.

Il reste que les options de tri précédemment mentionnées par les autres potes sont toujours valables (selon moi...).

**jarault** · 07/07/2008, 12h23

ZAZARAIGNEE, je n'ai jamais parlé de listbox, il s'agit bien d'une liste déroulante.

**fring** · 07/07/2008, 13h05

La confusion vient du terme utilisé "liste déroulante", si j'ai bien compris il s'agit d'une liste de validation

Et tu as eu la réponse à ton problème ICI

tu nommes ta plage A1:A100 (exemple Plage1)
dans tes critères de validation --> Source : =Plage1

Forcer le choix dans une liste déroulante

Macros et VBA Excel

Discussions similaires

Partager

Partager