Compte: 2 cellules fusionnées = 1

[tinel]

Bonjours à tout le monde

J'aimerais compter le nombre de cellules d'un 'Range' sauf que dans ce 'Range', certaines cellules sont fusionnées et d'autres non. Il faudrait que ma macro compte les cellules 'mergée' comme une cellule pour qu'elle me donne le nombre d'espace, si on veut, que contient mon range.

Merci beaucoup

tinel

 

[2passage]

Bonjour,


euh... avec quoi tu comptes ? parce que fusionnées ou pas, '.Cells.Count' me renvoie la bonne valeur

testé avec :

MsgBox ('Cellules : ' & ActiveWindow.RangeSelection.Cells.Count)

A+

Edit : je nettoyais le bouton soumettre... le coup est parti tout seul...

Message édité par: 2passage, à: 21/07/2005 14:45

 

[tinel]

Salut 2passage

Eh...? Moi quand je fait 'cells.count' sur 8 cellules qui sont fusionnées pour en former 4, il me renvoie 8...

Moi j'aimerais qu'il me renvoit 4

Merci!

tinel

 

[2passage]

Bonjour,

Haaaan.... j'avais vraiment mal lu.... je ne comprenais pas le probleme.. évidement ...

mais bon... j ai mis mon cerveau en route, là, et je te propose un ptit code qui le fait :

Private Sub CommandButton1_Click()
merged = 0
For Each valeur In ActiveWindow.RangeSelection.Cells
If valeur.Column <> valeur.Offset(0, 1).Column - 1 Then
    merged = merged - 1
End If
If valeur.Row <> valeur.Offset(1, 0).Row - 1 Then
    merged = merged - 1
End If
Next
MsgBox 'Nbre de vraies cellules : ' & ActiveWindow.RangeSelection.Cells.Count + merged
End Sub

Vala.... A+ B)

Edit : oui.. il manque le Dim merged as integer et 'valeur' devrait s'appeler plutot 'cellule' mais bon.. j'ai dit que j avais allumé le cerveau, pas que le préchauffage etait fini...

Message édité par: 2passage, à: 21/07/2005 16:25

 

[tinel]

Héhé!!Salut 2passage!

Merci beaucoup!

Ton cerveau peut maintenant se rendormir... :lol:

tinel