Insérer des lignes selon condition de valeur

Question

Bonjour à tous,

Je cherche une formule ou une macro qui permet d'insérer des lignes selon une valeur.
un exemple: dans la colonne C, je met le chiffre 4 dans une cellule puis j'ai 4 lignes qui s'insert en dessous,ou si je met le chiffre 7,  j'ai 7 lignes qui s'insert en dessous ainsi de suite!

Merci d'avance pour votre aide!

ccm81 · Answer

bonsoir 

pour une valeur de lignes a inserer en colonne C une macro  

Private Sub Worksheet_Change(ByVal Target As Range) 
Dim lig As Long 
Dim li As Long 
 If Target.Column = 3 Then 
    li = Target.Row 
    Rows(li + 1).Select 
      For lig = 1 To Target.Value 
        Selection.EntireRow.Insert 
      Next lig 
  End If 
End Sub 
est ce que ça repond? 

bonne suite

Insérer des lignes selon condition de valeur

1 réponse

Discussions similaires

Newsletters