XL 2019 chercher une date dans une colonne vba

escudo · 22 Octobre 2024

bonjour,
j'aimerais chercher une date dans une colonne s'elle n'existe pas donc un message s'affiche .
le problème c'est que j'ai un code il marche tres bien si la valeur cherchée est un texte les dates il ne les reconnaisse pas.

Dim VAR As Variant
VAR = Sheets("CLOTURE").Range("B1")

Set rg2 = Sheets("ETAT_ST").Columns("a").Find(what:=CDate(VAR), LookIn:=xlValues, lookat:=xlWhole, searchorder:=xlByRows)
If rg2 Is Nothing Then
rep = MsgBox("Inventaire Non réalisé !!" & Chr(10) & "Veuillez Réaliser un inventaire pour le mois écoulé !!", vbCritical): Exit Sub
End If

si var est un texte le code fais son travail si var et une date rien ne se passe.

merci de m'aider.

sylvanu · 23 Octobre 2024

Bonsoir,
Vos dates dans "ETAT_ST" sont des chaines non des dates.
Si vous faites en A5 Format de cellules et standard, vous obtenez ça :

En Standard une date devrait donner un nombre et non un texte, comme ceci :

d'où deux choix :
1- Vous gardez ainsi mais vous faites :

VB:

c = Application.Match("" & Feuil2.Range("B1") & "", Feuil1.Columns(1), 0)

2- ou vous gardez la formule actuelle mais vous retaper les dates correctement dans CLOTURES.
En PJ une simulation de la seconde option.

