Discussion :

[dlight]

Bonjour à tous. Je cheche une façon d'insérer 3 lignes automatiquement à chaque fois que dans la colonne "Groupes" le nom du groupe est différent de la ligne précédente. Les noms de groupe ont des lettres, des nombres et parfois des caractères spéciaux.

Merci à l'avance

[Daranc]

Tu veux dire que lorsque tu saisis un autre nom de groupe trois ligne s'intercalent
ou tu veux balayer le fichier (trié par groupe) et à chaque changement de valeur de la cellule groupe tu colles trois lignes

[dlight]

Le fichier contient actuellement 550 lignes sans espace. Le groupe "ABC" est dans la colonne E aux lignes 4,5 et 6. Le groupe "DEF" est actuellement aux lignes 7 et 8 ... . Je cherche à faire en sorte que 3 lignes s'ajoute en déplassant ce qui est actuellement à la ligne 7 et suivante de 3 lignes plus bas. Puis la même chose après le groupe "DEF" qui sera rendu aux lignes 10 et 11 suite à l'ajout des 3 lignes du premier groupe. Il y a actuellement 82 groupes différent dans la colonne E. Il y aura donc 82 X 3 lignes à ajouter.


Merci à l'avance

[EmmanuelleC]

ca peut se faire par macro
En gros, pour chaque ligne (autre que la premiere si tu commences a la ligne 1), tu regardes si le contenu de la ligne = contenu de la ligne précédente ET que contenu de la ligne <>"" (sinon a la fin de tes trois ligne de vide, tu vas en mettre 3 autres), si oui tu passes au prochain, sinon tu inseres 3 lignes

[Daranc]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub inserligne()
Dim a,t
t = Range("a65535").End(xlUp).Row 'derniere ligne avec donnee
For a = 2 To t
If Cells(a, 1).Value <> Cells(a - 1, 1).Value Then
Range(Cells(a, 1), Cells(a + 2, 1)).EntireRow.Insert 'insertion trois lignes
t = t + 3   ' recul de la butee
a = a + 3  ' saut des trois lignes inserrees
End If
Next
End Sub

[dlight]

Merci beaucoup pour le code mais ça ne fonctionne pas.Ça n'ajoute que des lignes au début de la feuille (entre le titre et le premier groupe). La commande doit inserer les lignes après chaque groupe. Je vais poursuivre mes essaies mais si entre temps vous avez une solution, je vous remercie à l'avance.

[random]

la réponse qu'on t'a donné était très bonne mais elle concernait la colonne
a alors que tes groupes étaient dans la colonne e
je t'ai mis en rouge (ou dans une couleur qui pour un daltonien y ressemble) les modifs à faire

avec un peu de réflexion ca devrait aller

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub inserligne()
Dim a,t
t = Range("a65535").End(xlUp).Row 'derniere ligne avec donnee
For a = 2 To t
If Cells(a, 1).Value <> Cells(a - 1, 1).Value Then
Range(Cells(a, 1), Cells(a + 2, 1)).EntireRow.Insert 'insertion trois lignes
t = t + 3   ' recul de la butee
a = a + 3  ' saut des trois lignes inserrees
End If
Next
End Sub

[dlight]

Merci pour vos réponses. Elles sont beaucoup appréciées.

Je fais beaucoup de lecture et d'essais mais mon expérience est encotre très limitée.

Lorsque j'aurai plus connaisances, je serai présent pour les autres en n'ayant moins.

Voici donc mes réponses :

J'avais effectivement vu que l'on fesait référence à la colonne "A" alors que ma colonne de groupe se trouve "E". Le fichier est exporté en fichier CSV d'un logiciel de travaux en cours pour lequel on a que les droit d'utilisation. Puis après avoir enlevé ce que l'on a pas besoin dans le fichier csv (après conversion), finalement le résultat brut est transféré dans mon fichier contenant le code. J'ai 8 colonnes contenant des données dont la colonne "E" comme groupe. J'aimerais que les lignes soient insérées entre chaque groupe. Donc, si par exemple en E1-E2 et E3, le groupe est "AAA" puis les 7 lignes suivantes le groupe est "BBB" et les 3 suivantes sont "CCC" ..., je veux que le code insère 3 lignes après la ligne 3, puis 3 autres après la 13e ( les 3 de AAA + 3 lignes insérées + 7 lignes de BBB) et jusqu'à la fin de toutes les lignes dans l'onglet. Comme ça ne sera jamais le même nombre de ligne pour chaque groupe à chaque mois, le code doit donc être variable en fonction des données du mois.

Merci encore une fois votre aide. Elle est très appréciée

[Daranc]

essaies ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
Sub inserligne()
Dim a, t, p
p = 1
For a = 2 To 65000
If Cells(a, 1).Value <> Cells(a - 1, 1).Value Then
Range(Cells(a, 5), Cells(a + p, 5)).EntireRow.Insert 'insertion de p lignes
a = a + p + 1 ' saut des trois lignes inserrees
p = 1
Else
p = p + 1
End If
Next
End Sub

[dlight]

Encore une fois merci Daranc. Ça fonctionne presque comme je le veux à un détail près.

Si mon groupe à que 1 nom , la commande insert 2 lignes avant le prochain groupe...

si mon groupe à 2 nom, la commande insert 3 lignes et si mon groupe 50 nom, alors la commande insert 51 lignes...

Après avoir essayer plusieurs idées afin de contourner l'ajout de "p" ligne (voir le code), je vous demande si vous n'auriez pas une solution miracle à mon dernier petit problème..

Merci encore une fois pour l'aide...

[Daranc]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Sub inserligne()
Sub inserligne()
Dim a, t, p
p = 0
For a = 2 To 65000
If Cells(a, 1).Value <> Cells(a - 1, 1).Value Then
Range(Cells(a, 5), Cells(a + p, 5)).EntireRow.Insert 'insertion de p lignes
a = a + p + 1 ' saut des trois lignes inserrees
p = 0
Else
p = p + 1
End If
Next
End Sub

[dlight]

Merci encore une fois mais le problème reste entier à la différence du dernier code qui ajoutais 3 lignes pour 2 enregistrements, 4 pour 3... maintenant le cote 1 pour 1, 2 pour 2, 3 pour 3...

Je vais poursuivre mes tests afin de chercher une façon de contourner la variable P qui cause ce problème.

Entretemps, si vous avez une solution, elle est le bienvenue

Merci !

[Daranc]

attends je crois que je n'ai pas compris ce que tu veux !
est- ce ceci ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
aaa
1
2
3
bbb
bbb
bbb
bbb
1
2
3
ccc
1
2
3
ddd
ddd
ddd
ddd
ddd
ddd
ddd
1
2
3
eee

auquel cas essaues ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Sub inserligne()
Dim a,  p
p = 3
For a = 2 To 65000
If Cells(a, 1).Value <> Cells(a - 1, 1).Value Then
Range(Cells(a, 1), Cells(a + p - 1, 1)).EntireRow.Insert 'insertion de p lignes
a = a + p  ' saut des trois lignes inserrees
Else
End If
Next
End Sub

[dlight]

C'est parfait !!! Merci de ton aide.