Définition de hauteur de ligne selon valeurs

Bonjour,

je souhaite créer un tableau dont la hauteur des lignes corresponde à la valeur indiquée dans la première cellule de chaque ligne. j'ai environ 300 lignes à traiter comme cela.

le code ci dessous fonctionne pour la première ligne

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Rows("1:1").RowHeight = ActiveSheet.Range("A1").Value

End Sub

mais je n'arrive pas à le généraliser automatiquement pour 300lignes. le code avec boucle for ci dessous ne fonctionne pas..

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Dim i As Integer

For i = 1 To 300

Rows("i:i").RowHeight = ActiveSheet.Range("Ai").Value

Next i

End Sub

Si quelqu’un peut m'aider ca serait top

Merci à vous

Benoît

bonjour,

adapte cette instruction

Rows("i:i").RowHeight = ActiveSheet.Range("Ai").Value

ainsi

Rows(i).RowHeight =Range("A" & i).Value

Super. merci beaucoup !

Bonjour,

heureux que cela te convienne. Peux-tu penser à cloturer le sujet ?

Merci

Rechercher des sujets similaires à "definition hauteur ligne valeurs"