Cette action ne peux pas etre appliques a une cellule fusionnée

[laurent1954]

Bonjour

Lorsque j'exécute cette macro, (Dans le fichier en PJ)une boite de débogage s'affiche
"Cette action ne peux pas être appliqué a une cellule fusionné."
Y a t'il une solution possible a cette difficulté

Merci

 

[pierrejean]

Re : Cette action ne peux pas etre appliques a une cellule fusionnée

Bonjour laurent

A tester :
Remplacer
Sheets("Fiche de travail").Range("H9:K9").ClearContents
par
Sheets("Fiche de travail").Range("H9:J9").ClearContents
Sheets("Fiche de travail").Range("K99").ClearContents

 

[ROGER2327]

Re : Cette action ne peux pas etre appliques a une cellule fusionnée

Bonjour laurent1954, pierrejean.


Ou bien :

With Sheets("Fiche de travail"): Union(.[H9:J9], .[K9].MergeArea).ClearContents: End With

Bonne soirée.


ℝOGER2327
#8280

Dimanche 8 Gidouille 143 (Sainte Boudouille, bayadère - fête Suprême Tierce)
4 Messidor An CCXXIV, 6,3718h - véronique
2016-W25-3T15:17:32Z