Ligne en trop
Résolu
surplus
Messages postés
673
Date d'inscription
Statut
Membre
Dernière intervention
-
surplus Messages postés 673 Date d'inscription Statut Membre Dernière intervention -
surplus Messages postés 673 Date d'inscription Statut Membre Dernière intervention -
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
A voir également:
- Ligne en trop
- Partager photos en ligne - Guide
- Mètre en ligne - Guide
- Formulaire en ligne de meta - Guide
- Aller à la ligne excel - Guide
- Site de vente en ligne particulier - Guide
3 réponses
Salut le Forum
Dans le module 5 » Sub fact_articles()
Installe un point d'arrêt, et examine le déroulement en pas à pas.
Mytå
Dans le module 5 » Sub fact_articles()
Installe un point d'arrêt, et examine le déroulement en pas à pas.
Mytå
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?
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?
Re le Forum
Il faut vérifier que la cellule n'est pas vide avant de faire le traitement.
Mytå
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å
