bonjour a tous
dans un tableau avec des dates en colonne A triées de AàZ 1ère date en
A2
comment inserer automatiquement une ligne à
chaque changement de date
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
Starwing
C'est de AV:
Sub test() Range("A1:A20").Select On Error GoTo laFin For i = 20 To 1 Step -1 If Cells(i, 1).Offset(-1, 0).Value <> Cells(i, 1).Value Then Cells(i, 1).Offset(-1, 0).Select Cells(i, 1).Insert End If Next laFin: End Sub
-- Au plaisir de vous revoir ... Visitez >> http://www.excelabo.net Le merveilleux site de Misange Starwing
-- "yves" a écrit dans le message de news:420cf23c$0$19408$
bonjour a tous dans un tableau avec des dates en colonne A triées de AàZ 1ère date en A2 comment inserer automatiquement une ligne à chaque changement de date
04/02XXXXXXX 04/02XXXXXXX 04/02XXXXXXX
05/02XXXXXXX
06/02XXXXXXX 06/02XXXXXXX
C'est de AV:
Sub test()
Range("A1:A20").Select
On Error GoTo laFin
For i = 20 To 1 Step -1
If Cells(i, 1).Offset(-1, 0).Value <> Cells(i, 1).Value Then
Cells(i, 1).Offset(-1, 0).Select
Cells(i, 1).Insert
End If
Next
laFin:
End Sub
--
Au plaisir de vous revoir ...
Visitez >> http://www.excelabo.net
Le merveilleux site de Misange
Starwing
brault-lavoieNOSPAM@sympatico.ca
--
"yves" <ychene@wanadoo.fr> a écrit dans le message de
news:420cf23c$0$19408$8fcfb975@news.wanadoo.fr...
bonjour a tous
dans un tableau avec des dates en colonne A triées de AàZ 1ère date en
A2
comment inserer automatiquement une ligne à
chaque changement de date
Sub test() Range("A1:A20").Select On Error GoTo laFin For i = 20 To 1 Step -1 If Cells(i, 1).Offset(-1, 0).Value <> Cells(i, 1).Value Then Cells(i, 1).Offset(-1, 0).Select Cells(i, 1).Insert End If Next laFin: End Sub
-- Au plaisir de vous revoir ... Visitez >> http://www.excelabo.net Le merveilleux site de Misange Starwing
-- "yves" a écrit dans le message de news:420cf23c$0$19408$
bonjour a tous dans un tableau avec des dates en colonne A triées de AàZ 1ère date en A2 comment inserer automatiquement une ligne à chaque changement de date
