Find date résultant d'une formule ET avec format personnalisé

Staple1600

XLDnaute Barbatruc

• 19 Avril 2018

• #2

Bonsoir le fil, le forum

@vgendron
Et qu'en dit Mister JB ? 😉

Sinon j'ai beau cherché, je ne vois rien en rapport avec la cellule S8 dans les codes VBA, non ?

PS: J'ai testé les trois CommandButton de la PJ et je trouve les dates saisies dans les InputBox respectifs

vgendron: tu es sûr d'avoir joint le bon fichier?

 

Dernière édition: 19 Avril 2018

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 19 Avril 2018

• #3

Salut Staple
oh m... effectivement je m'a gouré de fichier... après les dents, c'est la tete que je perd !
bon bah. ca attendra demain que je récupère le bon fichier... :-D
Bonne soirée

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 20 Avril 2018

• #4

Hello
J'ai rechargé le bon fichier en post 1
j'ai refait quelques essais hier.. et visiblement.. tant que les dates ne sont PAS issues de formules, (elles sont donc tapées à la main), ca ne pose pas de problème quelque soit le format d'affichage dans la feuille Excel.. mais dès qu'elles sont issues de formule.. rien ne va plus...

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 20 Avril 2018

• #5

Bonjour
Alors if faut peut être examiner la formule.
Peut être ne renvoie-t-elle pas une date ?
En S8 :

Code:

=DATE(T1;1;1)

est trouvé.

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 23 Avril 2018

• #6

Salut Bernard, je ne t'avais pas oublié :-D

bon..j'ai vérifié..
Si je récupère une date tapée manuellement, ou qu'elle soit issue d'une formule
si j'utilise range("S8") ou Cdate() ou datevalue()..
le test ISDATE me retourne toujours vrai.
==> la date à chercher est toujours bien vue comme une date

maintenant. si je la recherche dans une zone dont les dates sont écrites à la main. pas de problème
mais si je la recherche dans une zone dont les dates sont issues de formules....nada...
bon. comme c'est bientot le temps des BBQ, j'arrete de me casser les dents.. et je contourne en remplissant la zone de recherche avec des dates à la main..

J'y reviendrai sans doute plus tard...

Merci

 

Vote positif 0 Vote négatif

Lone-wolf

XLDnaute Barbatruc

• 23 Avril 2018

• #7

Bonjour à tous 🙂

@vgendron

AtrouverIci = CDate(Range("S8").Value2) 'Formule, format dd mmmm
AtrouveLa = CDate(Range("U6")) 'En dur, format mmm aa

 

Pièces jointes

• FindDates.xlsm

  32.6 KB · Affichages: 21

Dernière édition: 23 Avril 2018

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Avril 2018

• #8

Bonjour.
Attention la foncton IsDate ne permet pas de savoir s'il s'agit d'une date. Elle renvoie aussi True aussi s'il s'agit d'un String convertible en date, qui ne sera donc pas trouvé si ce qu'on cherche est une date.

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 23 Avril 2018

• #9

Effectivement, j
et 'ai vu ca aussi:
en déclarant ma variable comme une date
dim Jour as date
Jour=range("S8")

si S8 VIDE
alors Jour="00:00:00" qui est vu comme une date

 

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 23 Avril 2018

• #10

Pour savoir si la valeur de la cellule S8 est une date vous pouvez tester If VarType(Range("S8").Value) = vbDate Then

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 24 Avril 2018

• #11

Hello @All

bon.. parce que j'aimerais quand meme comprendre ce qui m'échappe...
je joins le fichier sur lequel je travaille vraiment: il y a certainement quelqe chose qui ne colle pas

