J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque fois
qu'une cellule de ma plage A possède un fond indigo, on insere une ligne au
dessus de celle-ci !
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
papou
Bonjour Sub PourArnaud() For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("A" & i).Interior.ColorIndex = 55 Then _ Range("A" & i).Insert shift:=xlDown Next i End Sub Cordialement Pascal
"arnaud" a écrit dans le message de news:
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque fois qu'une cellule de ma plage A possède un fond indigo, on insere une ligne au dessus de celle-ci !
Merci pour votre aide !!
Arnaud
Bonjour
Sub PourArnaud()
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Range("A" & i).Interior.ColorIndex = 55 Then _
Range("A" & i).Insert shift:=xlDown
Next i
End Sub
Cordialement
Pascal
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de news:
OmOeZDPtEHA.3612@TK2MSFTNGP10.phx.gbl...
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque
fois
qu'une cellule de ma plage A possède un fond indigo, on insere une ligne
au
dessus de celle-ci !
Bonjour Sub PourArnaud() For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("A" & i).Interior.ColorIndex = 55 Then _ Range("A" & i).Insert shift:=xlDown Next i End Sub Cordialement Pascal
"arnaud" a écrit dans le message de news:
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque fois qu'une cellule de ma plage A possède un fond indigo, on insere une ligne au dessus de celle-ci !
Merci pour votre aide !!
Arnaud
arnaud
Super !! Merci beaucoup Pascal !!!
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: #
Bonjour Sub PourArnaud() For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("A" & i).Interior.ColorIndex = 55 Then _ Range("A" & i).Insert shift:=xlDown Next i End Sub Cordialement Pascal
"arnaud" a écrit dans le message de news:
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque fois qu'une cellule de ma plage A possède un fond indigo, on insere une ligne au dessus de celle-ci !
Merci pour votre aide !!
Arnaud
Super !!
Merci beaucoup Pascal !!!
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
#6F0oZPtEHA.1452@TK2MSFTNGP11.phx.gbl...
Bonjour
Sub PourArnaud()
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Range("A" & i).Interior.ColorIndex = 55 Then _
Range("A" & i).Insert shift:=xlDown
Next i
End Sub
Cordialement
Pascal
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de news:
OmOeZDPtEHA.3612@TK2MSFTNGP10.phx.gbl...
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque
fois
qu'une cellule de ma plage A possède un fond indigo, on insere une ligne
au
dessus de celle-ci !
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: #
Bonjour Sub PourArnaud() For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("A" & i).Interior.ColorIndex = 55 Then _ Range("A" & i).Insert shift:=xlDown Next i End Sub Cordialement Pascal
"arnaud" a écrit dans le message de news:
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque fois qu'une cellule de ma plage A possède un fond indigo, on insere une ligne au dessus de celle-ci !
Merci pour votre aide !!
Arnaud
papou
De rien ;-) Cordialement Pascal
"arnaud" a écrit dans le message de news:
Super !! Merci beaucoup Pascal !!!
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: #
Bonjour Sub PourArnaud() For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("A" & i).Interior.ColorIndex = 55 Then _ Range("A" & i).Insert shift:=xlDown Next i End Sub Cordialement Pascal
"arnaud" a écrit dans le message de news:
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque fois qu'une cellule de ma plage A possède un fond indigo, on insere une ligne au dessus de celle-ci !
Merci pour votre aide !!
Arnaud
De rien ;-)
Cordialement
Pascal
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de news:
Ol6ZSfPtEHA.2788@TK2MSFTNGP09.phx.gbl...
Super !!
Merci beaucoup Pascal !!!
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
#6F0oZPtEHA.1452@TK2MSFTNGP11.phx.gbl...
Bonjour
Sub PourArnaud()
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Range("A" & i).Interior.ColorIndex = 55 Then _
Range("A" & i).Insert shift:=xlDown
Next i
End Sub
Cordialement
Pascal
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de news:
OmOeZDPtEHA.3612@TK2MSFTNGP10.phx.gbl...
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque
fois
qu'une cellule de ma plage A possède un fond indigo, on insere une
ligne
au
dessus de celle-ci !
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: #
Bonjour Sub PourArnaud() For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("A" & i).Interior.ColorIndex = 55 Then _ Range("A" & i).Insert shift:=xlDown Next i End Sub Cordialement Pascal
"arnaud" a écrit dans le message de news:
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque fois qu'une cellule de ma plage A possède un fond indigo, on insere une ligne au dessus de celle-ci !
Merci pour votre aide !!
Arnaud
arnaud
Cette macro m'insere une cellule mais pas une ligne... et ça crée un décalage dans la suite de mon tableau ! Comment faire pour qu'il m'insere une ligne entiere ??
----- Original Message ----- From: "papou" <cestpasbon@çanonplus44.fr> Newsgroups: microsoft.public.fr.excel Sent: Monday, October 18, 2004 11:39 AM Subject: Re: Boucle pour inserer des lignes..
Bonjour Sub PourArnaud() For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("A" & i).Interior.ColorIndex = 55 Then _ Range("A" & i).Insert shift:=xlDown Next i End Sub Cordialement Pascal
"arnaud" a écrit dans le message de news:
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque fois qu'une cellule de ma plage A possède un fond indigo, on insere une ligne au dessus de celle-ci !
Merci pour votre aide !!
Arnaud
"arnaud" a écrit dans le message de news:
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque fois
qu'une cellule de ma plage A possède un fond indigo, on insere une ligne au
dessus de celle-ci !
Merci pour votre aide !!
Arnaud
Cette macro m'insere une cellule mais pas une ligne... et ça crée un
décalage dans la suite de mon tableau !
Comment faire pour qu'il m'insere une ligne entiere ??
----- Original Message -----
From: "papou" <cestpasbon@çanonplus44.fr>
Newsgroups: microsoft.public.fr.excel
Sent: Monday, October 18, 2004 11:39 AM
Subject: Re: Boucle pour inserer des lignes..
Bonjour
Sub PourArnaud()
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Range("A" & i).Interior.ColorIndex = 55 Then _
Range("A" & i).Insert shift:=xlDown
Next i
End Sub
Cordialement
Pascal
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de news:
OmOeZDPtEHA.3612@TK2MSFTNGP10.phx.gbl...
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque
fois
qu'une cellule de ma plage A possède un fond indigo, on insere une ligne
au
dessus de celle-ci !
Merci pour votre aide !!
Arnaud
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de news:
OmOeZDPtEHA.3612@TK2MSFTNGP10.phx.gbl...
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque
fois
qu'une cellule de ma plage A possède un fond indigo, on insere une ligne
au
Cette macro m'insere une cellule mais pas une ligne... et ça crée un décalage dans la suite de mon tableau ! Comment faire pour qu'il m'insere une ligne entiere ??
----- Original Message ----- From: "papou" <cestpasbon@çanonplus44.fr> Newsgroups: microsoft.public.fr.excel Sent: Monday, October 18, 2004 11:39 AM Subject: Re: Boucle pour inserer des lignes..
Bonjour Sub PourArnaud() For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("A" & i).Interior.ColorIndex = 55 Then _ Range("A" & i).Insert shift:=xlDown Next i End Sub Cordialement Pascal
"arnaud" a écrit dans le message de news:
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque fois qu'une cellule de ma plage A possède un fond indigo, on insere une ligne au dessus de celle-ci !
Merci pour votre aide !!
Arnaud
"arnaud" a écrit dans le message de news:
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque fois
qu'une cellule de ma plage A possède un fond indigo, on insere une ligne au
dessus de celle-ci !
Merci pour votre aide !!
Arnaud
Jacky
Et pour pas cher, la réponse
une question à 10 centimes d'euros ;o))
JJ
"arnaud" a écrit dans le message de news:
Super !! Merci beaucoup Pascal !!!
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: #
Bonjour Sub PourArnaud() For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("A" & i).Interior.ColorIndex = 55 Then _ Range("A" & i).Insert shift:=xlDown Next i End Sub Cordialement Pascal
"arnaud" a écrit dans le message de news:
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque fois qu'une cellule de ma plage A possède un fond indigo, on insere une ligne
au dessus de celle-ci !
Merci pour votre aide !!
Arnaud
Et pour pas cher, la réponse
une question à 10 centimes d'euros
;o))
JJ
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de
news:Ol6ZSfPtEHA.2788@TK2MSFTNGP09.phx.gbl...
Super !!
Merci beaucoup Pascal !!!
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
#6F0oZPtEHA.1452@TK2MSFTNGP11.phx.gbl...
Bonjour
Sub PourArnaud()
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Range("A" & i).Interior.ColorIndex = 55 Then _
Range("A" & i).Insert shift:=xlDown
Next i
End Sub
Cordialement
Pascal
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de
news:
OmOeZDPtEHA.3612@TK2MSFTNGP10.phx.gbl...
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque
fois
qu'une cellule de ma plage A possède un fond indigo, on insere une
ligne
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news: #
Bonjour Sub PourArnaud() For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("A" & i).Interior.ColorIndex = 55 Then _ Range("A" & i).Insert shift:=xlDown Next i End Sub Cordialement Pascal
"arnaud" a écrit dans le message de news:
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque fois qu'une cellule de ma plage A possède un fond indigo, on insere une ligne
au dessus de celle-ci !
Merci pour votre aide !!
Arnaud
papou
Re Sub PourArnaud() For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("A" & i).Interior.ColorIndex = 55 Then _ Range("A" & i).EntireRow.Insert shift:=xlDown Next i End Sub Cordialement Pascal
"arnaud" a écrit dans le message de news:
Cette macro m'insere une cellule mais pas une ligne... et ça crée un décalage dans la suite de mon tableau ! Comment faire pour qu'il m'insere une ligne entiere ??
----- Original Message ----- From: "papou" <cestpasbon@çanonplus44.fr> Newsgroups: microsoft.public.fr.excel Sent: Monday, October 18, 2004 11:39 AM Subject: Re: Boucle pour inserer des lignes..
Bonjour Sub PourArnaud() For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("A" & i).Interior.ColorIndex = 55 Then _ Range("A" & i).Insert shift:=xlDown Next i End Sub Cordialement Pascal
"arnaud" a écrit dans le message de news:
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque fois qu'une cellule de ma plage A possède un fond indigo, on insere une ligne au dessus de celle-ci !
Merci pour votre aide !!
Arnaud
"arnaud" a écrit dans le message de news:
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque fois
qu'une cellule de ma plage A possède un fond indigo, on insere une ligne au
dessus de celle-ci !
Merci pour votre aide !!
Arnaud
Re
Sub PourArnaud()
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Range("A" & i).Interior.ColorIndex = 55 Then _
Range("A" & i).EntireRow.Insert shift:=xlDown
Next i
End Sub
Cordialement
Pascal
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de news:
ufSJOuPtEHA.1216@TK2MSFTNGP10.phx.gbl...
Cette macro m'insere une cellule mais pas une ligne... et ça crée un
décalage dans la suite de mon tableau !
Comment faire pour qu'il m'insere une ligne entiere ??
----- Original Message -----
From: "papou" <cestpasbon@çanonplus44.fr>
Newsgroups: microsoft.public.fr.excel
Sent: Monday, October 18, 2004 11:39 AM
Subject: Re: Boucle pour inserer des lignes..
Bonjour
Sub PourArnaud()
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Range("A" & i).Interior.ColorIndex = 55 Then _
Range("A" & i).Insert shift:=xlDown
Next i
End Sub
Cordialement
Pascal
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de news:
OmOeZDPtEHA.3612@TK2MSFTNGP10.phx.gbl...
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque
fois
qu'une cellule de ma plage A possède un fond indigo, on insere une
ligne
au
dessus de celle-ci !
Merci pour votre aide !!
Arnaud
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de news:
OmOeZDPtEHA.3612@TK2MSFTNGP10.phx.gbl...
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque
fois
qu'une cellule de ma plage A possède un fond indigo, on insere une ligne
au
Re Sub PourArnaud() For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("A" & i).Interior.ColorIndex = 55 Then _ Range("A" & i).EntireRow.Insert shift:=xlDown Next i End Sub Cordialement Pascal
"arnaud" a écrit dans le message de news:
Cette macro m'insere une cellule mais pas une ligne... et ça crée un décalage dans la suite de mon tableau ! Comment faire pour qu'il m'insere une ligne entiere ??
----- Original Message ----- From: "papou" <cestpasbon@çanonplus44.fr> Newsgroups: microsoft.public.fr.excel Sent: Monday, October 18, 2004 11:39 AM Subject: Re: Boucle pour inserer des lignes..
Bonjour Sub PourArnaud() For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("A" & i).Interior.ColorIndex = 55 Then _ Range("A" & i).Insert shift:=xlDown Next i End Sub Cordialement Pascal
"arnaud" a écrit dans le message de news:
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque fois qu'une cellule de ma plage A possède un fond indigo, on insere une ligne au dessus de celle-ci !
Merci pour votre aide !!
Arnaud
"arnaud" a écrit dans le message de news:
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque fois
qu'une cellule de ma plage A possède un fond indigo, on insere une ligne au
dessus de celle-ci !
Merci pour votre aide !!
Arnaud
arnaud
Merci Beaucoup ! ça me plait mieux !
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Re Sub PourArnaud() For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("A" & i).Interior.ColorIndex = 55 Then _ Range("A" & i).EntireRow.Insert shift:=xlDown Next i End Sub Cordialement Pascal
"arnaud" a écrit dans le message de news:
Cette macro m'insere une cellule mais pas une ligne... et ça crée un décalage dans la suite de mon tableau ! Comment faire pour qu'il m'insere une ligne entiere ??
----- Original Message ----- From: "papou" <cestpasbon@çanonplus44.fr> Newsgroups: microsoft.public.fr.excel Sent: Monday, October 18, 2004 11:39 AM Subject: Re: Boucle pour inserer des lignes..
Bonjour Sub PourArnaud() For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("A" & i).Interior.ColorIndex = 55 Then _ Range("A" & i).Insert shift:=xlDown Next i End Sub Cordialement Pascal
"arnaud" a écrit dans le message de news:
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque
fois qu'une cellule de ma plage A possède un fond indigo, on insere une ligne au dessus de celle-ci !
Merci pour votre aide !!
Arnaud
"arnaud" a écrit dans le message de news:
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque fois
qu'une cellule de ma plage A possède un fond indigo, on insere une ligne
au
dessus de celle-ci !
Merci pour votre aide !!
Arnaud
Merci Beaucoup !
ça me plait mieux !
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
O14qY5PtEHA.1452@TK2MSFTNGP11.phx.gbl...
Re
Sub PourArnaud()
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Range("A" & i).Interior.ColorIndex = 55 Then _
Range("A" & i).EntireRow.Insert shift:=xlDown
Next i
End Sub
Cordialement
Pascal
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de news:
ufSJOuPtEHA.1216@TK2MSFTNGP10.phx.gbl...
Cette macro m'insere une cellule mais pas une ligne... et ça crée un
décalage dans la suite de mon tableau !
Comment faire pour qu'il m'insere une ligne entiere ??
----- Original Message -----
From: "papou" <cestpasbon@çanonplus44.fr>
Newsgroups: microsoft.public.fr.excel
Sent: Monday, October 18, 2004 11:39 AM
Subject: Re: Boucle pour inserer des lignes..
Bonjour
Sub PourArnaud()
For i = Range("A65536").End(xlUp).Row To 1 Step -1
If Range("A" & i).Interior.ColorIndex = 55 Then _
Range("A" & i).Insert shift:=xlDown
Next i
End Sub
Cordialement
Pascal
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de
news:
OmOeZDPtEHA.3612@TK2MSFTNGP10.phx.gbl...
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à
chaque
fois
qu'une cellule de ma plage A possède un fond indigo, on insere une
ligne
au
dessus de celle-ci !
Merci pour votre aide !!
Arnaud
"arnaud" <arnaud.lamy@silverplastics.fr> a écrit dans le message de
news:
OmOeZDPtEHA.3612@TK2MSFTNGP10.phx.gbl...
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque
fois
qu'une cellule de ma plage A possède un fond indigo, on insere une
ligne
"papou" <cestpasbon@çanonplus44.fr> a écrit dans le message de news:
Re Sub PourArnaud() For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("A" & i).Interior.ColorIndex = 55 Then _ Range("A" & i).EntireRow.Insert shift:=xlDown Next i End Sub Cordialement Pascal
"arnaud" a écrit dans le message de news:
Cette macro m'insere une cellule mais pas une ligne... et ça crée un décalage dans la suite de mon tableau ! Comment faire pour qu'il m'insere une ligne entiere ??
----- Original Message ----- From: "papou" <cestpasbon@çanonplus44.fr> Newsgroups: microsoft.public.fr.excel Sent: Monday, October 18, 2004 11:39 AM Subject: Re: Boucle pour inserer des lignes..
Bonjour Sub PourArnaud() For i = Range("A65536").End(xlUp).Row To 1 Step -1 If Range("A" & i).Interior.ColorIndex = 55 Then _ Range("A" & i).Insert shift:=xlDown Next i End Sub Cordialement Pascal
"arnaud" a écrit dans le message de news:
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque
fois qu'une cellule de ma plage A possède un fond indigo, on insere une ligne au dessus de celle-ci !
Merci pour votre aide !!
Arnaud
"arnaud" a écrit dans le message de news:
Bonjour à tous !
J'ai une question à 10 centimes d'euros pour les fans du VBA !
Je veux tout simplement faire une boucle pour ma colonne A : à chaque fois
qu'une cellule de ma plage A possède un fond indigo, on insere une ligne
