XL 2016 Effacer une plage de cellule et toutes les mises en forme

[bennp]

Bonjour,

quelqu'un sait comment effacer une plage de cellule avec toutes les mises en forme qu'il y avait dans cette plage en VBA ?

Par exemple : effacer la plage A1:B10 de la Feuil1 et aussi la mise en forme (gras, majuscule, couleur, etc)

Merci de votre aides

 

[mapomme]

Bonjour bennp,

sheets("Feuil1").range("a1:b10").clear

edit : Bonjour @Staple1600 😉,

 

[Staple1600]

Bonjour le fil, le forum

Fais la manipulation en lançant l'enregistreur de macros et tu auras le code VBA idoine

EDITION: mapomme, t'es bien trop gentil pour un samedi matin 😉

 

[Staple1600]

Re

@mapomme
Du coup, je me sens obligé d'être civil et urbain envers mon prochain 😉
Lancer la macro TEST (sur une feuille vierge)

Sub TEST()
Range("A1:B10") = "=ROW()^COLUMN()"
MsgBox "Par défaut on efface tout"
effacons Sheets("Feuil1"), "A1:B10"
Range("A1:B10") = "=INT(NOW()+ROW()^COLUMN())"
Range("A1:B10").Interior.ColorIndex = 6
MsgBox "On efface le contenu"
effacons Sheets("Feuil1"), "A1:B10", 1
Range("A1:B10") = "=INT(PI()*ROW()^COLUMN())"
Range("A1:B10").Font.Bold = True
MsgBox "On efface le format"
effacons Sheets("Feuil1"), "A1:B10", 2
MsgBox "fin test"
End Sub
Private Sub effacons(Feuille As Worksheet, Plage As String, Optional Z = 0)
Select Case Z
Case 0
Feuille.Range(Plage).Clear
Case 1
Feuille.Range(Plage).ClearContents
Case 2
Feuille.Range(Plage).ClearFormats
End Select
End Sub

 

[bennp]

Bonjour Merci, j'avais testé avec l'enregistreur de macro mais pas réussi , il fallait juste que je remplace clearcontent par clear pour supprimer la mise en forme

merci !!