Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Consolidation plusieurs onglets

dj dim

XLDnaute Occasionnel
Bonjour le Forum,

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.
 

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…