MAcroc Reset sur Cellule combinée

[Eric]

Bonjour sacré forum

Je cherche à faire une macro reset...
J´utilise la fonction .clearcontents mais celle-ci ne s´applique pas sur les cellules combinées..

Une idée??

Eric

 

[Hervé]

Bonjour

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

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

salut

 

[Eric]

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

 

[Hervé]

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

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]