Extraire le jour dans une date
Résolu
Bonjour,
J'ai plusieurs cellules avec les date comme ceci:
01.01.2010
02.01.2010
01.02.2010
02.01.2010
01.03.2010
Et j'aimerais extraire uniquement les premiers de chaque date.
01.01.2010
01.02.2010
01.03.2010
Merci d'avance,
Cordialement.
J'ai plusieurs cellules avec les date comme ceci:
01.01.2010
02.01.2010
01.02.2010
02.01.2010
01.03.2010
Et j'aimerais extraire uniquement les premiers de chaque date.
01.01.2010
01.02.2010
01.03.2010
Merci d'avance,
Cordialement.
8 réponses
-
Re,
Si tes dates sont en A2:A100 par exemple, en B2 colle cette formule et incrémente vers le bas
=SI(A2="";"";SI(A2=A3;"";A2))
en C2 pour récupérer les données de M
=SI(C2<>"";DECALER(C2;0;10);"")
en D2 pour récupérer les données de N
=SI(B2<>"";DECALER(B2;0;11);"")
et E2 pour O
=SI(B2<>"";DECALER(B2;0;12);"")
-
Re,
Il suffit de filtrer les données, pour cela mettre en surbrillance la plage en surbrillance puis (Données/Filtrer)
dans le filtre colonne B décocher Vides, il ne restera plus que les lignes contenant des données, les sélectionner/clic droit Copier/aller sur la feuille de destination, Collage Spécial/cocher Valeurs
-
Re
je ne donne pas de cours sur le vba
Voila ta solution pour tes date
Sub ChoixJour()
Lig = 2
For L = 2 To Cells(Rows.Count, 1).End(xlUp).Row
MaVar = Cells(L, 1).Value
Madate = Replace(MaVar, ".", "/")
If Format(DateValue(Madate), "d") = 1 Then
Cells(Lig, 2).Value = DateValue(Madate)
Lig = Lig + 1
' MsgBox Format(DateValue(Madate), "d")
End If
Next
End Sub
A+
Maurice -
Bonjour,
normalement le séparateur date reconnu par Excel est / et les dates devraient ressembler à
01/01/2010
02/01/2010
01/02/2010
02/01/2010
01/03/2010
sauf si tes paramètres sont effectivement le point
dans ce cas la formule serait
=JOUR(A1)
si ce n'est pas le cas
=JOUR(SUBSTITUE(A1;".";"/")) -
Re,
formate la cellule en format standard (clic droit sur la cellule/format de cellule/nombre/standard)
-
Re,
pas la cellule de départ ou tu as la date, simplement la cellule avec la formule
ou on fait la conversion avec la formule
=TEXTE(JOUR(SUBSTITUE(A1;".";"/"));"00")
-
Merci, ça marche parfaitement !
Maintenant je suis dans cette situation :
J'ai plusieurs dates identique qui se suivent ( elles étaient à l'origine trier par heure.)
01.01.2010
01.01.2010
01.01.2010
01.01.2010
01.01.2010
01.01.2010
01.01.2010
02.01.2010
02.01.2010
02.01.2010
02.01.2010
02.01.2010
02.01.2010
02.01.2010
Et j'aimerais extraire uniquement la dernière ligne de cette date avec les données de la colonne M, N, O...
Comme ceci :
01.01.2010
02.01.2010
Sauriez-vous comment faire ?
-
-
.
-
Re,
bien sur il est possible de faire plus technique et automatiser tout cela avec un code VBA dans un ActiveX
mais bon es ce que cela vaut la peine de faire compliqué et connais tu ce langage ?
