• Initiateur de la discussion Initiateur de la discussion PepT
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

PepT

XLDnaute Nouveau
Bonjour
dans mon userform, j'ai une macro qui fait une boucle sur plusieurs fichiers, et je voudrai qu'elle m'affiche (ds ma zone de texte) la liste de tous les noms repondant à la condition, mon problème est que seul l dernier nom repondant a la condition est affiché.
please help
 
Re : Userform

voila mon code

Private Sub CommandButton1_Click()

For Each ws In ThisWorkbook.Worksheets
ws.Activate
If ENQUETEURS.TextBox1 = "TRA08E" Then
For i = 1 To Range("c1").End(xlDown).Row
If Cells(i, 3).Value = "TRA08E" Then ENQUETEURS.TextBox4 = Range("B2")
Next i
End If
Next ws
End sub

donc en fait ds chaque feuille il faut recupérer le nom ds la cellule B2
 
Re : Userform

re

essaies

Private Sub CommandButton1_Click()

Dim MaVar

For Each ws In ThisWorkbook.Worksheets
ws.Activate
If ENQUETEURS.TextBox1 = "TRA08E" Then
For i = 1 To Range("c1").End(xlDown).Row
If Cells(i, 3).Value = "TRA08E" Then Mavar = iif(mavar="", Range("B2"), mavar & ", " & range("B2"))
Next i
End If
Next ws
ENQUETEURS.TextBox4 = mavar

End sub
 
Re : Userform

re

remplaces

Mavar = iif(mavar="", Range("B2"), mavar & ", " & range("B2"))

par

Mavar = iif(mavar="", Range("B2"), mavar & vbLf & range("B2"))

ou

Mavar = iif(mavar="", Range("B2"), mavar & chr(10)& range("B2"))

Attention il faut bien veiller à ce que ton textbox est sa propriété mulitline à true
 
Re : Userform

Bonjour
bonjour pascal

une autre approche :

Code:
Private Sub UserForm_Initialize()
Me.TextBox4.MultiLine = True
End Sub

Private Sub CommandButton1_Click()
For i = 1 To Sheets.Count
    With Sheets(i)
    If ENQUETEURS.TextBox1 = "TRA08E" Then
        Set c = .Columns("C:C").Find(What:="TRA08E", LookAt:=xlWhole)
        If Not c Is Nothing Then tablo = tablo & vbLf & .[B2]
    End If
    End With
Next i
Me.TextBox4 = Right(tablo, Len(tablo) - 1)
End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
16
Affichages
787
Retour