XL 2019 transfer listbox vers une colonne à partir de la 4 ligne

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 !

escudo

XLDnaute Nouveau
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
 
- 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
3
Affichages
485
Retour