Extraire jours selon remplissage cellule

Y compris Power BI, Power Query et toute autre question en lien avec Excel
c
cassin
Membre habitué
Membre habitué
Messages : 81
Inscrit le : 20 mai 2019
Version d'Excel : 2016

Message par cassin » 24 mai 2019, 13:47

Bonjour le forum.
Je cherche le moyen d'extraire des jours depuis une cellule date en fonction du remplissage d'une autre cellule
C'est beaucoup plus simple à comprendre avec le fichier sous les yeux !

En gros


En colonne A: " Lundi 29 avril 2019" "Mardi 30 avril 2019" ETC...
En colonne B: "OK" ou rien
En C3: =SI(NB.SI(B3:B13;"*OK*");JOUR(A3);"")

Cette formule fonctionne très bien pour un jour: Si OK est indiqué en B3, "29" apparaît en C3

Simplement je dois arriver a ce que C3 puisse afficher plusieurs jours à la suite ( séparés par peu importe quel caractère), en fonction de ce qui est indiqué dans la colonne B (OK ou rien)


Reste à savoir si c'est faisable ^^
Merci d'avance pour votre aide,
Jerome
testJours.xlsx
(12 Kio) Téléchargé 7 fois
Avatar du membre
OOoiste
Membre impliqué
Membre impliqué
Messages : 1'574
Appréciations reçues : 14
Inscrit le : 1 octobre 2009
Version d'Excel : office 365

Message par OOoiste » 24 mai 2019, 13:54

Bonjour,

Formule matricielle à valider par Ctrl+Maj+Entrée :
=JOINDRE.TEXTE(", ";VRAI;SI(B3:B35="ok";JOUR(A3:A35);""))
A+
c
cassin
Membre habitué
Membre habitué
Messages : 81
Inscrit le : 20 mai 2019
Version d'Excel : 2016

Message par cassin » 24 mai 2019, 20:53

merci
ca m affiche 1
clt
Avatar du membre
OOoiste
Membre impliqué
Membre impliqué
Messages : 1'574
Appréciations reçues : 14
Inscrit le : 1 octobre 2009
Version d'Excel : office 365

Message par OOoiste » 24 mai 2019, 21:04

cassin a écrit :
24 mai 2019, 20:53
merci
ca m affiche 1
clt
OOoiste a écrit :
24 mai 2019, 13:54
Formule matricielle à valider par Ctrl+Maj+Entrée :
c
cassin
Membre habitué
Membre habitué
Messages : 81
Inscrit le : 20 mai 2019
Version d'Excel : 2016

Message par cassin » 24 mai 2019, 21:30

J’ai entre la formule dans la cellule puis fait ctrl alt supp mais ça reste 1
Je me trompe?
Avatar du membre
Jean-Eric
Fanatique d'Excel
Fanatique d'Excel
Messages : 15'437
Appréciations reçues : 545
Inscrit le : 27 août 2012
Version d'Excel : 365 Insider

Message par Jean-Eric » 24 mai 2019, 22:04

Bonjour,
La fonction JOINDRE.TEXTE() est disponible pour Excel 2019 et 365, pas pour les versions antérieures.
Cdlt.
Jean-Eric

Je ne réponds pas aux M.P. non sollicités.
t
tulipe_4
Passionné d'Excel
Passionné d'Excel
Messages : 8'105
Appréciations reçues : 165
Inscrit le : 1 janvier 2011
Version d'Excel : 2000 2007

Message par tulipe_4 » 25 mai 2019, 11:04

cassin a écrit :
24 mai 2019, 21:30
J’ai entre la formule dans la cellule puis fait ctrl alt supp mais ça reste 1
Je me trompe?
bonjour oui ,ce n'est pas sup mais Entrée >>>>>tridactyle 8[]
et selon ta version xl tu ne dois pas pouvoir disposer de la fonction
Mais il existe Recherche multiple avec choix du separateur qui est une fonction perso à installer dans un module
Jean Eric ou une autre bonne ame peut te la fournir
cordialement
c'est en cherchant qu'on trouve
t
tulipe_4
Passionné d'Excel
Passionné d'Excel
Messages : 8'105
Appréciations reçues : 165
Inscrit le : 1 janvier 2011
Version d'Excel : 2000 2007

Message par tulipe_4 » 25 mai 2019, 11:20

bonjour
En attendant mieux
cassin.xlsx
(12.02 Kio) Téléchargé 1 fois
cordialement
c'est en cherchant qu'on trouve
c
cassin
Membre habitué
Membre habitué
Messages : 81
Inscrit le : 20 mai 2019
Version d'Excel : 2016

Message par cassin » 25 mai 2019, 11:31

Merci :)
Évidement j’ai bien combiné ENTRÉE et non SUPPR lol
::D
t
tulipe_4
Passionné d'Excel
Passionné d'Excel
Messages : 8'105
Appréciations reçues : 165
Inscrit le : 1 janvier 2011
Version d'Excel : 2000 2007

Message par tulipe_4 » 25 mai 2019, 12:34

re
je me penché et en bidouillant avec Day
Function RechTous(v, champRech As Range, ChampRetour As Range, separateur)
   a = champRech
   temp = ""
   For i = 1 To champRech.Count
     If a(i, 1) = v Then
         temp = temp & Day(ChampRetour(i)) & separateur
     End If
   Next i
   RechTous = Left(temp, Len(temp) - 1)
 End Function
pour installer
1) tu fais les touches Alt et F11
2)tu cliques sur insertion >>>>module >>et tu colles ce code
3)tu retournes sur la feuille et tu cliques sur le Fx >>> tous >> tu vas y retrouver Rechtous
ça s'utilise comme n'importe quelle fonction ; au V tu saisis :"Ok"
cordialement
c'est en cherchant qu'on trouve
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message