Macro Excel : 1 code pour 25 ListBox ???

Résolu/Fermé

Elodie - 22 août 2011 à 16:43
Elodie - 24 août 2011 à 09:43

Bonjour,

J'ai plusieurs ListBox pour lesquelles je veux utiliser le meme code, sans avoir à le retaper 25 fois. Est-il possible d'appliquer ce genre de code dans ce cas (sachant que mes ListBox ne sont pas dans le meme cadre) ?

Dim Ctrl As Control

For Each Ctrl In Frame2.Controls
If Ctrl.Object.Value = True Then
Range("B6").Value = Ctrl.Object.Caption
Exit For
End If
Next Ctrl

Le code de mes ListBox est le suivant :

Function ConcaTList() As String
Dim Txt As String
For i = 0 To ListBox1.ListCount
If ListBox1.Selected(i) = True Then
Txt = Txt & ListBox1.List(i)
End If
Next i
suite:
ConcaTList = Txt

End Function

Merci de votre aide !
Elodie

A voir également:

Macro Excel : 1 code pour 25 ListBox ???
Liste déroulante excel - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Formule excel - Guide
Macro word - Guide
Si et excel - Guide

2 réponses

Réponse 1 / 2

Paf
23 août 2011 à 14:09

Re

après avoir fouillé dans ton classeur (sans explication !!), la proposition :

dans la Private Sub CommandButton1_Click()

        Range("A1") = ConcaTList(1)
        Range("B1") = ConcaTList(2)
        Range("C1") = TextBox1.Text
        Range("B2") = ConcaTList(9)
        Range("C2") = TextBox5.Text
.....

puis une seule fonction:

Function ConcaTList(Param) As String
Dim Txt As String
Dim MonControl As Control
For Each MonControl In Controls
 If MonControl.Name = "ListBox" & Param Then
    For i = 0 To MonControl.ListCount
        If MonControl.Selected(i) = True Then
            Txt = Txt & MonControl.List(i)
        End If
    Next i
End If
Next
suite:
    ConcaTList = Txt
    
End Function

bonne suite et à plus si des questions

Elodie
24 août 2011 à 09:43

Bonjour Paf,

Effectivement j'ai un complètement zappé les commentaires sur mon fichier. Excuse moi.

Merci pour la fonction unique avec le Paramètre, ça marche nickel !

Bonne continuation et bonne journée
elo

Réponse 2 / 2

Paf
22 août 2011 à 22:03

bonjour

Pas de réponse directe; mais en voyant le fichier, sans doute une réponse !
un fichier(au format 2003) déposé sur http://cijoint.fr/ permettrait sans doute de répondre plus facilement.

A+

Elodie
23 août 2011 à 09:47

Bonjour Paf,

Le fichier a été déposé à cette adresse : http://www.cijoint.fr/cjlink.php?file=cj201108/cijLSSiA5u.xls

Merci si tu peux m'aider.
Bonne journée

Discussions similaires

Transformer un chiffre en lettres dans excel sans macro

Discussions similaires

Newsletters