Insertion ligne vide

Le
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
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
JB
Le #4865641
Bonsoir,

http://cjoint.com/?huwlw34BeP

JB

On 20 juil, 21:40, 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 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
Le #4865611
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
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






JB
Le #4865521
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
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
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 -




JulieH
Le #4865491
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
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
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 -










Publicité
Poster une réponse
Anonyme