Bonsoir tout le monde
je veux transferer les donnees d'une listbox vers une colonne à partir de la ligne 4 le souci c'est que mon code fait un décalage au lieu de la cellule 4 il transfert mes donnees a partir de la cellule 3
Voici mon code
Private Sub CommandButton4_Click()
Dim rep As Integer
Application.Calculation = xlCalculationManual
If ListView1.ListItems.Count = 0 Then Exit Sub
rep = MsgBox("Soyez Sûr Des Quantités" & Chr(10) & "Voulez-Vous Valider cette opération ????", vbYesNo + vbQuestion)
With Worksheets("STOCK")
If rep = vbYes Then
a = Me.ListBox7.List
Set r = .Range("C4", .Range("C" & .Rows.Count).End(xlUp))
r.Resize(UBound(a)) = a
Else
Exit Sub
End If
End With
Sheets("STOCK").Calculate
Unload Me
UserForm13.Show
End Sub
je veux transferer les donnees d'une listbox vers une colonne à partir de la ligne 4 le souci c'est que mon code fait un décalage au lieu de la cellule 4 il transfert mes donnees a partir de la cellule 3
Voici mon code
Private Sub CommandButton4_Click()
Dim rep As Integer
Application.Calculation = xlCalculationManual
If ListView1.ListItems.Count = 0 Then Exit Sub
rep = MsgBox("Soyez Sûr Des Quantités" & Chr(10) & "Voulez-Vous Valider cette opération ????", vbYesNo + vbQuestion)
With Worksheets("STOCK")
If rep = vbYes Then
a = Me.ListBox7.List
Set r = .Range("C4", .Range("C" & .Rows.Count).End(xlUp))
r.Resize(UBound(a)) = a
Else
Exit Sub
End If
End With
Sheets("STOCK").Calculate
Unload Me
UserForm13.Show
End Sub