Extraire le jour dans une date

Résolu
Yeezuus Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -  
Yeezuus Messages postés 8 Date d'inscription   Statut Membre Dernière intervention   -
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.

A voir également:

8 réponses

Réponse 1 / 8
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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);"")
1
Yeezuus Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
Merci !!!!!

Maintenant est-ce possible de mettre sur une autre feuille uniquement les lignes qui ne sont pas blanches (et j'ai 80'000 est-ce possible de tirer en bas automatiquement ?!)
0
Réponse 2 / 8
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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
1
Réponse 3 / 8
Maurice
 
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
0
Yeezuus Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

De quel type doivent être les variables?
0
Réponse 4 / 8
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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;".";"/"))
0
Yeezuus Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
Bonjour,

Votre méthode marche effectivement mais elle ne fait pas référence à la date initiale.

Par exemple lorsque je prend la date du 01.01.2010, il prend bien le jour mais change la date en 01.01.1900 ...
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 8
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
Re,

formate la cellule en format standard (clic droit sur la cellule/format de cellule/nombre/standard)
0
Yeezuus Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
ça convertit la date en chiffre (432432,00342)
0
Réponse 6 / 8
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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")
0
Yeezuus Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
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 ?
0
Réponse 7 / 8
Yeezuus Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
.
0
Réponse 8 / 8
Mike-31 Messages postés 18405 Date d'inscription   Statut Contributeur Dernière intervention   5 135
 
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 ?
0
Yeezuus Messages postés 8 Date d'inscription   Statut Membre Dernière intervention  
 
Je sais lire le langage mais je n'ai jamais vraiment codé, merci vous m'avez été d'une grande aide!
0

Discussions similaires

je cherche la date et le lieu de naissance d une personne
country -
bg62 -

2 réponses
Extraire le contenu de plusieurs fichiers
politicus -
Syl_tls1 -

11 réponses