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