XL 2013 Find date erreur

[nicroq]

Bonjour a tous,

J'ai un problème avec la fonction Find dans VBA. Je pense que je ne gère pas bien le format date pour la recherche.
J'ai commencé à taper le code mais impossible de trouver le bon format...

Merci pour votre aide

Cordialemnt

 

[patricktoulon]

bonjour
ben a vrai dire c'est un peu du n'importe quoi ton code
tu semble un peu t’emmêler les pinceaux
Sub date_col()
Dim choix_date As Date

Worksheets("Feuil1").Cells(10, 2) = choix_date'ici choix_date est égal à "00:00:00"

il y a une différence entre dimensionner et instruire une variable

 

[job75]

Bonjour nicroq, patricktoulon,

Ceci donnera le bon résultat :

Sub date_col()
[C10] = [7:7].Find([B10], LookIn:=xlFormulas).Column
End Sub

Perso j'utiliserais plutôt Application.Match, beaucoup plus rapide :

Sub date_col2()
[C10] = Application.Match([B10], [7:7], 0)
End Sub

A+

 

[patricktoulon]

re
bonjour @job75 et la gestion du no find alors !!! 😉 tu l'a mangé au petit déjeuné??
en une ligne on pourrait le gérer comme ceci

Sub date_col2()
[C10] = Application.IfError([7:7].Find([B10], LookIn:=xlFormulas).Column, "")
End Sub

😉

 

[job75]

bonjour @job75 et la gestion du no find alors !!! 😉 tu l'a mangé au petit déjeuné??

Je ne gère pas l'erreur éventuelle parce que notre ami ne la gère pas.

Mais que ce soit avec Find ou Match on peut commencer par On Error Resume Next.

 

[patricktoulon]

re
@job75
autant rester sur ton principe de one shot
et avec match ca donne

Sub date_col3()
[C10] = Application.IfError(Application.Match([B10].Value2, [7:7], 0), "")
End Sub

 

[nicroq]

Merci pour vos reponses

cependant je souhaiterai garder le fait que B10 soit une variable car je l'extrait d un userform dans mon code global donc pourquoi cela ne marche pas :
en déclarant choix_date as string
[C10] = [7:7].Find(choix_date, LookIn:=xlFormulas).Column

Merci pour vos explications.

 

[patricktoulon]

RE ben c'est évident
choix_date doit être alimenté sinon il ne vaut rien
dim choix_date as date
choix_date=[B10].value '(ou .value2 selon utilisation de find ou Match)
[C10] = [7:7].Find(choix_date, LookIn:=xlFormulas).Column


ça n'est pas par ce que tu fait dim choix_date as date qu'il contient une date 😉
c'est juste une instanciation de la variable en tant que date

 

[nicroq]

merci, mais l'autre probleme est que les cellules en ligne 7 sont des formules est donc le find ne marche pas et j'ai essayé de modifier le code mais rien n y fait...
POurriez vous m'eclairer (voir fichier joint)

merci d avance

 

[job75]

mais l'autre probleme est que les cellules en ligne 7 sont des formules est donc le find ne marche pas

Perso j'utiliserais plutôt Application.Match, beaucoup plus rapide :

Sub date_col2()
[C10] = Application.Match([B10], [7:7], 0)
End Sub

Plus rapide et sans problème...

 

[nicroq]

Bonjour Job75,

en effet application.match fonctionne tres bien je vous remercie!
bonne journée

 

[patricktoulon]

Bonjour
tu peux l'utiliser ta fonction en formule

Function GetColonneOfDate(c As Long)
GetColonneOfDate = Application.IfError(Application.Match(c, [7:7], 0), "")
End Function

la formule en C10
=GetColonneOfDate(B10)