Macro taille ligne

[Cremouenette]

Bonjour za tous!

Je bloque sur une macro :

Sub Macro10()
'
' Macro10 Macro
' Macro enregistrée le 08/12/2007 par CREMOUENETTE
'

'
ActiveCell.Select
Selection.RowHeight = 25
ActiveCell.Offset(1, 0).Range("A1").Select
End Sub

J'aimerai qu a la place de "25" il prenne la valeur se trouvant ds la 1er case de la ligne (A1, A2, A3.....)

Et j aimerai mettre un loop 0 a la fin de la macro (que celle ci se répète juska ce que je fasse escape!!!


merci!

 

[CB60]

Re : Macro taille ligne

Bonjour
je pense que ça doit ressembler à cela dans ta macro

ActiveCell.RowHeight = ActiveCell.Value
ou alors
target.rowheight=target.value

 

[Cremouenette]

Re : Macro taille ligne

Merci!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

le ActiveCell.RowHeight = ActiveCell.Value marche impect!!!!!

 

[CB60]

Re : Macro taille ligne

si tu veux une boucle:

Sub Modifieligne()
Dim choix As Object
For Each choix In Range("a:a")
If choix <> "" Then
choix.RowHeight = choix.Value
End If
Next choix
End Sub

 

[Cremouenette]

Re : Macro taille ligne

Rolalala

Désolé mais je suis a l ouest, le bout de code que tu m as filé je le place ou ds ma macro?

Sub Macro10()

' Macro10 Macro
' Macro enregistrée le 08/12/2007 par CREMOUENETTE
'


ActiveCell.Select
ActiveCell.RowHeight = ActiveCell.Value

ActiveCell.Offset(1, 0).Range("A1").Select

End Sub

 

[CB60]

Re : Macro taille ligne

tu n'a plus besoin de ton autre macro
celle ci permet de boucler sur la colonne "A" elle regarde les valeur les unes après les autres qui se trouve dans ces cellules et ajuste la hauteur des ligne en fonction de ces valeurs.
exemple en A1 j'ai 20 elle ajuste la hauteur de la ligne 1 à 20, si en a2 j'ai 40 elle ajuste à 40 la ligne 2 et ainsi de suite, elle boucle sur toute la colonne "A"
et tu dois mettre cette macro dans un module

 

[Cremouenette]

Re : Macro taille ligne

C'est génial!!!!!!!!!!!!!!!!!!!

Merci merci merci beaucoup, tes un amour!!!!!!!!!!