Paritec
XLDnaute Barbatruc
Bonjour le forum,
j'ai une Macro qui marche bien mais que je souhaiterais modifier pour sauter les feuilles au cas ou la ligne 2 est vide.
La macro permet de créer si besoin une feuille récap et de cumuler le contenu des feuilles, mais certaine fois une feuille peut-être vide (sauf la ligne 1 des étiquettes)
je vous joins la macro ci-dessous
merci d'avance
Papou
Sub Remplir()
Dim ws As Worksheet, b As Boolean
Dim derlign, dercol
Application.ScreenUpdating = False
On Error Resume Next
Set ws = Sheets("Recap")
If Err.Number = 9 Then Sheets.Add.Name = "Recap"
On Error GoTo 0
Sheets("Recap").Cells.ClearFormats
For Each ws In Worksheets
If ws.Name <> "Recap" Then """""""" je pense que c'est là qu'il faut ajouter qq chose?""""""
ws.Range(ws.Range("A2"), ws.Cells(ws.Range("A65536").End(xlUp).Row, _
ws.Range("IV1").End(xlToLeft).Column)).Copy _
Sheets("Recap").Range("A65536").End(xlUp).Offset(1, 0)
If b = False Then ws.Range(ws.Cells(1, 1), ws.Cells(1, _
ws.Range("IV1").End(xlToLeft).Column)).Copy _
Sheets("Recap").Range("A1"): b = True
End If
Next ws
j'ai une Macro qui marche bien mais que je souhaiterais modifier pour sauter les feuilles au cas ou la ligne 2 est vide.
La macro permet de créer si besoin une feuille récap et de cumuler le contenu des feuilles, mais certaine fois une feuille peut-être vide (sauf la ligne 1 des étiquettes)
je vous joins la macro ci-dessous
merci d'avance
Papou
Sub Remplir()
Dim ws As Worksheet, b As Boolean
Dim derlign, dercol
Application.ScreenUpdating = False
On Error Resume Next
Set ws = Sheets("Recap")
If Err.Number = 9 Then Sheets.Add.Name = "Recap"
On Error GoTo 0
Sheets("Recap").Cells.ClearFormats
For Each ws In Worksheets
If ws.Name <> "Recap" Then """""""" je pense que c'est là qu'il faut ajouter qq chose?""""""
ws.Range(ws.Range("A2"), ws.Cells(ws.Range("A65536").End(xlUp).Row, _
ws.Range("IV1").End(xlToLeft).Column)).Copy _
Sheets("Recap").Range("A65536").End(xlUp).Offset(1, 0)
If b = False Then ws.Range(ws.Cells(1, 1), ws.Cells(1, _
ws.Range("IV1").End(xlToLeft).Column)).Copy _
Sheets("Recap").Range("A1"): b = True
End If
Next ws