(NB : Dans la PJ j'ai viré tout ce qui est inutile pour le problème qui nous préoccupe.
Le fichier est alors beaucoup moins lourd et peut être livré directement.
C'est plus pérenne qu'un fichier sur site qui disparaitra sous...

sylvanu · 22 Octobre 2024

Bonjour Escudo,
Bizarre, chez moi ça marche. Il trouve si c'est une date et met en erreur si c'est un texte. Voir PJ.
Fournissez un fichier test pour mieux comprendre.

Jeannette · 22 Octobre 2024

Bonjour,
Sylvanu, ce code fonctionne si les dates, dans l'onglet "ETAT_ST", sont au même format que la cellule B1.
Si le format est de type "mardi 22 octobre 2024", la recherche sera infructueuse.
Personnellement, j'utilise toujours la fonction "EQUIV" (en VBA), en convertissant la date recherchée en Long..

VB:

Sub touv_date()
Dim C
C = Application.Match(CLng(Feuil1.Range("B1")), Feuil2.Columns(1), 0)
If Not IsError(C) Then MsgBox "Réussi" Else MsgBox "Pas trouvé"
End Sub

escudo · 23 Octobre 2024

voici
un fichier test pour mieux visualiser mon problème.

Classeur1.xlsm

drive.google.com

sylvanu · 23 Octobre 2024

Bonsoir,
Vos dates dans "ETAT_ST" sont des chaines non des dates.
Si vous faites en A5 Format de cellules et standard, vous obtenez ça :

En Standard une date devrait donner un nombre et non un texte, comme ceci :

d'où deux choix :
1- Vous gardez ainsi mais vous faites :

VB:

c = Application.Match("" & Feuil2.Range("B1") & "", Feuil1.Columns(1), 0)

2- ou vous gardez la formule actuelle mais vous retaper les dates correctement dans CLOTURES.
En PJ une simulation de la seconde option.

(NB : Dans la PJ j'ai viré tout ce qui est inutile pour le problème qui nous préoccupe.
Le fichier est alors beaucoup moins lourd et peut être livré directement.
C'est plus pérenne qu'un fichier sur site qui disparaitra sous peu, pensez aux lecteurs futurs )

sylvanu · 23 Octobre 2024

Re,
Si le problème vient d'un copier coller intempestif ou d'un export d'un outil tiers, cela risque d'être pénible à chaque fois de faire les modifs.
Alors autant transformer ces textes éventuels en vrai dates avec en début de macro :

VB:

' On transforme les dates en texte par des dates en nombres en colonne A
T = Range("A5:A" & [A10000].End(xlUp).Row)
For i = 1 To UBound(T)
    T(i, 1) = CDate(T(i, 1))
Next i
[A5].Resize(UBound(T, 1), UBound(T, 2)) = T

patricktoulon · 23 Octobre 2024

Bonsoir
ce qui est bien avec les date conformes (même en texte)
c'est que tu peut convertir tout d'un coup de manière simple
exemple

VB:

Sub test()
    With [A1:A26]
        t = .Value
        .NumberFormat = "dd/mm/yyyy"
        .Value = t
    End With
End Sub

que c'est il passé?
je crée une variable tableau(t) avec la plage de cellule (.value)
je remet un numberformat date sur les cellule de la plage
et je repose le tableau dedans
en fait vba est très gentil il a fait la conversion quand les dates sont arrivées dans la variable(t)
voila si les dates se retrouvent à gauche c'est que ça a fonctionné

patrick

patricktoulon · 23 Octobre 2024

re
apres si c'est des importations par tiers
et bien on se casse pas la tête on teste les deux formats
en prenant soin bien évidemment de convertir en texte anonymement dans la sub la valeur de B

VB:

Sub CLOTURE()
    Dim c, c2
    With Application

        c = .IfError(.Match(CLng(CDate(Feuil2.Range("B1"))), Feuil1.Columns(1), 0), 0)
        c2 = .IfError(.Match(CStr((Feuil2.Range("B1"))), Feuil1.Columns(1), 0), 0)
    End With
    If c2 > 0 Then c = c2

    If c > 0 Then
        rep = MsgBox("Etes vous sûr de cloturer cette période", vbYesNo + vbQuestion)
        If rep = vbYes Then
            Call transfert
        ElseIf IsError(c) Then
            rep = MsgBox("Inventaire non réalisé" & Chr(10) & "Veuillez réaliser un inventaire pour le mois écoulé", vbInformation)
            Exit Sub
        End If
    End If
End Sub

mapomme · 23 Octobre 2024

Bonsoir à tous ,

Sans vergogne et tel un parasite, je profite de vos codes pour suggérer, sans honte aucune, ces quelques lignes :

VB:

Sub CLOTURE()
Dim n
   n = Application.IfError(Application.Match(CLng(CDate(Feuil2.Range("B1"))), Feuil1.Columns(1), 0), 0)
   n = n + Application.IfError(Application.Match(CStr((Feuil2.Range("B1"))), Feuil1.Columns(1), 0), 0)
   If n Then
      If MsgBox("Etes vous sûr de clôturer cette période ?", vbYesNo + vbQuestion + vbDefaultButton2) = vbYes Then transfert
   Else
      MsgBox "Inventaire non réalisé" & Chr(10) & "Veuillez réaliser un inventaire pour le mois écoulé.", vbInformation
   End If
End Sub

patricktoulon · Jeudi à 00:11

allez moi aussi je n'ai pas honte
la même avec plus de sauce au beurre

VB:

   c = Evaluate("IFERROR(MATCH(TEXT(B1,""dd/mm/yyyy""),ETAT_ST!A1:A20,0),0)")
    c2 = Evaluate("IFERROR(MATCH(B1,ETAT_ST!A1:A20,0),0)")

sylvanu · Jeudi à 09:56

Bonjour les cadors,
Jolie compet !
Par contre je trouve malsain de conserver dans un fichier des dates sous format texte.
Tôt ou tard le demandeur retrouvera le même souci avec les mêmes cellules.
Autant remettre tout d'aplomb. Une date est un nombre, un texte est un texte.

mapomme · Jeudi à 11:43

Bonjour Sylvanu ,

sylvanu à dit:
Par contre je trouve malsain de conserver dans un fichier des dates sous format texte.

Vous avez raison mais ce serait bien que le demandeur trouve d'où vient cet état de fait.
En tout cas, dès le début, vous l'avez redressée (la date bien sûr) .

escudo · Vendredi à 01:08

merci pour vos efforts à m'aider

j'ai opté pour la solution de sylvanu
c = Application.Match("" & Feuil2.Range("B1") & "", Feuil1.Columns(1), 0)
ca marche très bien maintenant.

sylvanu · Vendredi à 11:20

Bonjour,
Par simple curiosité, pouvez vous nous dire comment ces données sont arrivées là ?
Comme ce ne sont pas des dates, donc pas d'origine XL, viennent elles d'un import d'un outil tiers, d'un import d'un site web ... ?
Le but serait que cet import se fasse correctement, ce serait plus simple.

XL 2019 chercher une date dans une colonne vba

escudo

XLDnaute Nouveau

sylvanu

sylvanu

XLDnaute Barbatruc

Pièces jointes

Jeannette

XLDnaute Junior

escudo

XLDnaute Nouveau

Classeur1.xlsm

sylvanu

XLDnaute Barbatruc

Pièces jointes

sylvanu

XLDnaute Barbatruc

Pièces jointes

patricktoulon

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

patricktoulon

XLDnaute Barbatruc

sylvanu

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

escudo

XLDnaute Nouveau

sylvanu

XLDnaute Barbatruc

Discussions similaires