Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Excel extraction des dates...

extraction des dates...

5 réponses
Avatar
claudy
Bonjour à tous,
Un calendrier sportif, transmit par une connaissance:
Dans la colonne A:A, "Week end du 18/09/04 au 19/09/04", ceci répété à
plusieurs endroits:
A2, A9, A13, etc avec des dates différentes.
Dans la colonne B:B, Sa ou Di (Sur 5 ou 6 lignes)
Comment aller rechercher dans la colonne A:A la date et la placer dans la
colonne B:B, au format date "jj/mm/aa"?

Merci d'avance,
Claudy
--
\\\ ////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
\ ( (_/
\_)
Signaler un problème avec ce contenu

5 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
papou
Bonjour
S'il s'agit de prendre la dernière date indiquée :
=CNUM(DROITE(A1;8))
S'il s'agit de prendre la première date indiquée :
=CNUM(STXT(A1;13;8))
Et formatter en jj/mm/aa

Cordialement
Pascal

"claudy" a écrit dans le message de
news:41172519$0$288$
Bonjour à tous,
Un calendrier sportif, transmit par une connaissance:
Dans la colonne A:A, "Week end du 18/09/04 au 19/09/04", ceci répété à
plusieurs endroits:
A2, A9, A13, etc avec des dates différentes.
Dans la colonne B:B, Sa ou Di (Sur 5 ou 6 lignes)
Comment aller rechercher dans la colonne A:A la date et la placer dans la
colonne B:B, au format date "jj/mm/aa"?

Merci d'avance,
Claudy
--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)




Avatar
claudy
Rebonjour...
Pour etre un peu plus explicit...
http://users.skynet.be/passionclaudy/CalendrierRoger.xls
Bonne journée
Claudy

Bonjour à tous,
Un calendrier sportif, transmit par une connaissance:
Dans la colonne A:A, "Week end du 18/09/04 au 19/09/04", ceci répété à
plusieurs endroits:
A2, A9, A13, etc avec des dates différentes.
Dans la colonne B:B, Sa ou Di (Sur 5 ou 6 lignes)
Comment aller rechercher dans la colonne A:A la date et la placer dans la
colonne B:B, au format date "jj/mm/aa"?

Merci d'avance,
Claudy
--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)




Avatar
AV
Cellules au format date :

=STXT(A1;13;8)*1
=DROITE(A1;8)*1

AV
Avatar
claudy
Bonjour Papou, et merci...
Mon classeur exemple est plus explicit....
J'aurais préféré un petit bout de code VBA que j'adapterais aux centaines de
lignes que je dois modifier!
A+
Claudy

"papou" <cestpasbonprobin@çanonpluscg44_fr> a écrit dans le message de
news:
Bonjour
S'il s'agit de prendre la dernière date indiquée :
=CNUM(DROITE(A1;8))
S'il s'agit de prendre la première date indiquée :
=CNUM(STXT(A1;13;8))
Et formatter en jj/mm/aa

Cordialement
Pascal

"claudy" a écrit dans le message de
news:41172519$0$288$
Bonjour à tous,
Un calendrier sportif, transmit par une connaissance:
Dans la colonne A:A, "Week end du 18/09/04 au 19/09/04", ceci répété à
plusieurs endroits:
A2, A9, A13, etc avec des dates différentes.
Dans la colonne B:B, Sa ou Di (Sur 5 ou 6 lignes)
Comment aller rechercher dans la colonne A:A la date et la placer dans
la


colonne B:B, au format date "jj/mm/aa"?

Merci d'avance,
Claudy
--
////
( O O )
------oOOo-(_)-oOOo-----------------
Claudy

--------------Oooo------------------
oooO ( )
( ) ) /
( (_/
_)








Avatar
AV
Adapté à ton cas particulier :

Sub zzz()
For i = [B65536].End(3).Row To 1 Step -1
Set c = Cells(i, "B")
If c <> "" Then
x = c.Offset(0, -1).End(3)
dateDim = Evaluate("mid(""" & x & """,find(""et "",""" & x &
""")+3,9^9)")
dateSam = Evaluate("mid(""" & x & """,find(""des "",""" & x &
""")+4,find("" et"",""" & x & """)-(find(""des "",""" & x & """)+4))")
If c = "Di" Then c.Value = CDate(dateDim) * 1
If c = "Sa" Then c.Value = CDate(dateSam) * 1
End If
Next
[B:B].NumberFormat = "dd/mm/yy"
End Sub

AV