Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel Inserer une ligne vide

Inserer une ligne vide

3 réponses
Avatar
Michel
Bonsoir à tous

J'ai un tableau qui en colone A est remplis avec des dates du style jj/mm/aa
et je voudrais inserer une ligne vide a chaque changement de mois

A1 29/09/03
A2 30/09/03
A3 LIGNE VIDE
A4 01/10/03

Il faut savoir que les dates ne se suivent pas forcément car on ne travaille
pas tous les jours

Merci de votre aide
Signaler un problème avec ce contenu

3 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
Guy
Salut Michel

Sub sépare_les_mois()
fin = [A65536].End(xlUp).Row
mois = Month(Range("A" & fin).Value)
For i = fin To 1 Step -1
If Month(Range("A" & i).Value) <> mois Then
Range("A" & i).Offset(1, 0).EntireRow.Insert
mois = Month(Range("A" & i).Value)
End If
Next i
End Sub

Est ce que cela convient ?
Guy

"Michel" a écrit dans le message news:
3f79bd7b$0$24171$
Bonsoir à tous

J'ai un tableau qui en colone A est remplis avec des dates du style
jj/mm/aa

et je voudrais inserer une ligne vide a chaque changement de mois

A1 29/09/03
A2 30/09/03
A3 LIGNE VIDE
A4 01/10/03

Il faut savoir que les dates ne se suivent pas forcément car on ne
travaille

pas tous les jours

Merci de votre aide




Avatar
j
pas sur que tu aies eu une réponse, mon servceur de news a un comportement
bizarre ces temps-ci
sinon :

Sub macrochose()
For lin = Cells.Find("*", , , , , xlPrevious).Row To 2 Step -1
If IsDate(Cells(lin, 1)) And IsDate(Cells(lin - 1, 1)) Then
If Month(Cells(lin, 1)) <> Month(Cells(lin - 1, 1)) Then
Rows(lin).Insert
End If
End If
Next
End Sub


http://jacxl.free.fr/



"Michel" a écrit dans le message de news:
3f79bd7b$0$24171$
Bonsoir à tous

J'ai un tableau qui en colone A est remplis avec des dates du style
jj/mm/aa

et je voudrais inserer une ligne vide a chaque changement de mois

A1 29/09/03
A2 30/09/03
A3 LIGNE VIDE
A4 01/10/03

Il faut savoir que les dates ne se suivent pas forcément car on ne
travaille

pas tous les jours

Merci de votre aide




Avatar
Vincent.
Salut à tous les trois !

Juste un petit mot pour dire que je trouvais vos deux
soluces très élégantes ;-))

-----Message d'origine-----
pas sur que tu aies eu une réponse, mon servceur de news
a un comportement

bizarre ces temps-ci
sinon :

Sub macrochose()
For lin = Cells.Find("*", , , , , xlPrevious).Row To 2
Step -1

If IsDate(Cells(lin, 1)) And IsDate(Cells(lin - 1, 1))
Then

If Month(Cells(lin, 1)) <> Month(Cells(lin - 1, 1)) Then
Rows(lin).Insert
End If
End If
Next
End Sub


http://jacxl.free.fr/



"Michel" a écrit dans le message de news:
3f79bd7b$0$24171$
Bonsoir à tous

J'ai un tableau qui en colone A est remplis avec des
dates du style


jj/mm/aa
et je voudrais inserer une ligne vide a chaque
changement de mois



A1 29/09/03
A2 30/09/03
A3 LIGNE VIDE
A4 01/10/03

Il faut savoir que les dates ne se suivent pas
forcément car on ne


travaille
pas tous les jours

Merci de votre aide





.