Bonsoir Pias, MDF, LN, le Forum,
Oui tu as de la chance Pias, deux Excellentes solutions de deux Excellents Contributeurs de ce Forum et bravo à vous deux...
Mais en tant qu'Inspecteur des Travaux Finis (lol) voici mes commentaires :
Pour Mon Cher Ami et pour Mon Amiral !! Aucun des deux n'a mis un test pour vérifier si un Client, une Ref et une Date était présente avant de lancer le report !!!
Style un petit truc comme ceci en début de procédure :
Dim Cell As Range
For Each Cell In Application.Union(Range("B1"), Range("B3"), Range("B5"))
If Cell = "" Then Exit Sub
Next
Pour Mon Cher Ami, VoumFré 100 Lignes !!!
Dim C As Integer alors que C sert à : For C = 1 To 5 !
Dim DebDetailCom As Long alors qu'il sert à : DebDetailCom = 9 !
(Pour l'autre Long je dis rien mais la tableau actuel fait 20 lignes)
Pour Mon Amiral, VoumFré 100 Lignes (plus vite comme ceci d'ailleurs
With Worksheets("commandes")
.Range("A" & CStr(Ligne)) = CL.Offset(0, -1)
.Range("B" & CStr(Ligne)) = Range("B1")
.Range("C" & CStr(Ligne)) = Range("B3")
.Range("D" & CStr(Ligne)) = Range("B5")
.Range("D" & CStr(Ligne)).NumberFormat = Range("B5").NumberFormat
.Range("E" & CStr(Ligne)) = CL
CL.Value = ""
Ligne = Ligne + 1
End With
Mais bon ce n'est pas grand chose, mais c'est pour faire avancer le chimilimilishclimblick !!!
Bonne Soirée
@+Thierry