Microsoft 365 Application match et dates

L

Lolote83

XLDnaute Barbatruc

• 4 Avril 2023

• #2

Bonjour,
Sans aucune conviction et sans fichier pour tester, dans la ligne

colcible = Application.Match(Format(Sheets("Planning").Range(t7), "dd/mm/yyyy"),Sheets("Archives").Range("b1:m1"), 0)

Cliquez pour agrandir...

1) Ne faut il pas écrire range("T7") avec guillemets
2) Essayer avec "jj/mm/aaaa" à la place de "dd/mm/yyyy"

Ceci reste juste des suppositions
@+ Lolote83

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 4 Avril 2023

• #3

Bonjour,
Merci pour la réponse mais en vba c'est bien dd/mm/yyyy
Merci quand même
Bonne journée

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 4 Avril 2023

• #4

Bonjour eric72, Lolote83,

Lolote83 à dit:

2) Essayer avec "jj/mm/aaaa" à la place de "dd/mm/yyyy"

Cliquez pour agrandir...

VBA ne connaît pas le format jj/mm/aaaa

A+

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 4 Avril 2023

• #5

Bonjour

VB:

Sub test()
    Dim colcible As Byte
    colcible = Application.Match(Sheets("Planning").Range("t7"), Sheets("Archives").Range("b1:m1"), 0)
End Sub

Edition: déclenche une erreur si date non trouvée ; donc erreur à gérer

 

Pièces jointes

• test.xlsm

  14.7 KB · Affichages: 5

Dernière édition: 4 Avril 2023

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 4 Avril 2023

• #6

Bonjour Job 75 et JM27,

Merci pour la réponse mais les dates existent bien, j'ai essayé avec
format(sheets("Planning").Range("t7"), avec cdate, avec cstr et pourtant les dates sont bien des dates, et rien n'y fait

 

Pièces jointes

• test planning.xlsm

  664.4 KB · Affichages: 9

Vote positif 0 Vote négatif

L

Lolote83

XLDnaute Barbatruc

• 4 Avril 2023

• #7

Re bonjour à tous,
Pour la gestion d'erreur comme le stipule @JM27, voici la copie d'écran
Il a fallu que j'enlève l'option explicit et la déclaration de la variable colcible pour que cela fonctionne.


Par contre, dans le fichier joint par @eric72 au post#6, pas de macro.
Ou faire le test ????
@+ Lolote83

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 4 Avril 2023

• #8

en effet désolé, j'ai fait un fichier exemple rapide et j'ai oublié la macro
Merci

 

Pièces jointes

• test planning.xlsm

  669.5 KB · Affichages: 4

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 4 Avril 2023

• #9

Bonjour,
Malgré les apparences, à partir de la colonne D, ce ne sont plus des dates, mais du texte...
Donc, quelque soit le code...
Maintenant, si tu mets les dates au bon format, tu peux essayer ainsi :

VB:

Sub Cherch_Col()
Dim ColCible As Long
ColCible = Application.Match(CLng(Sheets("Planning").Range("T7").Value), Sheets("Archives").Range("B1:NJ1"), 0)
End Sub

Bon courage

 

Vote positif 0 Vote négatif

Solution

J

JM27

XLDnaute Barbatruc

• 4 Avril 2023

• #10

Bonjour
@eric72

Pour vérifier si ce sont bien des dates et non des date affichées en texte:
Faire un alignement standard dans la ligne 1 et agrandir un peu les colonnes :
Les dates au format numérique ont un alignement à droite
Les dates au format texte on un alignement à gauche

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 4 Avril 2023

• #11

bhbh à dit:

Bonjour,
Malgré les apparences, à partir de la colonne D, ce ne sont plus des dates, mais du texte...
Donc, quelque soit le code...
Maintenant, si tu mets les dates au bon format, tu peux essayer ainsi :

VB:

Sub Cherch_Col()
Dim ColCible As Long
ColCible = Application.Match(CLng(Sheets("Planning").Range("T7").Value), Sheets("Archives").Range("B1:NJ1"), 0)
End Sub

Bon courage

Cliquez pour agrandir...

Bonjour bhbh,
En effet, la boulette, ca marche beaucoup mieux sauf que si je reporte dans archive au 16/01/2023, cela colle dans la colonne du 15/01/2023, décidemmment!!!
Je ne vois pas pourquoi.
Merci

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 4 Avril 2023

• #12

et si je transforme archive en tableau structuré ça ne fonctionne plus, mais ça c'est peut-être normal

 

Vote positif 0 Vote négatif

J

JM27

XLDnaute Barbatruc

• 4 Avril 2023

• #13

Ben oui parce que tu pars de B1 et non pas de A1

 

Vote positif 0 Vote négatif

E

eric72

XLDnaute Accro

• 4 Avril 2023

• #14

Pffff quel nul je suis!!!!!
Merci beaucoup à tous, voilà un sujet résolu
Bonne journée
Eric

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

Inactif

• 4 Avril 2023

• #15

Re-,
Si tu veux la colonne exacte, il faut utiliser Rows(1)
Sinon, si tu veux ton Tableau Structuré, essaie ainsi :

VB:

Dim ColCible As Long
ColCible = Application.Match(Sheets("Planning").Range("T7").Text, Range("Tableau1[#Headers]"), 0)

Tu obtiendras le numéro de colonne du TS

 

Vote positif 0 Vote négatif