Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Insertion ligne vide

4 réponses
Avatar
JulieH
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

4 réponses

Avatar
JB
Bonsoir,

http://cjoint.com/?huwlw34BeP

JB

On 20 juil, 21:40, JulieH 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.

Quelqu'un peut-il me donner un coup de main ?

Merci d'avance

Julie


Avatar
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.

Merci d'avance.

Julie


Bonsoir,

http://cjoint.com/?huwlw34BeP

JB

On 20 juil, 21:40, JulieH 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






Avatar
JB
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 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 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.

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 -




Avatar
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.

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 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 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 -