Insérer 2 lignes entre chaques lignes sélectionnées

[Olibxl]

Bonjour,

Après plusieurs recherche sur le net, j'ai trouvé le code VBA(repris ci-dessous) pour me permettre d'insérer 2 lignes entre chaques lignes sélectionnées et d'y inscrire dans la première cellule un "X".
Pour le tester, j'ai pris un ancien fichier de données et cela fonctionne parfaitement.

Seulement quand je recopie ce code dans un nouveau tableur avec un "beau" tableau mis en forme cette macro ne fonctionne pas... Pourquoi?

J'ai alors testé de copier mon "beau" tableau dans le fichier qui m'a servi de test et là cela fonctionne...J'ai donc décider de supprimer toutes les données autres que celles du "beau" tableau nouvellement collé et là cela ne fonctionne de nouveau plus...

Quelqu'un peut-il m'aider? je ne suis absolument pas informaticien...

Le code est:

Sub Insert2lignes()
Dim x As Integer
For x = Range("A65536").End(xlUp).Row To 1 Step -1
If Not Intersect(Range("A" & x), Selection) Is Nothing Then
Rows(x).Insert Shift:=xlDown

Cells(x, 1) = "X"
Rows(x).Insert Shift:=xlDown

Cells(x, 1) = "X"

End If
Next
End Sub

 

[xhudi69]

Re : Insérer 2 lignes entre chaques lignes sélectionnées

Bonjour Olibxl, le Forum

Il est évident que sans fichier exemple, il est difficile de t'aider.

En PJ un bout de fichier qui fonctionne avec ton code.
Le fichier avec lequel tu as ton problème ne doit pas avoir la même structure, merci de nous le joindre sans données confidentielles.

@+

 

[Olibxl]

Re : Insérer 2 lignes entre chaques lignes sélectionnées

Bonjour xhudi69,

Merci beaucoup pour ta réponse. En fait entre hier et aujourd'hui la seule solution que j'ai trouvée pour faire fonctionner ce code est de remplir la colonne "A" avec une lettre et ce quelques lignes après mon tableau que voici en PJ.

 

[xhudi69]

Re : Insérer 2 lignes entre chaques lignes sélectionnées

Re Olibxl, le Forum

Voilà, avec la boucle dans la bonne colonne et une petite modif du code, si tu click dans la colonne B et appuie sur le bouton, tu rajoute 2 lignes.

Si cela te convient.

@+

 

[Olibxl]

Re : Insérer 2 lignes entre chaques lignes sélectionnées

Merci! Merci! Merci!

Cela me convient parfaitement, j'ai tout de même remodifié le code pour que le "x" apparaisse dans la colonne 1 et cela fonctionne
Encore une fois merci!

Si et seulement si je peux encore un tout petit peu abuser de ton temps, comment écrire le code pour que la couleur de fond des lignes insérées soit de couleur vert claire? (uniquement les lignes contenant en colonne A un "X" forcément)?

Olivier😱

 

[xhudi69]

Re : Insérer 2 lignes entre chaques lignes sélectionnées

Re Olibxl, le Forum

en PJ ton fichier remanié, si cela te vat.

@+

 

[Olibxl]

Re : Insérer 2 lignes entre chaques lignes sélectionnées

Encore une fois merci.

J'ai modifié ton dernier code pour que 2 lignes s'insères entre chaques lignes de la sélection.
Du coup, toute la sélection se colore en vert, hors j'aurais aimé que seule les lignes insérées soient de fond vert.
Est-ce possible?
Faut-il peut-etre exécuter une deuxième macro sélectionnant que les lignes contenant le "x" dans la colonne A?

Si pas possible, ce n'est pas grave je ferai un tri sur la colonne A et sélectionnerai que les "X", les colorerai manuellement.

Voici le fichier remanié
Bien à toi,

 

[xhudi69]

Re : Insérer 2 lignes entre chaques lignes sélectionnées

Re:

je comprends mal ta question, si tu selectionnes 2 cellules qui se suivent dans la colonne B les deux lignes vertes vont bien s'inserrées.

Peut-être veut-tu seulement les cellules avec X colorées en vert, dans ce cas, voir le fichier joint.

@+

 

[Olibxl]

Re : Insérer 2 lignes entre chaques lignes sélectionnées

Dans le fichier joint, j'ai activer la macro qui m'intéresse en sélectionnant plusieurs lignes de mon tableau (p.ex. 4 lignes comprenant "test" dans la colonne B).
En activant la macro, 2 lignes vertes entre chaque lignes sélectionnées s'insèrent comme je le veux, parfait.

Mon dernier souci est que les lignes de départ avant activation de la macro doivent rester elles non colorées comme au départ.
Mon but final est de sélectionner toutes les lignes de mon tableau en une fois et lui appliquer la macro de sorte d'avoir une insertion de 2 lignes vertes avec un x en colonne A, et ce, entre chaque ligne.

Dans le fichier exemple, la macro a coloré toutes les lignes de départ (ligne contenant "test" devraient idéalement rester sans colore de fond).

En tout cas merci beaucoup pour toute l'aide que tu m'apportes!

Merci,
Olivier

 

[xhudi69]

Re : Insérer 2 lignes entre chaques lignes sélectionnées

Re Olibxl, le Forum,

un essais en PJ si j'ai tout compris.

@+

 

[Olibxl]

Re : Insérer 2 lignes entre chaques lignes sélectionnées

TOPISSIM !! Bravo et surtout grand merci xhudi69.

Oui c'est bien cela que je cherchais à faire.
Ton code fonctionne très bien mais il lui manque un "x" en colonne A de la deuxième ligne insérée😕
Dans ton code, je ne sais pas ou copier une seconde fois le code suivant

Cells(x, 1) = "X"

Merci 😛

Olivier 😀

 

[xhudi69]

Re : Insérer 2 lignes entre chaques lignes sélectionnées

Re bonsoir Olibxl, le Forum,

Alors certain diront, c'est rustique, mais ça marche.

En PJ ton fichier remanié, si cela te convient.

@+ 😎

 

[Olibxl]

Re : Insérer 2 lignes entre chaques lignes sélectionnées

Bonsoir xhudi69,

SUPER! problème et souhaits entièrement résolu, cela fonctionne très bien.
Rustique ou pas je ne puis le dire, mais en revanche ça fonctionne ca c'est sur!

Merci beaucoup et bonne soirée.😉