XL 2013 Find date erreur

patricktoulon

XLDnaute Barbatruc

• 3 Juin 2020

• #2

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Juin 2020

• #3

Bonjour nicroq, patricktoulon,

Ceci donnera le bon résultat :

VB:

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

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

Code:

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

A+

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Juin 2020

• #4

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

VB:

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

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Juin 2020

• #5

patricktoulon à dit:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Juin 2020

• #6

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

VB:

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

 

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 3 Juin 2020

• #7

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.

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 3 Juin 2020

• #8

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

 

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 3 Juin 2020

• #9

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

 

Pièces jointes

• find date.xlsm

  18.1 KB · Affichages: 5

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Juin 2020

• #10

nicroq à dit:

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

Cliquez pour agrandir...

job75 à dit:

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

Code:

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

Cliquez pour agrandir...

Plus rapide et sans problème...

 

Vote positif 0 Vote négatif

N

nicroq

XLDnaute Occasionnel

• 5 Juin 2020

• #11

Bonjour Job75,

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

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 5 Juin 2020

• #12

Bonjour
tu peux l'utiliser ta fonction en formule

VB:

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

la formule en C10
=GetColonneOfDate(B10)

 

Vote positif 0 Vote négatif

Solution