fusion de cellules

[michel]

Bonjour,
Je suis en train de faire des macro excel mais j'ai un petit problème avec des fusions de cellule car je n'arrive pas à faire comprendre au programme que la cellule est fusionnée.
En effet, le programme parcourt le tableau colonne après colonne et ligne par ligne mais il considère que la fusion des cellules est superposée sur les autres cellules donc pour lui il considère qu'il n'y a rien dans les cellules puisque celles qui sont en dessous la fusion sont vides!

Je voudrais savoir si quelqu'un pourrait m'aider la dessus.

Merci d'avance

 

[Stéphane]

des infos sur les cellules fusionnées, certaines t'aideront peut-être.
<http://xlbysteph.free.fr/aideinformatique/actionformat.htm#format_cellule>

bye
stephane

 

[michel]

Merci pour ton aide stéphane car ça m'a bien rendu service!

A plus
michel

 

[Stéphane]

tu as une soluce à proposer au final ?

 

[michel]

Oui, j'ai une solution pour trouver toutes les cellules fusionnées dans la feuille excel:

*********** Début de code ********Sub RechCellulesFusionnées()
Dim wCell As Range, ValeurMerge As String ActiveCell.CurrentRegion.Select
ValeurMerge = "Liste des cellules fusionnées :" & Chr(13)
For Each wCell In ActiveCell.CurrentRegion If wCell.MergeCells = True Then
If (Not IsEmpty(wCell.Value)) Then
ValeurMerge = ValeurMerge & wCell.Address & " Cellule fusionnée
principale" & Chr(13) Else
ValeurMerge = ValeurMerge & wCell.Address & Chr(13) End If End If
NextMsgBox ValeurMergeEnd Sub*********** Fin de code **********

Si tu as beaucoup de cellules dans ta plage, n'affiche pas le msgbox

bye

Michel

 

[STéphane]

ok
attention il manque les retours à la ligne ;-)

 

[STéphane]

ok
attention il manque les retours à la ligne ;-)