Insertion plusieurs ligne VBA à chaque ligne Fermé

Question

Bonjour,

Je viens vous demander de l'aide pour vba
J'aimerai créer une macro qui :
 à partir d'un tableau de X lignes non vides, insére 4 lignes sous chacune de ces lignes. (automatiquement biensur)
J'ai essayé des boucles  des FOR,des IF, je n'y arrive pas.


Par avance merci pour votre aide cela sera précieux

bibi · Answer

Sub insertion ()

Dim i As Integer
Dim j As Integer
 i = 1
 j = 3
        Do While i < 50
        Rows("i:i + j").Select
        Selection.Insert Shift:=xlDown
        i = i + 4
        Loop
 
End Sub

J'ai fais ça mais il me dit qu'il y a une erreur d'Imcompatibilité de type au niveau de la ligne :  
                        Rows("i:i + j").Select
Je ne sais plus quoi faire

Quelqu'un pourrait m'aider?

VBA search · Answer

Pour info, 
 VBA search est bibi

j'ai répondu à ma propre question mais ça ne mache toujours pas

Insertion plusieurs ligne VBA à chaque ligne

2 réponses

Discussions similaires