XL 2016 Bug effacement cellules

thomasdu43

XLDnaute Occasionnel
Bonjour à tous,

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
Le code fonctionne très bien sauf à partir du moment où j'augmente le nombre de cellules à effacer. J'obtiens le message suivant
Capture.JPG


Quelqu'un peut il m'aider à régler ce problème ?

Merci et bonne journée.
 

M12

XLDnaute Accro
Re,
Tu ferais mieux de placer ton classeur (anomisé)
Sinon, teste déjà avec un nombre de plage restreint sur une seule commande et au moment où tu auras l'erreur tu refais une deuxième ligne de commande, voir trois
Mais il y a peut-être plus simple, mais sans classeur
 

Discussions similaires

Statistiques des forums

Discussions
311 727
Messages
2 081 962
Membres
101 852
dernier inscrit
dthi16088