Macro taille ligne

CB60

XLDnaute Barbatruc

• 8 Décembre 2007

• #2

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

 

Vote positif 0 Vote négatif

C

Cremouenette

Guest

• 8 Décembre 2007

• #3

Re : Macro taille ligne

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

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

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 8 Décembre 2007

• #4

Re : Macro taille ligne

si tu veux une boucle:

Code:

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

 

Vote positif 0 Vote négatif

C

Cremouenette

Guest

• 8 Décembre 2007

• #5

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

Cliquez pour agrandir...

End Sub

 

Vote positif 0 Vote négatif

CB60

XLDnaute Barbatruc

• 8 Décembre 2007

• #6

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

 

Dernière édition: 8 Décembre 2007

Vote positif 0 Vote négatif

C

Cremouenette

Guest

• 8 Décembre 2007

• #7

Re : Macro taille ligne

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

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

🙂

 

Vote positif 0 Vote négatif