VBA laisse vide si rien
t
Bonjour,
J''ai repris le code de Baboutz (merci ;-) ) pour la recopie de cellule d'une feuille sur une autre feuille pour recap : (ajoute dans le tableau)
Sub Lien()
'Déclaration des variables
Dim LI As Integer 'LI pour LIgne
'Ajout ligne + compte nb ligne
Feuil4.ListObjects("Tableau1").ListRows.Add
LI = Feuil4.ListObjects("Tableau1").ListRows.Count
'Ajoute dans le tableau
Feuil4.ListObjects("Tableau1").DataBodyRange.Rows(LI) = Array(Feuil8.Range("L5"), Feuil8.Range("C4"), Feuil8.Range("D4") & Range("E4") & Range("G4") & Range("H4") & Range("I4"), Feuil8.Range("B8"), Feuil8.Range("K8"), Feuil8.Range("B14"), Feuil8.Range("B15"), Feuil8.Range("B16"), Feuil8.Range("B17"), Feuil8.Range("K14"), lienPDF)
End Sub Le code faisant le travail :
'Ajoute dans le tableau
Feuil4.ListObjects("Tableau1").DataBodyRange.Rows(LI) = Array(Feuil8.Range("L5"), Feuil8.Range("C4"), Feuil8.Range("D4") & Range("E4") & Range("G4") & Range("H4") & Range("I4"), Feuil8.Range("B8"), Feuil8.Range("K8"), Feuil8.Range("B14"), Feuil8.Range("B15"), Feuil8.Range("B16"), Feuil8.Range("B17"), Feuil8.Range("K14"), lienPDF)Mais lorsque dans une des cellules il n'y a rien, excel inscrire #N/A > possible qu'il n'indique rien, qu'il laisse vide.
Merci