Discussion :

[Roman76]

bonjour a tous!

Je suis tombé ici car j'ai un peu le meme soucis.
J'ai crée ce matin un bouton pour que certaines cellules s'efface, j'ai donc rentré ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub CommandButton1_Click()
Range("B6:AT13,F14:AT14,B20:AT27,F28:AT28,B34:AT43,F44:AT44,B4,B14,B18,B28,B32,B44").ClearContents
End Sub

Mon soucis est que cela fonctionne correctement mais des que j'enregiste et quitte cette feuille un message survient des l'ouverture:

"impossible de sortir du mode création la bouton commanbutton1 n'a pas pu être créé"

J'ai donc pensé a compilé mon projet via le menu debogage mais il ne trouve aucune erreurs...

Je suis un peu bloqué, comment faire?

Merci d'avance

[NEC14]

Bonjour,

Il y a quelque chose que je ne comprends pas dans votre code. Lorsque vous effacez les cellules votre code vous fait passer plusieurs fois par les mêmes cellules par exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Range("B6:AT13,F14:AT14,B20:AT27,

B6:AT13, vous effacez le contenu des cellules B6 à AT13, ensuite B20:AT27, les cellules de B20 à AT27, mais il y a déjà les cellules de B6 à AT13 comprises dedans, est-ce que je me trompe ?