Ligne en trop
Résolu
Bonjour,
j ai un soucis avec un fichier
je vous le mets en exemple pour mieux comprendre le problème
https://www.cjoint.com/?DGcaz47a5pm
merci de votre aide encore
Slts A bientôt
Surplus
j ai un soucis avec un fichier
je vous le mets en exemple pour mieux comprendre le problème
https://www.cjoint.com/?DGcaz47a5pm
merci de votre aide encore
Slts A bientôt
Surplus
3 réponses
-
Re
ça fonctionne très bien
merci de cet aide précieuse
Slts A bientôt
Surplus -
bonjour
J'ai regardé ça répète la ligne quand j'arrive a "Next"
mais je peux pas l'enlever
Je dois modifier toute la formule?-
ContributeurRe le Forum
Il faut vérifier que la cellule n'est pas vide avant de faire le traitement.Sub fact_articles()
Dim Cel As Range
Dim Ligne_mouv As Long
Application.ScreenUpdating = False
With Worksheets("Mouv_ventes")
.Activate
.Unprotect
For Each Cel In Range("ref_vente")
Ligne_mouv = Worksheets("Mouv_ventes").Cells(Rows.Count, "A").End(xlUp).Row + 1
If Not IsEmpty(Cel) Then
.Cells(Ligne_mouv, 1).Value = Cel.Offset(0, 0)
.Cells(Ligne_mouv, 2).Value = Cel.Offset(0, 1)
.Cells(Ligne_mouv, 3).Value = Cel.Offset(0, 2)
.Cells(Ligne_mouv, 4).Value = Format(Now, "dd/mm/yyyy")
.Cells(Ligne_mouv, 5).Value = Worksheets("Facture_Devis").Range("K2")
.Cells(Ligne_mouv, 6).Value = Worksheets("Facture_Devis").Range("L2")
'.Cells(Ligne_mouv, 7).Value = Range("N°_fact") 'Worksheets("Facture_Devis").Range("L2")
End If
Next Cel
.Protect
End With
Application.ScreenUpdating = True
End Sub
Mytå
-
-
ContributeurSalut le Forum
Dans le module 5 » Sub fact_articles()
Installe un point d'arrêt, et examine le déroulement en pas à pas.
Mytå
