Bonjour,
Merci beaucoup Ric pour ta rapidité !
la macro était associée au bouton "Extraire les données" de la feuille "page2", juste pour permets de créer un document PDF et de l'imprimer mais rien à voir avec le remplissage du tableau. j'avais lors de l'envoi de mon fichier demo supprimé dans la macro la partie entre [ ]
'Ensuite sur la même ligne on copie TD et CM en tenant compte de la position des données (OffsetFromC)
NewPage2Row.Range(1, 7) = Cell.Value
NewPage2Row.Range(1, 8) = Cell.Offset(, 1).Value
End If
Next
End With
['On redéfini la zone d'impression
Feuil2.PageSetup.PrintArea = Feuil2.UsedRange.Address]
[ 'On désactive la mise à jour de l'affichage
Application.ScreenUpdating = True]
End Sub
J'ai supprimé les 0 et normalement avec les codes ci-dessous, la macro aurait dû tourner où je me trompe
If (Cell.Value <> "") And (Cell.Offset(, 1).Value <> "") Then
If (Cell.Offset(, 1).Value <> "") And (Cell.Offset(, 2).Value <> "") Then
Merci pour ton aide