Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

MACRO INSERTION DE LIGNES

B

BILOKA

Guest
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!

XLDnaute Barbatruc
Bonsoir BILOKA,

Tu devrais pouvoir essayer comme ça :
Cordialement,

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

Discussions similaires

Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…