Le but: par macro
==>Récupérer la Date à chercher en colonne S (S8 pour l'exemple)
==> Puis chercher cette date en AH4😛N4 ou AH5😛N5 ou AH6😛N6

Input:
==>En colonne S: les dates sont tapées à la main par l'utilisateur (à la saisie un code évènement_change, que j'ai enlevé ici, s'assure que l'utilisateur saisit bien une date qui est dans le calendrier (AH😛N)

==> En C1:l'année du calendrier
==> AH6 = formule pour donner le 1er décembre de l'année précédente, puis formule sur le reste de la ligne pour les jours suivants jusqu'au 31/12 de l'année C1
Cette ligne est "affichée" au format "dd" pour ne voir que le numéro du jour
==>la ligne 4: formule =ligne6, et format d'affichage "ddd"
==>la ligne 5: formule =ligne6 et format d'affichage "dd/mm/yyyy" ==> !! police de caractère = couleur de fond, pour ne pas voir la ligne.

==>ligne 12 = dates en dur au format "Date"
==> 'ligne 13 = dates en dur au format standard
Le code réalisé s'assure que tout est de la "Date", format différents. mais DATES
j'ai beau essayer de changer la ligne de recherche (==de format) avec xlvalues, ou xlformulas, avec cdate, avec .value2.......rien n'y fait.....

 

Pièces jointes

• TestDates.xlsm

  59.5 KB · Affichages: 31

Vote positif 0 Vote négatif

Jauster

XLDnaute Occasionnel

• 24 Avril 2018

• #12

Alors, c'est une possibilité, mais :
Excel : Marche avec les paramètres du pays local (d'ou l'utilisation de ";")
En VBA on utilise "," donc format américain d'Excel. La gestion des dates peut ne pas être identique et donc mm/dd/yyyy ?

Sinon à essayer :

VB:

Set ici = .Range("AH" & i & ":PN" & i).Find(CDate(DateToFin), LookIn:=xlFormulas)

au lieu d'appliquer le CDate à DateToFind, mais directement dans Find

 

Dernière édition: 24 Avril 2018

Vote positif 0 Vote négatif

Dranreb

XLDnaute Barbatruc

• 24 Avril 2018

• #13

Bonjour
DateToFin est vide.
DateToFind n'est pas utilisé dans le Find.
Mais même en remplaçant, le Find ne la trouve pas, et je ne comprends pas pourquoi.
Mais dans la mesure où ce ne sont que des dates qui se suivent, moi je déduirais la position par simple soustraction d'avec la date de début.

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 24 Avril 2018

• #14

@Dranreb
ah oui. bien vu le "d" manquant
du coup.. avec
DateToFind = .Range("S8")
et Set ici = .Range("AH" & i & "😛N" & i).Find(DateToFind, LookIn:=xlFormulas) 'xlvalues ou xlformulas
il me trouve bien la date dans la ligne 12
ce serait bien qu'il me trouve maintenant dans des formules..
déjà. je pige pas l'idée de lui préciser: lookIN xlformulas.. pour qu'au final. il trouve dans des dates en dur........

@Jauster
je fais quelques essais et reviens..

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 24 Avril 2018

• #15

tiens donc... les méthodes Find et for next ne trouvent pas la meme chose.....
For next, trouve sur TOUTES les lignes 4 5 6 12 et 13
alors que la méthode Fin uniquement sur la ligne 12 (la seule dont je ne dispose pas normalement dans mon fichier... :-D )

VB:

Sub TestDate()
'i = 4 'ligne contient des dates issues de formules: format ddd
'i = 5 'ligne contient des dates issues de formules: format jj/mm/aaaa
i = 6 'ligne contient des dates issues de formules: format dd
'i = 12 'ligne contient des dates en dur format "Date"
'i = 13 'ligne contient des dates en dur format standard ==> la boucle "controle Date" ne voit aucune date. que du numérique.. ca me semble normal

With ActiveSheet
    DateToFind = .Range("S8")
    MsgBox "la date à trouver est une date: " & (VarType(DateToFind) = vbDate) '==> il s'agit bien d'une date
   
    '"Controle Date"
    For j = 34 To 430 'je vérifie que la zone de recherche contient bien des dates 'ne tient pas compte du format d'affichage
        If VarType(.Cells(i, j)) <> vbDate Then MsgBox .Cells(i, j): Exit For 'si pas une date. il me l'affiche
    Next j
       
    'ici. je cherche une date parmi des dates
   
    For Each jour In .Range("AH" & i & ":PN" & i)
        If jour = DateToFind Then MsgBox "le for each trouve: " & jour.Address
    Next jour
   
    Set ici = .Range("AH" & i & ":PN" & i).Find(DateToFind, LookIn:=xlFormulas) 'xlvalues ou xlformulas
    Set ici = .Range("AH" & i & ":PN" & i).Find(CDate(DateToFind), LookIn:=xlFormulas)
    If Not ici Is Nothing Then
        MsgBox "la méthode find trouve: " & ici.Address 'si je trouve la date.. il me l'affiche
    End If
   
End With

End Sub

 

Vote positif 0 Vote négatif