Macro Excel : 1 code pour 25 ListBox ??? Résolu

Question

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
Configuration: Windows XP / Internet Explorer 8.0

Paf · Answer

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+

Paf · Answer

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

Macro Excel : 1 code pour 25 ListBox ???

2 réponses

Discussions similaires

Newsletters