Bonjour existe t'il une formule permettant la chose suivante
pour une selection donnée la première ligne fait une hauteur de 44 (unite de
mesure d'exel) la 2 eme 44 et la 3 eme 10.
donc l
ligne 1 = 44
ligne 2 = 44
ligne 3 = 10
puis à partir de la ligne 4 on recommence 44 ,44, 10
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
isabelle
bonjour fred,
Sub Macro1() With Selection deb = .Item(1).Row + 3 fin = .Count + .Item(1).Row - 1 For i = deb To fin Step 3 For y = 0 To 2 Rows(i + y).RowHeight = .Item(y + 1).RowHeight Next Next End With End Sub
isabelle
Bonjour existe t'il une formule permettant la chose suivante
pour une selection donnée la première ligne fait une hauteur de 44 (unite de mesure d'exel) la 2 eme 44 et la 3 eme 10. donc l ligne 1 = 44 ligne 2 = 44 ligne 3 = 10 puis à partir de la ligne 4 on recommence 44 ,44, 10
merci pour vos réponses
fred
bonjour fred,
Sub Macro1()
With Selection
deb = .Item(1).Row + 3
fin = .Count + .Item(1).Row - 1
For i = deb To fin Step 3
For y = 0 To 2
Rows(i + y).RowHeight = .Item(y + 1).RowHeight
Next
Next
End With
End Sub
isabelle
Bonjour existe t'il une formule permettant la chose suivante
pour une selection donnée la première ligne fait une hauteur de 44 (unite de
mesure d'exel) la 2 eme 44 et la 3 eme 10.
donc l
ligne 1 = 44
ligne 2 = 44
ligne 3 = 10
puis à partir de la ligne 4 on recommence 44 ,44, 10
Sub Macro1() With Selection deb = .Item(1).Row + 3 fin = .Count + .Item(1).Row - 1 For i = deb To fin Step 3 For y = 0 To 2 Rows(i + y).RowHeight = .Item(y + 1).RowHeight Next Next End With End Sub
isabelle
Bonjour existe t'il une formule permettant la chose suivante
pour une selection donnée la première ligne fait une hauteur de 44 (unite de mesure d'exel) la 2 eme 44 et la 3 eme 10. donc l ligne 1 = 44 ligne 2 = 44 ligne 3 = 10 puis à partir de la ligne 4 on recommence 44 ,44, 10
