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 Impliqué
Bonjour,
A savoir combien de plage tu inscrit dans ta ligne de macro.
Si la ligne est trop longue, tu as ce message
La solution serait de scinder tes plages sur deux lignes
 

thomasdu43

XLDnaute Occasionnel
Bonjour,
A savoir combien de plage tu inscrit dans ta ligne de macro.
Si la ligne est trop longue, tu as ce message
La solution serait de scinder tes plages sur deux lignes
Bonjour,
J'ai une centaine de cellules que je souhaite effacer. Deux lignes seront elles suffisantes ?
Merci.
 

M12

XLDnaute Impliqué
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
 

Créez un compte ou connectez vous pour répondre

Vous devez être membre afin de pouvoir répondre ici

Créer un compte

Créez un compte Excel Downloads. C'est simple!

Connexion

Vous avez déjà un compte? Connectez vous ici.

Haut Bas