Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel ligne vide ligne vide...

ligne vide ligne vide...

2 réponses
Avatar
yves
Bonjour a tous

Au départ mon tableau contient environ 200 lignes sur 6 colonnes de A : F
qui représentent 1 trimestre du lundi au Samedi sans entête de colonne en
partant en A1

03/01/05 .LUNDI .VALENCE .100 .O .T
O3/01/05 .LUNDI .RENNES .500 .N .B
04/01/05 .MARDI .ANGERS .600 .N .T
05/01/05 .MERCREDI .LYON .300 .O .B
05/01/05 .MERCREDI .DIJON .350 .N .T
05/01/05 .MERCREDI .NICE .500 .N .B

A l'arrivée je dois isoler mes dates sur 8 lignes par jour. Dans mon exemple
inserrer 6 lignes vides après LUNDI, 7 lignes vides après mardi, 5 lignes
vides
après mercredi.etc...
Peut-on automatiser cette insertion de lignes ?
Signaler un problème avec ce contenu

2 réponses

Supprimer
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
Avatar
Ellimac
Bonjour,

Sub Toto()
Range("b1").Select
While ActiveCell.Row <> der
If ActiveCell = ActiveCell.Offset(1) Then
ActiveCell.Offset(1).Select
Else
If ActiveCell.Offset(-1) = "" Then
n = 6
ActiveCell.Offset(1).Range("a1:a" &
n).EntireRow.Insert
ActiveCell.End(xlDown).Select
Else
n = 7 - Range(ActiveCell, ActiveCell.End
(xlUp)).Cells.Count
ActiveCell.Offset(1).Range("a1:a" &
n).EntireRow.Insert
ActiveCell.End(xlDown).Select
End If
End If
der = Range("a50000").End(xlUp).Row
Wend
End Sub

Camille

-----Message d'origine-----
Bonjour a tous

Au départ mon tableau contient environ 200 lignes sur 6
colonnes de A : F

qui représentent 1 trimestre du lundi au Samedi sans
entête de colonne en

partant en A1

03/01/05 .LUNDI .VALENCE .100 .O .T
O3/01/05 .LUNDI .RENNES .500 .N .B
04/01/05 .MARDI .ANGERS .600 .N .T
05/01/05 .MERCREDI .LYON .300 .O .B
05/01/05 .MERCREDI .DIJON .350 .N .T
05/01/05 .MERCREDI .NICE .500 .N .B

A l'arrivée je dois isoler mes dates sur 8 lignes par
jour. Dans mon exemple

inserrer 6 lignes vides après LUNDI, 7 lignes vides
après mardi, 5 lignes

vides
après mercredi.etc...
Peut-on automatiser cette insertion de lignes ?


.



Avatar
yves
Merci pour lecoup de main
yves
"Ellimac" a écrit dans le message
news: 14f201c515cd$c821e270$
Bonjour,

Sub Toto()
Range("b1").Select
While ActiveCell.Row <> der
If ActiveCell = ActiveCell.Offset(1) Then
ActiveCell.Offset(1).Select
Else
If ActiveCell.Offset(-1) = "" Then
n = 6
ActiveCell.Offset(1).Range("a1:a" &
n).EntireRow.Insert
ActiveCell.End(xlDown).Select
Else
n = 7 - Range(ActiveCell, ActiveCell.End
(xlUp)).Cells.Count
ActiveCell.Offset(1).Range("a1:a" &
n).EntireRow.Insert
ActiveCell.End(xlDown).Select
End If
End If
der = Range("a50000").End(xlUp).Row
Wend
End Sub

Camille

-----Message d'origine-----
Bonjour a tous

Au départ mon tableau contient environ 200 lignes sur 6
colonnes de A : F

qui représentent 1 trimestre du lundi au Samedi sans
entête de colonne en

partant en A1

03/01/05 .LUNDI .VALENCE .100 .O .T
O3/01/05 .LUNDI .RENNES .500 .N .B
04/01/05 .MARDI .ANGERS .600 .N .T
05/01/05 .MERCREDI .LYON .300 .O .B
05/01/05 .MERCREDI .DIJON .350 .N .T
05/01/05 .MERCREDI .NICE .500 .N .B

A l'arrivée je dois isoler mes dates sur 8 lignes par
jour. Dans mon exemple

inserrer 6 lignes vides après LUNDI, 7 lignes vides
après mardi, 5 lignes

vides
après mercredi.etc...
Peut-on automatiser cette insertion de lignes ?


.