En colonne A, j'ai des jours de la semaine, ils sont classés et de ce
fait, j'ai plusieurs lundis, plusieurs mardis...
Je souhaite insérer une ligne vide à chaque fois que le jour change. Je
suis sùre de l'avoir déjà fait ou vu dans les archives du forum mais je
n'arrive pas à remettre la main sur ce code.
En colonne A, j'ai des jours de la semaine, ils sont classés et de ce fait, j'ai plusieurs lundis, plusieurs mardis...
Je souhaite insérer une ligne vide à chaque fois que le jour change. Je suis sùre de l'avoir déjà fait ou vu dans les archives du forum mai s je n'arrive pas à remettre la main sur ce code.
Quelqu'un peut-il me donner un coup de main ?
Merci d'avance
Julie
Bonsoir,
http://cjoint.com/?huwlw34BeP
JB
On 20 juil, 21:40, JulieH <Juli...@microsoft.com> wrote:
Bonsoir,
En colonne A, j'ai des jours de la semaine, ils sont classés et de ce
fait, j'ai plusieurs lundis, plusieurs mardis...
Je souhaite insérer une ligne vide à chaque fois que le jour change. Je
suis sùre de l'avoir déjà fait ou vu dans les archives du forum mai s je
n'arrive pas à remettre la main sur ce code.
En colonne A, j'ai des jours de la semaine, ils sont classés et de ce fait, j'ai plusieurs lundis, plusieurs mardis...
Je souhaite insérer une ligne vide à chaque fois que le jour change. Je suis sùre de l'avoir déjà fait ou vu dans les archives du forum mai s je n'arrive pas à remettre la main sur ce code.
Quelqu'un peut-il me donner un coup de main ?
Merci d'avance
Julie
JulieH
Bonsoir,
Tout à fait ce que je cherchais. Merci.
Si ce n'est trop te demander, j'ai une seconde question dans le même contexte.
Après avoir séparer les jours par une ligne vide, je veux fusionner toutes les cellules consécutives de la colonne A qui contienent le même jour.
En colonne A, j'ai des jours de la semaine, ils sont classés et de ce fait, j'ai plusieurs lundis, plusieurs mardis...
Je souhaite insérer une ligne vide à chaque fois que le jour change. Je suis sùre de l'avoir déjà fait ou vu dans les archives du forum mais je n'arrive pas à remettre la main sur ce code.
Quelqu'un peut-il me donner un coup de main ?
Merci d'avance
Julie
Bonsoir,
Tout à fait ce que je cherchais. Merci.
Si ce n'est trop te demander, j'ai une seconde question dans le même
contexte.
Après avoir séparer les jours par une ligne vide, je veux fusionner
toutes les cellules consécutives de la colonne A qui contienent le même
jour.
Merci d'avance.
Julie
Bonsoir,
http://cjoint.com/?huwlw34BeP
JB
On 20 juil, 21:40, JulieH <Juli...@microsoft.com> wrote:
Bonsoir,
En colonne A, j'ai des jours de la semaine, ils sont classés et de ce
fait, j'ai plusieurs lundis, plusieurs mardis...
Je souhaite insérer une ligne vide à chaque fois que le jour change. Je
suis sùre de l'avoir déjà fait ou vu dans les archives du forum mais je
n'arrive pas à remettre la main sur ce code.
En colonne A, j'ai des jours de la semaine, ils sont classés et de ce fait, j'ai plusieurs lundis, plusieurs mardis...
Je souhaite insérer une ligne vide à chaque fois que le jour change. Je suis sùre de l'avoir déjà fait ou vu dans les archives du forum mais je n'arrive pas à remettre la main sur ce code.
Sub essai() [A2].Select Do While ActiveCell <> "" m = ActiveCell n = 0 Do While ActiveCell = m ActiveCell.Offset(1, 0).Select n = n + 1 Loop ActiveCell.Offset(-n + 1, 0).Resize(n - 1, 1).ClearContents ActiveCell.EntireRow.Insert shift:=xlUp ActiveCell.Offset(1, 0).Select Loop End Sub
Sub essai2() Application.DisplayAlerts = False [A2].Select Do While ActiveCell <> "" m = ActiveCell n = 0 Do While ActiveCell = m ActiveCell.Offset(1, 0).Select n = n + 1 Loop ActiveCell.Offset(-n, 0).Resize(n, 1).Merge ActiveCell.EntireRow.Insert shift:=xlUp ActiveCell.Offset(1, 0).Select Loop End Sub
JB
On 20 juil, 22:21, JulieH wrote:
Bonsoir,
Tout à fait ce que je cherchais. Merci.
Si ce n'est trop te demander, j'ai une seconde question dans le m ême contexte.
Après avoir séparer les jours par une ligne vide, je veux fus ionner toutes les cellules consécutives de la colonne A qui contienent le mê me jour.
En colonne A, j'ai des jours de la semaine, ils sont classés et de ce fait, j'ai plusieurs lundis, plusieurs mardis...
Je souhaite insérer une ligne vide à chaque fois que le jo ur change. Je suis sùre de l'avoir déjà fait ou vu dans les archives du forum mais je n'arrive pas à remettre la main sur ce code.
Quelqu'un peut-il me donner un coup de main ?
Merci d'avance
Julie- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
La fusion pose souvent des pb:
http://cjoint.com/?huw0r6spFt
On peut aussi effacer.
Sub essai()
[A2].Select
Do While ActiveCell <> ""
m = ActiveCell
n = 0
Do While ActiveCell = m
ActiveCell.Offset(1, 0).Select
n = n + 1
Loop
ActiveCell.Offset(-n + 1, 0).Resize(n - 1, 1).ClearContents
ActiveCell.EntireRow.Insert shift:=xlUp
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Sub essai2()
Application.DisplayAlerts = False
[A2].Select
Do While ActiveCell <> ""
m = ActiveCell
n = 0
Do While ActiveCell = m
ActiveCell.Offset(1, 0).Select
n = n + 1
Loop
ActiveCell.Offset(-n, 0).Resize(n, 1).Merge
ActiveCell.EntireRow.Insert shift:=xlUp
ActiveCell.Offset(1, 0).Select
Loop
End Sub
JB
On 20 juil, 22:21, JulieH <Juli...@microsoft.com> wrote:
Bonsoir,
Tout à fait ce que je cherchais. Merci.
Si ce n'est trop te demander, j'ai une seconde question dans le m ême
contexte.
Après avoir séparer les jours par une ligne vide, je veux fus ionner
toutes les cellules consécutives de la colonne A qui contienent le mê me
jour.
Merci d'avance.
Julie
Bonsoir,
http://cjoint.com/?huwlw34BeP
JB
On 20 juil, 21:40, JulieH <Juli...@microsoft.com> wrote:
Bonsoir,
En colonne A, j'ai des jours de la semaine, ils sont classés et de ce
fait, j'ai plusieurs lundis, plusieurs mardis...
Je souhaite insérer une ligne vide à chaque fois que le jo ur change. Je
suis sùre de l'avoir déjà fait ou vu dans les archives du forum mais je
n'arrive pas à remettre la main sur ce code.
Sub essai() [A2].Select Do While ActiveCell <> "" m = ActiveCell n = 0 Do While ActiveCell = m ActiveCell.Offset(1, 0).Select n = n + 1 Loop ActiveCell.Offset(-n + 1, 0).Resize(n - 1, 1).ClearContents ActiveCell.EntireRow.Insert shift:=xlUp ActiveCell.Offset(1, 0).Select Loop End Sub
Sub essai2() Application.DisplayAlerts = False [A2].Select Do While ActiveCell <> "" m = ActiveCell n = 0 Do While ActiveCell = m ActiveCell.Offset(1, 0).Select n = n + 1 Loop ActiveCell.Offset(-n, 0).Resize(n, 1).Merge ActiveCell.EntireRow.Insert shift:=xlUp ActiveCell.Offset(1, 0).Select Loop End Sub
JB
On 20 juil, 22:21, JulieH wrote:
Bonsoir,
Tout à fait ce que je cherchais. Merci.
Si ce n'est trop te demander, j'ai une seconde question dans le m ême contexte.
Après avoir séparer les jours par une ligne vide, je veux fus ionner toutes les cellules consécutives de la colonne A qui contienent le mê me jour.
En colonne A, j'ai des jours de la semaine, ils sont classés et de ce fait, j'ai plusieurs lundis, plusieurs mardis...
Je souhaite insérer une ligne vide à chaque fois que le jo ur change. Je suis sùre de l'avoir déjà fait ou vu dans les archives du forum mais je n'arrive pas à remettre la main sur ce code.
Quelqu'un peut-il me donner un coup de main ?
Merci d'avance
Julie- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
JulieH
C'est bon avec essai 2, merci pour l'aide.
Merci également pour le conseil sur les fusions. Je m'en méfie déjà et ne les utilise que pour la mise en forme finale.
Sub essai() [A2].Select Do While ActiveCell <> "" m = ActiveCell n = 0 Do While ActiveCell = m ActiveCell.Offset(1, 0).Select n = n + 1 Loop ActiveCell.Offset(-n + 1, 0).Resize(n - 1, 1).ClearContents ActiveCell.EntireRow.Insert shift:=xlUp ActiveCell.Offset(1, 0).Select Loop End Sub
Sub essai2() Application.DisplayAlerts = False [A2].Select Do While ActiveCell <> "" m = ActiveCell n = 0 Do While ActiveCell = m ActiveCell.Offset(1, 0).Select n = n + 1 Loop ActiveCell.Offset(-n, 0).Resize(n, 1).Merge ActiveCell.EntireRow.Insert shift:=xlUp ActiveCell.Offset(1, 0).Select Loop End Sub
JB
On 20 juil, 22:21, JulieH wrote:
Bonsoir,
Tout à fait ce que je cherchais. Merci.
Si ce n'est trop te demander, j'ai une seconde question dans le même contexte.
Après avoir séparer les jours par une ligne vide, je veux fusionner toutes les cellules consécutives de la colonne A qui contienent le même jour.
Bonsoir, En colonne A, j'ai des jours de la semaine, ils sont classés et de ce fait, j'ai plusieurs lundis, plusieurs mardis... Je souhaite insérer une ligne vide à chaque fois que le jour change. Je suis sùre de l'avoir déjà fait ou vu dans les archives du forum mais je n'arrive pas à remettre la main sur ce code. Quelqu'un peut-il me donner un coup de main ? Merci d'avance Julie- Masquer le texte des messages précédents - - Afficher le texte des messages précédents -
C'est bon avec essai 2, merci pour l'aide.
Merci également pour le conseil sur les fusions. Je m'en méfie déjà et
ne les utilise que pour la mise en forme finale.
Bon week end
Julie
La fusion pose souvent des pb:
http://cjoint.com/?huw0r6spFt
On peut aussi effacer.
Sub essai()
[A2].Select
Do While ActiveCell <> ""
m = ActiveCell
n = 0
Do While ActiveCell = m
ActiveCell.Offset(1, 0).Select
n = n + 1
Loop
ActiveCell.Offset(-n + 1, 0).Resize(n - 1, 1).ClearContents
ActiveCell.EntireRow.Insert shift:=xlUp
ActiveCell.Offset(1, 0).Select
Loop
End Sub
Sub essai2()
Application.DisplayAlerts = False
[A2].Select
Do While ActiveCell <> ""
m = ActiveCell
n = 0
Do While ActiveCell = m
ActiveCell.Offset(1, 0).Select
n = n + 1
Loop
ActiveCell.Offset(-n, 0).Resize(n, 1).Merge
ActiveCell.EntireRow.Insert shift:=xlUp
ActiveCell.Offset(1, 0).Select
Loop
End Sub
JB
On 20 juil, 22:21, JulieH <Juli...@microsoft.com> wrote:
Bonsoir,
Tout à fait ce que je cherchais. Merci.
Si ce n'est trop te demander, j'ai une seconde question dans le même
contexte.
Après avoir séparer les jours par une ligne vide, je veux fusionner
toutes les cellules consécutives de la colonne A qui contienent le même
jour.
Merci d'avance.
Julie
Bonsoir,
http://cjoint.com/?huwlw34BeP
JB
On 20 juil, 21:40, JulieH <Juli...@microsoft.com> wrote:
Bonsoir,
En colonne A, j'ai des jours de la semaine, ils sont classés et de ce
fait, j'ai plusieurs lundis, plusieurs mardis...
Je souhaite insérer une ligne vide à chaque fois que le jour change. Je
suis sùre de l'avoir déjà fait ou vu dans les archives du forum mais je
n'arrive pas à remettre la main sur ce code.
Quelqu'un peut-il me donner un coup de main ?
Merci d'avance
Julie- Masquer le texte des messages précédents -
- Afficher le texte des messages précédents -
Sub essai() [A2].Select Do While ActiveCell <> "" m = ActiveCell n = 0 Do While ActiveCell = m ActiveCell.Offset(1, 0).Select n = n + 1 Loop ActiveCell.Offset(-n + 1, 0).Resize(n - 1, 1).ClearContents ActiveCell.EntireRow.Insert shift:=xlUp ActiveCell.Offset(1, 0).Select Loop End Sub
Sub essai2() Application.DisplayAlerts = False [A2].Select Do While ActiveCell <> "" m = ActiveCell n = 0 Do While ActiveCell = m ActiveCell.Offset(1, 0).Select n = n + 1 Loop ActiveCell.Offset(-n, 0).Resize(n, 1).Merge ActiveCell.EntireRow.Insert shift:=xlUp ActiveCell.Offset(1, 0).Select Loop End Sub
JB
On 20 juil, 22:21, JulieH wrote:
Bonsoir,
Tout à fait ce que je cherchais. Merci.
Si ce n'est trop te demander, j'ai une seconde question dans le même contexte.
Après avoir séparer les jours par une ligne vide, je veux fusionner toutes les cellules consécutives de la colonne A qui contienent le même jour.
Bonsoir, En colonne A, j'ai des jours de la semaine, ils sont classés et de ce fait, j'ai plusieurs lundis, plusieurs mardis... Je souhaite insérer une ligne vide à chaque fois que le jour change. Je suis sùre de l'avoir déjà fait ou vu dans les archives du forum mais je n'arrive pas à remettre la main sur ce code. Quelqu'un peut-il me donner un coup de main ? Merci d'avance Julie- Masquer le texte des messages précédents - - Afficher le texte des messages précédents -