VBA Insérer une ligne avec une hauteur définie

Bonjour à tous,

Je cherche à créer une macro qui permettrait d'ajouter une ligne toute les 4 lignes à partir de la ligne 4 et avec une hauteur de 5 - en plus claire une ligne entre étiquette 2 et 3 de hauteur 5.

Je ne suis pas trop doué en VBA alors merci à la communauté pour votre aide.

Belle journée à vous

Bonjour,

Via Propriété Range.RowHeight (Excel) | Microsoft Learn

Vous selectionnez la ligne en question puis définissez RowHeight sur 5.

Par exemple :

Activesheet.Rows(numero_ligne_inserée).RowHeight = 5

Bonjour

Merci pour votre réponse. Cependant, pour ajouter une ligne toutes les 4 lignes, ca ne fonctionne pas.

Bonjour,

Veuillez trouver ci-joint une proposition de macro, dont le code se trouve ci-dessous.

Sub InsertRowsAndSetHeight()
  Dim ws As Worksheet
  Set ws = ActiveSheet
  Dim lastRow As Long, i As Long
  ' ligne de fin
  lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
  ' ligne de départ
  i = 8

  Do
    ws.Rows(i).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    ws.Rows(i).RowHeight = 5
    ' augmentation de l'indice max car ligne insérée
    lastRow = lastRow + 1
    ' saut de 4+1 = 5 lignes
    i = i + 5
  Loop While i < lastRow
End Sub

Merci beaucoup pour votre réponse, la macro fonctionne parfaitement