MACRO INSERTION DE LIGNES

[BILOKA]

Bonsoir, si quelqu'un peut m'aider,

Voilà, j'ai une macro qui insère plusieurs lignes en même temps :

Sub InsertionDeLignes()
Dim I, NbLigne As Variant
NbLigne = InputBox('Combien voulez-vous insérer de ligne ?', 'Nombre de lignes à inserer')
For I = 1 To NbLigne
Selection.EntireRow.Insert
Next I
End Sub

celle-ci marche bien mais je voudrais la modifier en remplaçant l'InputBox par une fonction XL en l'occurence SommeProd. J'ai essayer ceci mais ça ne marche pas :

Sub InsertionDeLignes()
Dim I, NbLigne As Long
NbLigne = Application.WorksheetFunction.SumProduct((D1147 = ' ') * (E1:E147 > 4))
For I = 1 To NbLigne
Selection.EntireRow.Insert
Next I
End Sub

HELP ME PLEASE

 

[myDearFriend!]

Bonsoir BILOKA,

Tu devrais pouvoir essayer comme ça :

Sub InsertionDeLignes()
      Dim NbLigne As Long
      NbLigne = Evaluate('=SumProduct((' & Range('D1147').Address & '= '' '') * (' _
            & Range('E1:E147').Address & '> 4))')
      ActiveCell.Resize(NbLigne).EntireRow.Insert
End Sub

Cordialement,

Message édité par: myDearFriend!, à: 15/02/2006 00:30