Bonjour le Forum,
Je fais une fois de plus appel à vos services car j'ai une erreur sur mon code
En effet, il respecte bien la condition puisqu'il récupère les bonne lignes mais ne copie pas la valeur.(cellules laissées blanches).
Or mes feuilles A, B et C sont alimentées chacunes par 1 classeur distinct via une liaison.
Merci par avance pour aide.
Je fais une fois de plus appel à vos services car j'ai une erreur sur mon code
Code:
Sub recap2()
Sheets("Facturation").Unprotect Password:="dt"
Ligne = 6
For Each s In Array("FacturationDBX13", "FacturationDBX26", "FacturationDBX69")
For lig = 6 To Sheets(s).[A500].End(xlUp).Row
If Sheets(s).Cells(lig, 1).Value <> "" Then
Sheets(s).Rows(lig).Copy Sheets("Facturation").Cells(Ligne, 1)
Ligne = Ligne + 1
End If
Next lig
Next
Sheets("Facturation").Protect DrawingObjects:=True, Contents:=True, Scenarios:=False, Password:="dt"
End Sub
En effet, il respecte bien la condition puisqu'il récupère les bonne lignes mais ne copie pas la valeur.(cellules laissées blanches).
Or mes feuilles A, B et C sont alimentées chacunes par 1 classeur distinct via une liaison.
Merci par avance pour aide.