Dans mes cellules de la colonne B, j'ai des dates exemple:
B1 1/1/05
B2 12/1/05
B3 12/1/05
la cellule B3 est fusionnée (B4.B5) 1/2/05
B6 1/5/05
Je souhaiterai insérer un ligne pour la date d'une cellule le 25/1/05
de façon que la colonne B, est les dates de façon chronologique
est ce possible en VBA?
merci d'avance
bonne journée
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
Daniel
Bonsoir. En supposant que la date à insérer soit en A1 : Sub Test() Dim c As Range Range("B1", Range("B1").End(xlDown)).Select For Each c In Selection If c.Value >= Range("A1").Value Then c.Rows.Insert c.Offset(-1, 0).Select ActiveCell = Range("a1").Value Exit For End If Next c End Sub Cordialement. Daniel "jl Guitard" a écrit dans le message de news: %
Bonjour,
Dans mes cellules de la colonne B, j'ai des dates exemple: B1 1/1/05 B2 12/1/05 B3 12/1/05 la cellule B3 est fusionnée (B4.B5) 1/2/05 B6 1/5/05
Je souhaiterai insérer un ligne pour la date d'une cellule le 25/1/05 de façon que la colonne B, est les dates de façon chronologique est ce possible en VBA? merci d'avance bonne journée
Bonsoir.
En supposant que la date à insérer soit en A1 :
Sub Test()
Dim c As Range
Range("B1", Range("B1").End(xlDown)).Select
For Each c In Selection
If c.Value >= Range("A1").Value Then
c.Rows.Insert
c.Offset(-1, 0).Select
ActiveCell = Range("a1").Value
Exit For
End If
Next c
End Sub
Cordialement.
Daniel
"jl Guitard" <jl.guitard@wanadoo.fr> a écrit dans le message de news:
%23nP7SjUBFHA.3908@TK2MSFTNGP12.phx.gbl...
Bonjour,
Dans mes cellules de la colonne B, j'ai des dates exemple:
B1 1/1/05
B2 12/1/05
B3 12/1/05
la cellule B3 est fusionnée (B4.B5) 1/2/05
B6 1/5/05
Je souhaiterai insérer un ligne pour la date d'une cellule le 25/1/05
de façon que la colonne B, est les dates de façon chronologique
est ce possible en VBA?
merci d'avance
bonne journée
Bonsoir. En supposant que la date à insérer soit en A1 : Sub Test() Dim c As Range Range("B1", Range("B1").End(xlDown)).Select For Each c In Selection If c.Value >= Range("A1").Value Then c.Rows.Insert c.Offset(-1, 0).Select ActiveCell = Range("a1").Value Exit For End If Next c End Sub Cordialement. Daniel "jl Guitard" a écrit dans le message de news: %
Bonjour,
Dans mes cellules de la colonne B, j'ai des dates exemple: B1 1/1/05 B2 12/1/05 B3 12/1/05 la cellule B3 est fusionnée (B4.B5) 1/2/05 B6 1/5/05
Je souhaiterai insérer un ligne pour la date d'une cellule le 25/1/05 de façon que la colonne B, est les dates de façon chronologique est ce possible en VBA? merci d'avance bonne journée
