Effacer une plage précise

Bonjour;

Sur le classeur en PJ, je voudrais effacer rien que la plage déterminer dans la macro Razplannig et aussi les champs calculés (En rouge) pour le reste des colonnes je dois les conserver. Merci

Hosni

Bonjour,

Ici, on efface les formules et couleur

Sub RazPlannig()
Dim Lg&
Lg = Range("g" & Rows.Count).End(xlUp).Row

    On Error Resume Next
    With Range("a11:h" & Lg).SpecialCells(xlCellTypeFormulas)
        .ClearContents
        .Interior.ColorIndex = xlNone
    End With
    On Error GoTo 0
End Sub

Amicalement

Claude

Salut Claude;

je viens de mettre en place la macro, en fait cela n'efface que les lignes des totaux et les couleurs or mon souhait est d'effacer la plage A11:H3600 sans effacer les colonnes I et J, merci pour ton aide.

ce que je viens d’essayer :

Sub RazPlannig()

Dim Lg&

Lg = Range("g" & Rows.Count).End(xlUp).Row

On Error Resume Next

With Range("a11:h3600" & Lg).SpecialCells(xlCellTypeFormulas).EntireRow.Delete

.Interior.ColorIndex = xlNone

End With

On Error GoTo 0

End Sub

Hosni.

re,

en fait, tu ne veux conserver que les en-têtes ?

Sub RazPlannig()
Dim Lg&
Lg = Range("g" & Rows.Count).End(xlUp).Row + 1

    With Range("a11:h" & Lg)
        .ClearContents
        .Interior.ColorIndex = xlNone
    End With
End Sub

Claude

Salut à Tous;

Merci Claude la routine passe sur le classeur exemple je la psse sur le réel et je te tiens au courant, merci encore pour la correction.

Hosni

Bonjour;

Salut Claude et merci pour ta réponse, ça marche, à plus.

Hosni

Bonjour,

Bien cordialement,

Simon.

Désolé Hosni, je n'avais pas vu que tu l'avais déjà fait.

Simon.