FrancoisW
Nouveau membre
Bonjour,
N'ayant pas trouvé de réponse en passant par la fonction recherche d'Excel et celle de ce site, je me permets de vous demander de l'aide pour la réalisation d'une macro.
Je dois insérer une ligne toutes les 9 lignes pour une feuille de calculs de 891 lignes.
Exemple :
1 | Q1
2 | Q2
3 | Q3
4 | Q4
5 | Q5
6 | Q6
7 | Q7
8 | Q8
9 | Q9
10 | Q1
11 | Q1
12 | Q2
13 | Q3
14 | Q4
15 | Q5
16 | Q6
17 | Q7
18 | Q8
19 | Q9
etc sur 891 lignes. Et j'aimerais insérer une lignes "Others" avant les Q9 c'est à dire avant la ligne 9, 18, 27, 36 etc.
Je n'ai jamais créé de macro alors en me baladant sur les forums, tuto etc j'ai fait ça:
[cpp]Sub Insertion()
For n = 0 To 98 Step 1
i = 891 - (9 * n)
Rows(i).Select.EntireRow.Insert
Rows(i).Cells(1) = "Other"
Next
End Sub[/cpp]
L'éditeur semble dire qu'il y a une erreur ou quelque chose de manquant pour les lignes "Rows..."
Je vous serais vraiment très reconnaissant si vous pouviez m'aider !
Merci beaucoup
Francois
N'ayant pas trouvé de réponse en passant par la fonction recherche d'Excel et celle de ce site, je me permets de vous demander de l'aide pour la réalisation d'une macro.
Je dois insérer une ligne toutes les 9 lignes pour une feuille de calculs de 891 lignes.
Exemple :
1 | Q1
2 | Q2
3 | Q3
4 | Q4
5 | Q5
6 | Q6
7 | Q7
8 | Q8
9 | Q9
10 | Q1
11 | Q1
12 | Q2
13 | Q3
14 | Q4
15 | Q5
16 | Q6
17 | Q7
18 | Q8
19 | Q9
etc sur 891 lignes. Et j'aimerais insérer une lignes "Others" avant les Q9 c'est à dire avant la ligne 9, 18, 27, 36 etc.
Je n'ai jamais créé de macro alors en me baladant sur les forums, tuto etc j'ai fait ça:
[cpp]Sub Insertion()
For n = 0 To 98 Step 1
i = 891 - (9 * n)
Rows(i).Select.EntireRow.Insert
Rows(i).Cells(1) = "Other"
Next
End Sub[/cpp]
L'éditeur semble dire qu'il y a une erreur ou quelque chose de manquant pour les lignes "Rows..."
Je vous serais vraiment très reconnaissant si vous pouviez m'aider !
Merci beaucoup
Francois