[Reglé] Vider cellules fusionnées

[Sinistrus]

Bonjour à tous !

J'utilise ce code pour vider mes cellules :

Private Sub CommandButton1_Click()
[A17:A42].ClearContents
End Sub

Je ne comprends pas pourquoi j'ai une erreur lorsque les cellules sont fusionnées...

Vous avez idée de la solution svp ?

 

[Vilain]

Re : Vider cellules fusionnées

Bonjour,

essaie en ne sélectionnant que la cellule A17.

A plus

 

[Sinistrus]

Re : Vider cellules fusionnées

Idem, toujours pareil :

Erreur d'exécution '1004':
Impossible de modifier une cellule fusionnée.

Mais une seule cellule "non fusionnée" ça passe !

 

[Gelinotte]

Re : Vider cellules fusionnées

Bonjour,

Quelles cellules sont fusionnées ?

Aurais-tu un bout de fichier allégé et anonymisé ?



G

 

[Sinistrus]

Re : Vider cellules fusionnées

Oui, voilà.
Désolé pour le retard j'ai eu des clients...

 

[Gelinotte]

Re : Vider cellules fusionnées

Bonjour,

Une méthode :

Private Sub CommandButton1_Click()
[A1:A10].Select
Selection.ClearContents
[A1].Select
End Sub

G

 

[Staple1600]

Re : Vider cellules fusionnées

Bonjour à tous

La même mais en évitant la Selection (Gelinotte tu permets que je permette ?, Bonjour au passage 😉)
Private Sub CommandButton1_Click()
[A1:A10].ClearContents
End Sub

Et une variante pour la route
Private Sub CommandButton1_Click()
[A1:A10]=Empty
End Sub

 

[Gelinotte]

Re : Vider cellules fusionnées

Bonsoir Staple1600, tous...

Ta première proposition est celle qu'emploie Sinistrus dans son fichier exemple du post #5, et elle donne une erreur.

Par contre, ta deuxième proposition fonctionne bien.


G

 

[Staple1600]

Re : Vider cellules fusionnées

Re

Gelinotte
Chez moi aucune erreur avec les deux solutions.

Mais c'était sur mon fichier... 😉 et sans passer par un CommandButton

 

[Sinistrus]

Re : Vider cellules fusionnées

Merci pour votre aide.
Ca fonctionne avec succès ! ^^