dans un tableau avec JOUR pour entête de la colonne B et un nombre variable
de lignes,
comment inserrer automatiquement une ligne vide au dessus de la ligne
contenant lundi
uniquement quand ce lundi est précédé par un samedi
DATE JOUR VILLE
03/01 lundi PARIS
03/01 lundi PARIS
04/01 mardi NANTES
05/01 mercredi BORDEAUX
05/01 mercredi BORDEAUX
06/01 jeudi LILLE
06/01 jeudi LILLE
07/01 vendredi MARSEILLES
07/01 vendredi MARSEILLES
08/01 samedi ANNECY
08/01 samedi ANNECY
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
Patrick BASTARD
Bonjour, *yves*
J'ai lu le fil que tu as initié le 8/2 à 20:01 auquel JPP a apporté une réponse qu'il suffit d'adapter pour insérer une ligne au lieu d'une cellule. (Merci, l'enregistreur de macro). Tu lui as répondu que cela ne convenait pas sur le fil que tu as initié le 8/2 à23:02 J'ai aussi lu le fil que tu as initié le 9/2 19:33. Si tu n'es pas un habitué des fora(i) forums, tu ne sais peut être pas qu'il convient de rester dans le même fil pou une même question. Cela permet aux autres lecteurs d'en suivre le déroulement, depuis la question jusqu'à la solution. Cela permet également de retrouver une réponse à une question maintes fois posées (via google group/excel par exemple).
-- Bien cordialement, P. Bastard
Bonjour a tous
dans un tableau avec JOUR pour entête de la colonne B et un nombre variable de lignes, comment inserrer automatiquement une ligne vide au dessus de la ligne contenant lundi uniquement quand ce lundi est précédé par un samedi
DATE JOUR VILLE 03/01 lundi PARIS 03/01 lundi PARIS 04/01 mardi NANTES 05/01 mercredi BORDEAUX 05/01 mercredi BORDEAUX 06/01 jeudi LILLE 06/01 jeudi LILLE 07/01 vendredi MARSEILLES 07/01 vendredi MARSEILLES 08/01 samedi ANNECY 08/01 samedi ANNECY
J'ai lu le fil que tu as initié le 8/2 à 20:01 auquel JPP a apporté une
réponse qu'il suffit d'adapter pour insérer une ligne au lieu d'une cellule.
(Merci, l'enregistreur de macro).
Tu lui as répondu que cela ne convenait pas sur le fil que tu as initié le
8/2 à23:02
J'ai aussi lu le fil que tu as initié le 9/2 19:33.
Si tu n'es pas un habitué des fora(i) forums, tu ne sais peut être pas qu'il
convient de rester dans le même fil pou une même question.
Cela permet aux autres lecteurs d'en suivre le déroulement, depuis la
question jusqu'à la solution.
Cela permet également de retrouver une réponse à une question maintes fois
posées (via google group/excel par exemple).
--
Bien cordialement,
P. Bastard
Bonjour a tous
dans un tableau avec JOUR pour entête de la colonne B et un nombre
variable de lignes,
comment inserrer automatiquement une ligne vide au dessus de la ligne
contenant lundi
uniquement quand ce lundi est précédé par un samedi
DATE JOUR VILLE
03/01 lundi PARIS
03/01 lundi PARIS
04/01 mardi NANTES
05/01 mercredi BORDEAUX
05/01 mercredi BORDEAUX
06/01 jeudi LILLE
06/01 jeudi LILLE
07/01 vendredi MARSEILLES
07/01 vendredi MARSEILLES
08/01 samedi ANNECY
08/01 samedi ANNECY
J'ai lu le fil que tu as initié le 8/2 à 20:01 auquel JPP a apporté une réponse qu'il suffit d'adapter pour insérer une ligne au lieu d'une cellule. (Merci, l'enregistreur de macro). Tu lui as répondu que cela ne convenait pas sur le fil que tu as initié le 8/2 à23:02 J'ai aussi lu le fil que tu as initié le 9/2 19:33. Si tu n'es pas un habitué des fora(i) forums, tu ne sais peut être pas qu'il convient de rester dans le même fil pou une même question. Cela permet aux autres lecteurs d'en suivre le déroulement, depuis la question jusqu'à la solution. Cela permet également de retrouver une réponse à une question maintes fois posées (via google group/excel par exemple).
-- Bien cordialement, P. Bastard
Bonjour a tous
dans un tableau avec JOUR pour entête de la colonne B et un nombre variable de lignes, comment inserrer automatiquement une ligne vide au dessus de la ligne contenant lundi uniquement quand ce lundi est précédé par un samedi
DATE JOUR VILLE 03/01 lundi PARIS 03/01 lundi PARIS 04/01 mardi NANTES 05/01 mercredi BORDEAUX 05/01 mercredi BORDEAUX 06/01 jeudi LILLE 06/01 jeudi LILLE 07/01 vendredi MARSEILLES 07/01 vendredi MARSEILLES 08/01 samedi ANNECY 08/01 samedi ANNECY
Merci pour le tuyau J'ai essayé Row.Insert mais sans succès yves "Patrick BASTARD" a écrit dans le message news:
Bonjour, *yves*
J'ai lu le fil que tu as initié le 8/2 à 20:01 auquel JPP a apporté une réponse qu'il suffit d'adapter pour insérer une ligne au lieu d'une cellule.
(Merci, l'enregistreur de macro). Tu lui as répondu que cela ne convenait pas sur le fil que tu as initié le 8/2 à23:02 J'ai aussi lu le fil que tu as initié le 9/2 19:33. Si tu n'es pas un habitué des fora(i) forums, tu ne sais peut être pas qu'il
convient de rester dans le même fil pou une même question. Cela permet aux autres lecteurs d'en suivre le déroulement, depuis la question jusqu'à la solution. Cela permet également de retrouver une réponse à une question maintes fois posées (via google group/excel par exemple).
-- Bien cordialement, P. Bastard
Bonjour a tous
dans un tableau avec JOUR pour entête de la colonne B et un nombre variable de lignes, comment inserrer automatiquement une ligne vide au dessus de la ligne contenant lundi uniquement quand ce lundi est précédé par un samedi
DATE JOUR VILLE 03/01 lundi PARIS 03/01 lundi PARIS 04/01 mardi NANTES 05/01 mercredi BORDEAUX 05/01 mercredi BORDEAUX 06/01 jeudi LILLE 06/01 jeudi LILLE 07/01 vendredi MARSEILLES 07/01 vendredi MARSEILLES 08/01 samedi ANNECY 08/01 samedi ANNECY
Merci pour le tuyau
J'ai essayé Row.Insert mais sans succès
yves
"Patrick BASTARD" <pasdespambastardp@freepasdespam.fr> a écrit dans le
message news: ea12EhtDFHA.2508@TK2MSFTNGP09.phx.gbl...
Bonjour, *yves*
J'ai lu le fil que tu as initié le 8/2 à 20:01 auquel JPP a apporté une
réponse qu'il suffit d'adapter pour insérer une ligne au lieu d'une
cellule.
(Merci, l'enregistreur de macro).
Tu lui as répondu que cela ne convenait pas sur le fil que tu as initié le
8/2 à23:02
J'ai aussi lu le fil que tu as initié le 9/2 19:33.
Si tu n'es pas un habitué des fora(i) forums, tu ne sais peut être pas
qu'il
convient de rester dans le même fil pou une même question.
Cela permet aux autres lecteurs d'en suivre le déroulement, depuis la
question jusqu'à la solution.
Cela permet également de retrouver une réponse à une question maintes fois
posées (via google group/excel par exemple).
--
Bien cordialement,
P. Bastard
Bonjour a tous
dans un tableau avec JOUR pour entête de la colonne B et un nombre
variable de lignes,
comment inserrer automatiquement une ligne vide au dessus de la ligne
contenant lundi
uniquement quand ce lundi est précédé par un samedi
DATE JOUR VILLE
03/01 lundi PARIS
03/01 lundi PARIS
04/01 mardi NANTES
05/01 mercredi BORDEAUX
05/01 mercredi BORDEAUX
06/01 jeudi LILLE
06/01 jeudi LILLE
07/01 vendredi MARSEILLES
07/01 vendredi MARSEILLES
08/01 samedi ANNECY
08/01 samedi ANNECY
Merci pour le tuyau J'ai essayé Row.Insert mais sans succès yves "Patrick BASTARD" a écrit dans le message news:
Bonjour, *yves*
J'ai lu le fil que tu as initié le 8/2 à 20:01 auquel JPP a apporté une réponse qu'il suffit d'adapter pour insérer une ligne au lieu d'une cellule.
(Merci, l'enregistreur de macro). Tu lui as répondu que cela ne convenait pas sur le fil que tu as initié le 8/2 à23:02 J'ai aussi lu le fil que tu as initié le 9/2 19:33. Si tu n'es pas un habitué des fora(i) forums, tu ne sais peut être pas qu'il
convient de rester dans le même fil pou une même question. Cela permet aux autres lecteurs d'en suivre le déroulement, depuis la question jusqu'à la solution. Cela permet également de retrouver une réponse à une question maintes fois posées (via google group/excel par exemple).
-- Bien cordialement, P. Bastard
Bonjour a tous
dans un tableau avec JOUR pour entête de la colonne B et un nombre variable de lignes, comment inserrer automatiquement une ligne vide au dessus de la ligne contenant lundi uniquement quand ce lundi est précédé par un samedi
DATE JOUR VILLE 03/01 lundi PARIS 03/01 lundi PARIS 04/01 mardi NANTES 05/01 mercredi BORDEAUX 05/01 mercredi BORDEAUX 06/01 jeudi LILLE 06/01 jeudi LILLE 07/01 vendredi MARSEILLES 07/01 vendredi MARSEILLES 08/01 samedi ANNECY 08/01 samedi ANNECY
Je t'adresse le résultat de ma recherche sur Google Group.
J'espère qu'avec la réponse de Jean-Pascal, tu pourras t'en sortir.
De :eis () Objet :ReRe: Re: Insertion Lignes Suite
View this article only Groupes de discussion :microsoft.public.fr.excel Date :2003-09-27 02:57:59 PST
Merci beaucoup Camille J'avais oublier de repréciser que mes données commençaient en 2ème ligne mais en modifiant H1 en H2, ton code marche parfaitement. encore merci et bonjour à tous yves "Ellimac" a écrit dans le message de news: 200701c3843c$f0c51d60$ Bonjour,
Avec le 1er 1 en H1 :
Sub Toto() a = Application.CountIf(Columns(8), 1) Range("h1").Select For cpt = 1 To 2 ActiveCell.Offset(a).Select ActiveCell.EntireRow.Insert ActiveCell.Offset(1).Select a = Application.CountIf(Columns(8), 2) Next End Sub
Camille
-----Message d'origine-----
"eis" a écrit dans le message de news: ...
Bonjour Isabelle j'ai déjà eu l'occasion de te remercier pour ton aide.J'espérais me débrouiller avec une partie de la solution mais là j'ai un souçi avec ton code.Quand je l'exécute il me crée des lignes vierges au dessus de chaque lignes avec un 3 en colonne H. Après avoir trié mon tableau, moi je ne veux isoler que la 1ère ligne avec un 3. En fait, voilà la totalité de ce que je veux obtenir.Je veux isoler les lignes avec des 1, puis les lignes avec des 2, puis les lignes au dessus de 2. x x x x x x x 1 x x x x x x x x x x x 1 x x x x x x x x x x x 1 x x x x ligne vide x x x x x x x 2 x x x x x x x x x x x 2 x x x x ligne vide x x x x x x x 3 x x x x x x x x x x x 3 x x x x x x x x x x x 3 x x x x x x x x x x x 3 x x x x x x x x x x x 4 x x x x x x x x x x x 4 x x x x x x x x x x x 5 x x x x x x x x x x x 5 x x x x x x x x x x x 6 x x x x "isabelle" a écrit dans le message de news:
bonjour Yves,
pour une solution macro,
Sub InsertLigneSi3() For i = Range("H65536").End(xlUp).Row To 1 Step -1 If Range("H" & i) = 3 Then Rows(i).Insert Shift:=xlDown Next End Sub
isabelle
Bonjour à tous ! Comment inserrer automatiquement une ligne dans un tableau lorsque la valeur d'une cellule dans la colonne H est égale à 3 ? merci pour vos lumières Yves -- Bien cordialement,P. Bastard
Bonjour, *yves*
Je t'adresse le résultat de ma recherche sur Google Group.
J'espère qu'avec la réponse de Jean-Pascal, tu pourras t'en sortir.
De :eis (nospam-ychene@wanadoo.fr)
Objet :ReRe: Re: Insertion Lignes Suite
View this article only
Groupes de discussion :microsoft.public.fr.excel
Date :2003-09-27 02:57:59 PST
Merci beaucoup Camille
J'avais oublier de repréciser que mes données commençaient en 2ème ligne
mais en modifiant H1 en H2, ton code marche parfaitement.
encore merci et bonjour à tous
yves
"Ellimac" <PasDePubellimacNiSpam_cremelier@hotmail.com> a écrit dans le
message de news: 200701c3843c$f0c51d60$a301280a@phx.gbl...
Bonjour,
Avec le 1er 1 en H1 :
Sub Toto()
a = Application.CountIf(Columns(8), 1)
Range("h1").Select
For cpt = 1 To 2
ActiveCell.Offset(a).Select
ActiveCell.EntireRow.Insert
ActiveCell.Offset(1).Select
a = Application.CountIf(Columns(8), 2)
Next
End Sub
Camille
-----Message d'origine-----
"eis" <nospam-ychene@wanadoo.fr> a écrit dans le message de news: ...
Bonjour Isabelle
j'ai déjà eu l'occasion de te remercier pour ton aide.J'espérais me
débrouiller avec une partie de la solution mais là
j'ai un souçi avec ton code.Quand je l'exécute il me crée des lignes
vierges
au dessus de chaque lignes avec un 3 en
colonne H. Après avoir trié mon tableau, moi je ne veux isoler que la
1ère
ligne avec un 3. En fait, voilà la totalité de
ce que je veux obtenir.Je veux isoler les lignes avec des 1, puis les
lignes
avec des 2, puis les lignes au dessus de 2.
x x x x x x x 1 x x x x
x x x x x x x 1 x x x x
x x x x x x x 1 x x x x
ligne vide
x x x x x x x 2 x x x x
x x x x x x x 2 x x x x
ligne vide
x x x x x x x 3 x x x x
x x x x x x x 3 x x x x
x x x x x x x 3 x x x x
x x x x x x x 3 x x x x
x x x x x x x 4 x x x x
x x x x x x x 4 x x x x
x x x x x x x 5 x x x x
x x x x x x x 5 x x x x
x x x x x x x 6 x x x x
"isabelle" <as.isabellevIE@videotron.ca> a écrit dans le message de news:
3F735403.C6CF2890@videotron.ca...
bonjour Yves,
pour une solution macro,
Sub InsertLigneSi3()
For i = Range("H65536").End(xlUp).Row To 1 Step -1
If Range("H" & i) = 3 Then Rows(i).Insert Shift:=xlDown
Next
End Sub
isabelle
Bonjour à tous !
Comment inserrer automatiquement une ligne dans un tableau
lorsque la valeur d'une cellule dans la colonne H est égale à 3 ?
merci pour vos lumières
Yves
-- Bien cordialement,P. Bastard
Je t'adresse le résultat de ma recherche sur Google Group.
J'espère qu'avec la réponse de Jean-Pascal, tu pourras t'en sortir.
De :eis () Objet :ReRe: Re: Insertion Lignes Suite
View this article only Groupes de discussion :microsoft.public.fr.excel Date :2003-09-27 02:57:59 PST
Merci beaucoup Camille J'avais oublier de repréciser que mes données commençaient en 2ème ligne mais en modifiant H1 en H2, ton code marche parfaitement. encore merci et bonjour à tous yves "Ellimac" a écrit dans le message de news: 200701c3843c$f0c51d60$ Bonjour,
Avec le 1er 1 en H1 :
Sub Toto() a = Application.CountIf(Columns(8), 1) Range("h1").Select For cpt = 1 To 2 ActiveCell.Offset(a).Select ActiveCell.EntireRow.Insert ActiveCell.Offset(1).Select a = Application.CountIf(Columns(8), 2) Next End Sub
Camille
-----Message d'origine-----
"eis" a écrit dans le message de news: ...
Bonjour Isabelle j'ai déjà eu l'occasion de te remercier pour ton aide.J'espérais me débrouiller avec une partie de la solution mais là j'ai un souçi avec ton code.Quand je l'exécute il me crée des lignes vierges au dessus de chaque lignes avec un 3 en colonne H. Après avoir trié mon tableau, moi je ne veux isoler que la 1ère ligne avec un 3. En fait, voilà la totalité de ce que je veux obtenir.Je veux isoler les lignes avec des 1, puis les lignes avec des 2, puis les lignes au dessus de 2. x x x x x x x 1 x x x x x x x x x x x 1 x x x x x x x x x x x 1 x x x x ligne vide x x x x x x x 2 x x x x x x x x x x x 2 x x x x ligne vide x x x x x x x 3 x x x x x x x x x x x 3 x x x x x x x x x x x 3 x x x x x x x x x x x 3 x x x x x x x x x x x 4 x x x x x x x x x x x 4 x x x x x x x x x x x 5 x x x x x x x x x x x 5 x x x x x x x x x x x 6 x x x x "isabelle" a écrit dans le message de news:
bonjour Yves,
pour une solution macro,
Sub InsertLigneSi3() For i = Range("H65536").End(xlUp).Row To 1 Step -1 If Range("H" & i) = 3 Then Rows(i).Insert Shift:=xlDown Next End Sub
isabelle
Bonjour à tous ! Comment inserrer automatiquement une ligne dans un tableau lorsque la valeur d'une cellule dans la colonne H est égale à 3 ? merci pour vos lumières Yves -- Bien cordialement,P. Bastard
JpPradier
Bonjour Yves
Comme te l'a expliqué Patrick, j'ai loupé ta réponse. Voici la macro modifiée :
Sub Inserer()
Fin = Range("B65536").End(xlUp).Row For Each cellu In Range("B2:B" & Fin) If cellu.Value = "lundi" And cellu.Offset(-1).Value = "samedi" Then cellu.EntireRow.Insert shift:=xlDown Next
End Sub
Bonjour Yves
Comme te l'a expliqué Patrick, j'ai loupé ta réponse. Voici la macro modifiée :
Sub Inserer()
Fin = Range("B65536").End(xlUp).Row
For Each cellu In Range("B2:B" & Fin)
If cellu.Value = "lundi" And cellu.Offset(-1).Value = "samedi" Then cellu.EntireRow.Insert
shift:=xlDown
Next
Comme te l'a expliqué Patrick, j'ai loupé ta réponse. Voici la macro modifiée :
Sub Inserer()
Fin = Range("B65536").End(xlUp).Row For Each cellu In Range("B2:B" & Fin) If cellu.Value = "lundi" And cellu.Offset(-1).Value = "samedi" Then cellu.EntireRow.Insert shift:=xlDown Next
End Sub
yves
Merci encore! Désolé pour le fil je me suis un peu pris les pieds dedans yves "JpPradier" a écrit dans le message news:
Bonjour Yves
Comme te l'a expliqué Patrick, j'ai loupé ta réponse. Voici la macro modifiée :
Sub Inserer()
Fin = Range("B65536").End(xlUp).Row For Each cellu In Range("B2:B" & Fin) If cellu.Value = "lundi" And cellu.Offset(-1).Value = "samedi" Then cellu.EntireRow.Insert
shift:=xlDown Next
End Sub
Merci encore!
Désolé pour le fil je me suis un peu pris les pieds dedans
yves
"JpPradier" <jp.pradier.JVeuxPasDeSpam@wanadoo.fr> a écrit dans le message
news: uOBnf9tDFHA.3504@TK2MSFTNGP12.phx.gbl...
Bonjour Yves
Comme te l'a expliqué Patrick, j'ai loupé ta réponse. Voici la macro
modifiée :
Sub Inserer()
Fin = Range("B65536").End(xlUp).Row
For Each cellu In Range("B2:B" & Fin)
If cellu.Value = "lundi" And cellu.Offset(-1).Value = "samedi" Then
cellu.EntireRow.Insert
Merci encore! Désolé pour le fil je me suis un peu pris les pieds dedans yves "JpPradier" a écrit dans le message news:
Bonjour Yves
Comme te l'a expliqué Patrick, j'ai loupé ta réponse. Voici la macro modifiée :
Sub Inserer()
Fin = Range("B65536").End(xlUp).Row For Each cellu In Range("B2:B" & Fin) If cellu.Value = "lundi" And cellu.Offset(-1).Value = "samedi" Then cellu.EntireRow.Insert
shift:=xlDown Next
End Sub
JpPradier
Rien de grave. L'essentiel étant que tu sois dépanné.
j-p
Rien de grave. L'essentiel étant que tu sois dépanné.
