Totaliser des hauteurs de lignes

G

Guest

Guest

• 21 Février 2009

• #2

Re : Totaliser des hauteurs de lignes

Bonjour Jihem,

Code:

range("A1:A10").Height

A+

 

Vote positif 0 Vote négatif

JORDAN

XLDnaute Impliqué

• 21 Février 2009

• #3

Re : Totaliser des hauteurs de lignes

Bonjour Jiheme

avec ceci peut être

A = Range("A1").RowHeight

a+

 

Vote positif 0 Vote négatif

vbacrumble

XLDnaute Accro

• 21 Février 2009

• #4

Re : Totaliser des hauteurs de lignes

Bonjour tous

Code:

Dim c As Range
hc = 0
For i = 1 To 10
hc = hc + Cells(i, 1).Height
Next
MsgBox hc

A+

 

Vote positif 0 Vote négatif

Jiheme

XLDnaute Accro

• 21 Février 2009

• #5

Re : Totaliser des hauteurs de lignes

Re à tous

Parfait, je vais garder la solution proposée par Hasco, d'abord pour sa simplicité et parce que j'étais dans cette voie mais à l'envers, le Height avant le Range.

Mais stocke les autres au cas où...

Merci à tous

A+

 

Vote positif 0 Vote négatif