Macro Excel : 1 code pour 25 ListBox ???
Résolu
Elodie
-
Elodie -
Elodie -
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
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 ???
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Déplacer colonne excel - Guide
- Si ou excel - Guide
2 réponses
Re
après avoir fouillé dans ton classeur (sans explication !!), la proposition :
dans la Private Sub CommandButton1_Click()
bonne suite et à plus si des questions
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
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