Code pour effacer le contenu des plusieurs cellules
b
Bonjour à tous,
j'essaye de créer un code vba pour effacer le contenu de cellules spécifiées, mais ces cellules ne se suivent pas. J'ai donc utilisé la fonction Union mais j'ai toujours une erreur de type '438', je ne comprends pas vraiment pourquoi. Voici le code en question
Sub MAZCells()
Dim plage1, plage2, plage3, plage4, plage5, plage6, plage7, plage8, plage9, plage10 As Range
Set plage1 = Range("F7:F8")
Set plage2 = Range("F12:F14")
Set plage3 = Range("F18:F20")
Set plage4 = Range("F24:F30")
Set plage5 = Range("F32:F35")
Set plage6 = Range("F37:F41")
Set plage7 = Range("G18:G20")
Set plage8 = Range("E30")
Set plage9 = Range("E35")
Set plage10 = Range("E41")
Sheets("Mafeuille").Union(plage1, plage2, plage3, plage4, plage5, plage6, plage7, plage8, plage9, plage10).ClearContents
End SubJ'ai tenté avec value = null à la place de ClearContents, ce n'est pas concluant non plus, l'erreur persiste
merci d'avance pour votre aide
Bonjour,
Le plus compliqué c'est de faire simple !
Sub RAZ()
Sheets("MaFeuille").Range("F7:F8,F12:F14,F18:F20,F24:F30,F32:F35,F37:F41,G18:G20,E30,E35,E41").ClearContents
End SubA+
b
Bizarrement j'ai essayé exactement le même code que celui que tu proposes hier, ça ne marchait pas. Raison pour laquelle j'ai fini par chercher midi à quatorze heure. aujourd'hui ça marche, je n'explique pas pourquoi...
Merci!