bonjour,
l'explication et les colonnes en C0001 ne correspondent pas
Donc cette macro fonctionne "voili, voilou" comme l'explication, mais apparament, il y a plusieurs feuilles ?
Sub C0001()
Set lo = Sheets("Résultat").ListObjects("Tableau1") 'ce tableau
With Sheets("c0001") 'cette feuille
For i = 2 To .Range("A" & Rows.Count).End(xlUp).Row 'boucle des lignes
If WorksheetFunction.CountA(.Cells(i, "G"), .Cells(i, "D"), .Cells(i, "H")) = 3 Then 'ces 3 données sont connus
mymax = 1 'min numéro de facture
If lo.ListRows.Count Then 'Y-a-t-il déjà des factures ?
For Each c In lo.ListColumns("Facture").DataBodyRange.Cells 'boucle ces factures
If Len(c.Value) Then mymax = Application.Max(mymax, --Mid(c.Value, 2) + 1) 'max numéro de facture +1
Next
End If
lo.ListRows.Add.Range.Range("A1").Resize(, 5).Value = Array(CDbl(.Cells(i, "G").Value), .Cells(i, "D").Value, "F" & Format(mymax, "0000"), .Name, .Cells(i, "H").Value) 'ajouter une ligne
End If
Next
End With
End Sub