Papynou
XLDnaute Occasionnel
Bonjour le forum,
Jusqu'au cou enlisé dans les ListView alors je post et repost
Dans le ListView1, j'ai mis les CheckBox = True et maintenant je veux lorsque l'un d'entre eux est coché que la ligne sélectionnée remplisse UserForm2 qui attend gentiment avec ses TextBox1 à TextBox18 toutes vides.
Je pense avoir un morceau du code
Private Sub ListView1_ItemCheck(ByVal item As MSComctlLib.ListItem)
Dim ??? As ???
??? =
If item.Checked = True Then
ThisWorkbook.Worksheets("Feuille1").Cells.Find(What:= ???, After:=ActiveCell, LookIn:=xlFormulas, lookat:=xlPart, searchorder:=xlByColumns, searchdirection:=xlNext, MatchCase:=False).Activate
UserForm2.TextBox1 = ActiveCell.Value
UserForm2.TextBox2 = ActiveCell.Offset(0, 1).Value
UserForm2.TextBox18 = ActiveCell.Offset(0, 17).Value
End If
End Sub
Si vous avez en magasin les morceaux qui me manque, je suis preneur
Jusqu'au cou enlisé dans les ListView alors je post et repost
Dans le ListView1, j'ai mis les CheckBox = True et maintenant je veux lorsque l'un d'entre eux est coché que la ligne sélectionnée remplisse UserForm2 qui attend gentiment avec ses TextBox1 à TextBox18 toutes vides.
Je pense avoir un morceau du code
Private Sub ListView1_ItemCheck(ByVal item As MSComctlLib.ListItem)
Dim ??? As ???
??? =
If item.Checked = True Then
ThisWorkbook.Worksheets("Feuille1").Cells.Find(What:= ???, After:=ActiveCell, LookIn:=xlFormulas, lookat:=xlPart, searchorder:=xlByColumns, searchdirection:=xlNext, MatchCase:=False).Activate
UserForm2.TextBox1 = ActiveCell.Value
UserForm2.TextBox2 = ActiveCell.Offset(0, 1).Value
UserForm2.TextBox18 = ActiveCell.Offset(0, 17).Value
End If
End Sub
Si vous avez en magasin les morceaux qui me manque, je suis preneur