Discussion :

[pasterlouis]

Bonjour,

En fait j'ai une feuille qui contient en zone d'impression des graphs et les données de ces graphs se trouvent dans la zone hors impression. Ainsi j'aimerais avoir une macro qui va nettoyer tous ce qui est dans la zone HORS impression SAUF les données qui ont permis de générer les graphs

J'ai déja fais une macro qui nettoie la zone hors impression mais dans les feuilles qui ne contiennent pas de graphs

Pouvez vous m'aider svp?
Merci d'avance

[Daniel.C]

Bonjour,

Essaie ceci (sur la feuille active), mais ça risque d'être long :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Sub test()
    Dim Plage As Range, Tabl As Variant, C As Range
    For Each graphe In ActiveSheet.ChartObjects
        For i = 1 To graphe.Chart.SeriesCollection.Count
            Tabl = Split(graphe.Chart.SeriesCollection(i).Formula, ",")
            For j = 1 To UBound(Tabl) - 1
                If Tabl(j) <> "" Then
                    If Plage Is Nothing Then
                        Set Plage = Range(Tabl(j))
                    Else
                        Set Plage = Union(Plage, Range(Tabl(j)))
                    End If
                End If
            Next
        Next i
    Next graphe
    Set Plage = Union(Plage, Range("Zone_d_impression"))
    For Each C In ActiveSheet.UsedRange
        If Intersect(C, Plage) Is Nothing Then C.ClearContents
    Next C
End Sub

Beaucoup plus rapide, à tester :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub test2()
    Dim Plage As Range, Tabl As Variant, C As Range
    Dim Tablo()
    ReDim Tablo(Cells.Find("*", , , , xlByRows, xlPrevious).Row, _
        Cells.Find("*", , , , xlByColumns, xlPrevious).Column)
    For Each graphe In ActiveSheet.ChartObjects
        For i = 1 To graphe.Chart.SeriesCollection.Count
            Tabl = Split(graphe.Chart.SeriesCollection(i).Formula, ",")
            For j = 1 To UBound(Tabl) - 1
                If Tabl(j) <> "" Then
                    For Each C In Range(Tabl(j))
                        Tablo(C.Row, C.Column) = C.Value
                    Next C
                End If
            Next
        Next i
    Next graphe
    [A1].Resize(UBound(Tablo, 1), UBound(Tablo, 2)).Value = Tablo
End Sub

[pasterlouis]

Bonjour Daniel.C

Merci beaucoup pour ta réponse. Mais en fait ton code supprime tous les données qui ne sont pas liées aux graphs. Or moi je veux qu'il me supprime seulement les données qui ne sont pas liés aux graphs et qui ne sont pas dans la zone d'impression. La macro ne devra rien nettoyer dans la zone d'impression

J'essaie de modifier ton code mais je n'y arrive pas

[Daniel.C]

Excuse-moi, je m'en étais aperçu et pensai avoir supprimé le message.