Bonjour à tous,
Je voudrais afficher dans une listebox d'un Userform une feuille.
j'ai donc formaté ma listebox sur deux colonne A et B dans les propriétés
Pour cela j'ai donc écris :
Mon problème est que j'ai bien un aperçu de ma feuille dans la listebox mais de A1 en B3 alors que ma feuille va jusqu'en B10 !
en pas à pas la valeur de :
et B3 ! au lieu de B10 ???
Merci par avance pour vos aides
Je voudrais afficher dans une listebox d'un Userform une feuille.
j'ai donc formaté ma listebox sur deux colonne A et B dans les propriétés
Pour cela j'ai donc écris :
Code:
Private Sub UserForm_Activate()
ka = Sheets("Mail").Range("A1").Value
kb = Sheets("Mail").Range("A2").Value
kc = Sheets("Mail").Range("A3").Value
kd = Sheets("Mail").Range("A5").Value
kj = UserForm10.TextBox1.Value
With UserForm10.ListBox3
For i = 0 To (.ListCount - 1)
If .List(i, 4) > "" Then
Message = Message & .List(i, 1) & " - " & " " & .List(i, 2) & " " & "X" & " " & " " & .List(i, 4) & " - " & vbCrLf
Else
msgbox"Votre liste est vide vous ne pouvez pas envoyer une commande !"
exit sub
End If
Next
End With
Feuil9.Select
Feuil9.Range("B1:B5").ClearContents
Feuil9.Range("B7:B65536").ClearContents
Feuil9.Range("B1").Value = ka & " " & kb & " " & kc
Feuil9.Range("B3").Value = "Veuillez trouver une commande pour" & " " & kd
uz = Feuil9.Range("B65536").End(xlUp).Row + 1
Feuil9.Range("B" & uz).Value = Message
uw = Feuil9.Range("B65536").End(xlUp).Row + 1
Feuil9.Range("B" & uw).Value = kj
Feuil9.Range("B" & uw + 1).Value = "Cordialement" & " " & kd
With Feuil9.Range("A1")
ListBox1.ColumnWidths = 80 & ";" & 400
ListBox1.RowSource = Feuil9.Range(.Cells, .End(xlDown)(1, 2)).Address(External:=True)
Feuil1.Select
End With
'ListBox1.ListIndex = -1
End Sub
Mon problème est que j'ai bien un aperçu de ma feuille dans la listebox mais de A1 en B3 alors que ma feuille va jusqu'en B10 !
en pas à pas la valeur de :
Code:
ListBox1.RowSource = Feuil9.Range(.Cells, .End(xlDown)(1, 2)).Address(External:=True)
et B3 ! au lieu de B10 ???
Merci par avance pour vos aides
Dernière édition: