Regrouper plusieurs feuilles avec ValueOnly=True

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

Bonsoir,

Je pense que tu aurais mieux fait de soumettre ton propre cas, modèle à l'appui...

Tu peux toujours essayer ainsi :

Sub transfert()
    Dim dlgR%, dlgi%, i%, wsR As Worksheet
    With Sheets("RECAP")
        dlgR = .Range("A" & .Rows.Count).End(xlUp).Row
        .Range("A2:X" & dlgR).ClearContents
    End With
    Set wsR = Sheets("RECAP")
    For i = 1 To Worksheets.Count
        Select Case Sheets(i).Name
            Case "RECAP"
            Case Else
                dlgR = wsR.Range("A" & Rows.Count).End(xlUp).Row + 1
                With Sheets(i)
                    dlgi = .Range("A" & Rows.Count).End(xlUp).Row
                    With .Range("A2:X" & dlgi)
                        .SpecialCells(xlCellTypeFormulas).EntireRow.Hidden = True
                        .SpecialCells(xlCellTypeVisible).Copy wsR.Range("A" & dlgR)
                        .EntireRow.Hidden = False
                    End With
                End With
        End Select
    Next i
End Sub

Je n'ai pas testé.

Cordialement.

Bonjour,

Cela n'a pas réglé mon problème mais j'ai depuis modifié ma structure pour le contourner. Merci cependant d'y avoir porté attention.

Bien à vous,