thomasdu43
XLDnaute Occasionnel
Bonjour à tous,
J'utilise le code suivant afin d'effacer certaines cellules d'une feuille "Formulaire"
Le code fonctionne très bien sauf à partir du moment où j'augmente le nombre de cellules à effacer. J'obtiens le message suivant
Quelqu'un peut il m'aider à régler ce problème ?
Merci et bonne journée.
J'utilise le code suivant afin d'effacer certaines cellules d'une feuille "Formulaire"
VB:
Sub Effacer_cellulesFormulaire()
'
' Effacer_cellules
'
Dim Ctl As Shape
Application.EnableEvents = False
With Worksheets("Formulaire")
Range( _
"E11:E12,H11:H12,D13:E13,D14:G14" _
).ClearContents
End With
Application.EnableEvents = True
End Sub
Quelqu'un peut il m'aider à régler ce problème ?
Merci et bonne journée.