macro excel

[younes]

bonjour le forum
je voudrais faire une macro qui recherche sur une colonne la valeur >1
et quand elle la trouve (ex 3) elle recopie cette ligne autant de fois que la valeur (ex insere trois fois la meme ligne ou il y a la valeur 3)
merci a tous
younes

 

[Bernard]

Bonjour Younes

Voilà une macro qui résout ton problème.

Sub InsertLigne()
Dim NumLig As Integer, i As Integer
Application.ScreenUpdating = False
'Mise en place au départ
Worksheets("Feuil1").Select
Range("F1").Select
Do While ActiveCell <> ""
'Insertion de ligne
If ActiveCell > 1 Then
NumLig = ActiveCell.Value
For i = 1 To NumLig
Selection.EntireRow.Insert
ActiveCell.EntireRow.Value = ActiveCell.Offset(1, 0).EntireRow.Value
ActiveCell.Offset(1, 0).Select
Next i
End If
ActiveCell.Offset(1, 0).Select
Loop
Application.ScreenUpdating = True
End Sub


Simplement, si tu veux autant de lignes que le nombre dans la cellule active et non l'insertion d'un nombre de lignes équivalent au nombre dans la cellule active, ce qui donne une ligne de plus identique aux précédentes que le nombre dans la cellule active, tu remplaces For i = 1 To NumLig par For i = 1 To NumLig -1

Cordialement

Bernard