renaud2530
XLDnaute Nouveau
Bonsoir,
Ci-dessous une macro pêchée sur un forum qui permet de compiler les lignes de plusieurs feuilles dans un tableau recap. Quelle modification faut-il y apporter pour que celle-ci ne copie que les lignes qui contiennent une valeur? Pour l'instant, cela copie également les lignes qui contiennent des formules...
D'avance merci pour votre précieuse aide.
Cordialement,
Sub transfert()
Dim dlgR As Integer, dlgi As Integer
Dim i As Byte
With Sheets("RECAP")
dlgR = .Range("a" & Rows.Count).End(xlUp).Row
.Range("a2:x" & dlgR).ClearContents
End With
For i = 1 To Worksheets.Count
Select Case UCase(Sheets(i).Name)
Case Is = "RECAP"
Case Else
dlgR = Sheets("RECAP").Range("a" & Rows.Count).End(xlUp).Row
With Sheets(i)
dlgi = .Range("a" & Rows.Count).End(xlUp).Row
.Range("a2:x" & dlgi).Copy Sheets("RECAP").Range("a" & dlgR + 1)
End With
End Select
Next
End Sub
Renaud
Ci-dessous une macro pêchée sur un forum qui permet de compiler les lignes de plusieurs feuilles dans un tableau recap. Quelle modification faut-il y apporter pour que celle-ci ne copie que les lignes qui contiennent une valeur? Pour l'instant, cela copie également les lignes qui contiennent des formules...
D'avance merci pour votre précieuse aide.
Cordialement,
Sub transfert()
Dim dlgR As Integer, dlgi As Integer
Dim i As Byte
With Sheets("RECAP")
dlgR = .Range("a" & Rows.Count).End(xlUp).Row
.Range("a2:x" & dlgR).ClearContents
End With
For i = 1 To Worksheets.Count
Select Case UCase(Sheets(i).Name)
Case Is = "RECAP"
Case Else
dlgR = Sheets("RECAP").Range("a" & Rows.Count).End(xlUp).Row
With Sheets(i)
dlgi = .Range("a" & Rows.Count).End(xlUp).Row
.Range("a2:x" & dlgi).Copy Sheets("RECAP").Range("a" & dlgR + 1)
End With
End Select
Next
End Sub
Renaud