MAcroc Reset sur Cellule combinée

Bonjour

combinée c'est ce que j'appelle fusionnée ?

si oui, essaye comme ceci Range(tacellule).MergeArea.ClearContents

salut

Salut Hervé , Salu Forum

Merci pour ta répnse
Je viens de la tester et elle ne fonctionne pas...

EN fait j ai toute une serie de cellule fusionnées et non fusionées sous le meme nom Essai1
Qd je fais
Range(Essai1).MergeArea.ClearContents
Ca ne marche pas..
Faut-il que je fasse cela pour chaque cellule?



Eric

Bonjour

en effet, ceci ne fonctionne plus, suivant ton cas.

Hélas j'ai pas trouvé d'autre solution que de renommer les plages par des Essai1, essai2, essai3.....

par contre je te donne une boucle qui efface toutes les cellules dont le nom commence par Essai :

Sub Bouton1_QuandClic()
Dim nom
Dim i As Integer

Set nom = ActiveWorkbook.Names

For i = 1 To nom.Count
    If Left(nom(i).Name, 5) = 'Essai' Then
        Range(nom(i).RefersToRange.Address).ClearContents
    End If
Next i

End Sub

Cliquez pour agrandir...

Et un fichier démo.

Je continue à chercher, mais peut etre que quelqu'un aura une réponse plus pertinante que la mienne.

salut

[file name=Classeur4_20050606172200.zip size=7741]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur4_20050606172200.zip[/file]