rechercher cellule fusionnée

[Blafi]

Bonjour à tous,

J'ai une grosse base de données composée de 1400 lignes et 24 colonnes. J'essaye d'utiliser le formulaire pour entrer de nouvelles fiches mais excel me le refuse car "le formulaire ne peut être utilisé dans une base contenant des cellules fusionnées".

J'ai beau chercher, je ne trouve pas quelles cellules sont fusionnées. Aussi j'aimerai faire une macro qui examinerait chaque cellule de ma base et qui me signalerait celles fusionnées.

Mon problème : je ne sais comment programmer cette recherche. J'ai essayé avec une boucle sur selection de la totalité de la base mais je butte sur l'expression de "si la cellule est fusionnée sélectionne la (ou bien donne moi son adresse)".

Dans ma boucle je voudrai avoir quelque chose comme :
for each cel in selection
if cel.(fusionnée?) then msgbox cel.address
end if
next

Merci de votre aide et à ++

 

[Blafi]

Re : rechercher cellule fusionnée

Re,

Bon ça y est, j'ai trouvé la solution à force de chercher sur cet excellent forum...

Si ça peut servir à quelqu'un :

For Each cellule In Range("A3:Z1400")
If cellule.MergeCells Then
msgbox cellule.address
End If
Next cellule

 

[Staple1600]

Re : rechercher cellule fusionnée

Bonsoir à tous

tu risques d'user ta souris à force de cliquer sur OK
Avec cette variante, tu épargneras ton rongeur 😉

sub fuz()
Dim cellule as Range, Mess as String
For Each cellule In Range("A3:Z1400")
If cellule.MergeCells Then
Mess= Mess & cellule.address & vbCrlf
End If
Next cellule
Debug.Print Mess
'ou tu peux essayer aussi selon le nombre de cellules fusionnées présentes
MsgBox Mess
End Sub

 

[Dugenou]

Re : rechercher cellule fusionnée

Bonjour blafi, mes respects Staple,
en sélectionnant toute la plage puis, format/alignement et décocher Fusionner les cellules (attention à bien décocher, la cellule est grisée puisque certaines cellules sont fusionnées et d'autres non)
Cordialement