- Merci Bill pour l'attention portée à mon problême.
Les renseignements que tu m'as donnés, je les possède déjà.
Voici une macro que j'ai trouvé sur Internet, malheureusement quand je sélectionne une ou plusieurs lignes, toutes les lignes sont automatiquement copiées.
Peux-tu éventuellement regarder ce qui cloche?
Private Sub CommandButton1_Click
Dim element_select As Boolean
Dim nb_elements, i As Integer
element_select = False
nb_elements = UserForm1.ListBox.ListCount
For i = 0 To nb_elements - 1
If UserForm1.ListBox1.Selected(i) = True Then
element_select = True
Exit For
End If
Next
If element_select = False Then
MsgBox "Vous n'avez rien sélectioné."
Exit Sub
End If
Label1.Caption = "Il y a "& nb_elements & " éléments sélectionnés"
Range("C1").Select
For i = 0 To nb_elements - 1
ActiveCell.Value = ListBox1.List(i,0)
ActiveCell.Offset(0,1).Value = ListBox1.List(i,1)
ActiveCell.Offset(1,0).Select
Nest i
End Sub