Cellule

[chinel]

Salut tout le monde !!!


je cherche à vider des cellules fusionnées
exemple :
commande bouton
sheets("Planning").select
selection.range("A1").clearcontent
A1 est fusionnée
il y a peut être une erreur !

mais quangd les cellules sont fusionnées cela ne fonctionne pas


merci de votre aide !!!

 

[Dan]

Re : Cellule

Bonjour,

Utilise ce code :

Sheets("Planning").Range("A1").ClearContents

Si les cellules sont fusionnées , il faut prendre l'enemble des cellules. Exemple si les cellules A1 à C1 sont fusionnées -->

Sheets("Planning").Range("A1:C1").ClearContents

Bon dimanche

dan

 

[Catrice]

Re : Cellule

Bonjour,

Tu peux essayer ceci :

Sub test()
Sheets("Planning").Range("A1").MergeArea.ClearContents
End Sub

Si A1 est fusionné avec d'autres cellules ça efface l'ensemble fusionné
Si A1 n'est pas fusionné, ça efface A1

 

[chinel]

Re : Cellule

impossible cela ne fonctionne pas !


message:
débogage (impossible de supprimer des cellules fusionnées)

 

[Dan]

Re : Cellule

re,

As-tu essayé la solution que je t'ai donnée ? Cela fonctionne chez moi.

A te lire

Dan

 

[chinel]

Re : Cellule

Merci Dan de ton aide cela fonctionne très bien !!!

Dan, peux tu m'aider

je cherche à mettre une date au format "dimanche 24 juin 2007" dans une textbox et cela se copie dans une cellule d'une autre feuille mais problème de format "24/06/07"
j'ai mis dans mon userform : TextBox1.Value = Format("dddd/mmmm/yyyy") mais il reste au format "24/06/07"
peux tu encore m'aide, merci à toi !!!

 

[Temjeh]

Re : Cellule

Bonjour à tous

Pour ton format je t'ai répond sur l'autre post

A+

Temjeh

 

[Catrice]

Re : Cellule

Bonsoir,

Chez moi ceci fonctionne tres bien :
Sub test()
ActiveCell.MergeArea.ClearContents
End Sub

Ca évite d'avoir à connaitre la taille de la zone fusionnée
Testé sur Excel 2002
Voir fichier joint

Dans le fichier joint également la réponse concernant la question sur la date dans la TextBox.
Il manque qq chose dans ta ligne de code :
TextBox1.Value = Format(TextBox1.Value, "dddd dd mmmm yyyy")