extraction de donnée selectionner Résolu/Fermé

Question

Bonjour à tous,

J'aimerais avoir votre aide pour une chose à laquelle je n'arrive pas à trouver la solution.
j'ai crée une zone de liste à partir du formulaire d'excel 2003, j'y ai mis des valeurs et j'ai choisis selection multiple.
Ma question etant comment extraire automatiquement les valeurs selectionnées?
J'ai parcouru le forum mais n'y ai trouvé que des réponses faisant appelle à VBA que je maitrise trés peu (voir pas du tout).

Merci d'avance pour votre aide,
Sarah

pijaku · Accepted Answer

Bonjour,

Extrait du site de microsoft :

Si vous définissez le type de sélection sur Multiple ou Étendue, la cellule spécifiée dans la zone Cellule liée renvoie la valeur 0 et est ignorée. Les types de sélections Multiple et Étendue nécessitent l'utilisation du code Microsoft Visual Basic pour Applications (VBA). Dans ce cas, utilisez le contrôle ActiveX de zone de liste.

Il vous faut donc utiliser du code VBA ET un contrôle ListBox Activex.

Nous pouvons vous aider à mettre cela en place, suffit de demander...

pijaku · Answer

Les zone de liste sont numérotées elles n'ont pas toutes le même nom.
Il n'y a que des zones de liste dans ta feuille?
Pas de forme, ni d'autres contrôles?

Si ok, voici comment procéder :
1- Ouvrir ton classeur,
2- Te placer sur la feuille contenant toutes tes listes,
3- Taper ALT+F11
4- Insérer un Module standard : menu Insertion/Module
5- Copier-coller ce code dans le module :
Sub MaListe()    Dim i As Integer, ItemSel As String    With Worksheets("base")        For i = 1 To .ListBoxes(Application.Caller).ListCount            If .ListBoxes(Application.Caller).Selected(i) Then                If i = 1 Then                    ItemSel = .ListBoxes(Application.Caller).List(i)                Else                    ItemSel = ItemSel & Chr(10) & .ListBoxes(Application.Caller).List(i)                End If            End If        Next i        For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row            If .Rows(i).Top < .ListBoxes(Application.Caller).Top And .Rows(i).Top + .Rows(i).Height > .ListBoxes(Application.Caller).Top Then Exit For        Next        .Range("G" & i).Value = ItemSel    End WithEnd SubSub Macro_Toutes_Listes()Dim Shp As Shape, i As Longi = 1For Each Shp In ActiveSheet.Shapes    Shp.OnAction = "MaListe"Next ShpEnd Sub 

6- fermer la fenêtre visual basic pour retourner sur la feuille,
7- taper ALT+F8, choisir "Macro_Toutes_Listes et exécuter
8- tester en cliquant sur une liste au hasard...

L'action 7 ne sera à réaliser qu'une seule fois. En cas d'ajout de liste, il faudra néanmoins le refaire...

ton fichier exemple

pijaku · Answer

Bonjour,
De rien.
700 listes, en effet, il fallait faire quelque chose...

Pour ta dernière question, voici la macro souhaitée :
Sub Boucle_Toutes_Listes()Dim Shp As Shape, i As Long, ItemSel As String    With ActiveSheet        For Each Shp In .Shapes            For i = 1 To .ListBoxes(Shp.Name).ListCount                If .ListBoxes(Shp.Name).Selected(i) Then                    If i = 1 Then                        ItemSel = .ListBoxes(Shp.Name).List(i)                    Else                        ItemSel = ItemSel & Chr(10) & .ListBoxes(Shp.Name).List(i)                    End If                End If            Next i            For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row                If .Rows(i).Top < .ListBoxes(Shp.Name).Top And .Rows(i).Top + .Rows(i).Height > .ListBoxes(Shp.Name).Top Then Exit For            Next            .Range("G" & i).Value = ItemSel        Next    End WithEnd Sub

Extraction de donnée selectionner

3 réponses

Discussions similaires