Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Insérer une ligne avant chaque ligne de couleur

Insérer une ligne avant chaque ligne de couleur

4 réponses
Avatar
Ben74
Bonjour =E0 tous

je cherche en vba =E0 ins=E9rer une ligne avant chaque cellule de couleur
grise
exemple :
A
1
2
3 grise
4
5
6
7 grise
8
9
10

A3 et A7 sont en gris, je souhaite ins=E9rer une ligne avant

je gal=E8re avec for each ... et ma condition, pourriez-vous m'aider
merci d'avance

BV
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Avatar
JB
Bonjour,

[B1] contient la couleur de référence:

For lig = 1000 To 2 Step -1
If Cells(lig, 1).Interior.ColorIndex = [A1].Interior.ColorIndex
Then Rows(lig).Insert
Next

JB
http://boisgontierj.free.fr


On 2 oct, 10:08, Ben74 wrote:
Bonjour à tous

je cherche en vba à insérer une ligne avant chaque cellule de couleur
grise
exemple :
A
1
2
3 grise
4
5
6
7 grise
8
9
10

A3 et A7 sont en gris, je souhaite insérer une ligne avant

je galère avec for each ... et ma condition, pourriez-vous m'aider
merci d'avance

BV


Avatar
Ben74
On 2 oct, 10:23, JB wrote:
Bonjour,

[B1] contient la couleur de référence:

For lig = 1000 To 2 Step -1
If Cells(lig, 1).Interior.ColorIndex = [A1].Interior.ColorIndex
Then Rows(lig).Insert
Next

JBhttp://boisgontierj.free.fr

On 2 oct, 10:08, Ben74 wrote:



Bonjour à tous

je cherche en vba à insérer une ligne avant chaque cellule de coule ur
grise
exemple :
A
1
2
3 grise
4
5
6
7 grise
8
9
10

A3 et A7 sont en gris, je souhaite insérer une ligne avant

je galère avec for each ... et ma condition, pourriez-vous m'aider
merci d'avance

BV- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -


Il m'affiche NEXT sans FOR
question : ma première couleur est en A8 est ce que je dois écrire
[A8].Interior.ColorIndex
je ne comprends pas bien B1 ??


Avatar
JB
http://cjoint.com/?kckMrbCCjz

JB

On 2 oct, 10:33, Ben74 wrote:
On 2 oct, 10:23, JB wrote:





Bonjour,

[B1] contient la couleur de référence:

For lig = 1000 To 2 Step -1
If Cells(lig, 1).Interior.ColorIndex = [A1].Interior.ColorIndex
Then Rows(lig).Insert
Next

JBhttp://boisgontierj.free.fr

On 2 oct, 10:08, Ben74 wrote:

Bonjour à tous

je cherche en vba à insérer une ligne avant chaque cellule de cou leur
grise
exemple :
A
1
2
3 grise
4
5
6
7 grise
8
9
10

A3 et A7 sont en gris, je souhaite insérer une ligne avant

je galère avec for each ... et ma condition, pourriez-vous m'aider
merci d'avance

BV- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -


Il m'affiche NEXT sans FOR
question : ma première couleur est en A8 est ce que je dois écrire
[A8].Interior.ColorIndex
je ne comprends pas bien B1 ??- Masquer le texte des messages précéde nts -

- Afficher le texte des messages précédents -




Avatar
Ben74
On 2 oct, 10:38, JB wrote:
http://cjoint.com/?kckMrbCCjz

JB

On 2 oct, 10:33, Ben74 wrote:



On 2 oct, 10:23, JB wrote:

Bonjour,

[B1] contient la couleur de référence:

For lig = 1000 To 2 Step -1
If Cells(lig, 1).Interior.ColorIndex = [A1].Interior.ColorIndex
Then Rows(lig).Insert
Next

JBhttp://boisgontierj.free.fr

On 2 oct, 10:08, Ben74 wrote:

Bonjour à tous

je cherche en vba à insérer une ligne avant chaque cellule de c ouleur
grise
exemple :
A
1
2
3 grise
4
5
6
7 grise
8
9
10

A3 et A7 sont en gris, je souhaite insérer une ligne avant

je galère avec for each ... et ma condition, pourriez-vous m'aider
merci d'avance

BV- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -


Il m'affiche NEXT sans FOR
question : ma première couleur est en A8 est ce que je dois écrire
[A8].Interior.ColorIndex
je ne comprends pas bien B1 ??- Masquer le texte des messages précé dents -

- Afficher le texte des messages précédents -- Masquer le texte des messages précédents -


- Afficher le texte des messages précédents -


MAGNIFIQUE !!!!! ta formule fonctionne à merveille
merci beaucoup

BV