Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 chercher une date dans une colonne vba

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
E

escudo

XLDnaute Nouveau
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.
 
Solution
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...
Trier par date Trier par votes
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 )
 

Pièces jointes

Vote positif 0 Vote négatif
Solution
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
 

Pièces jointes

Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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
 
Vote positif 0 Vote négatif
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.
 
Vote positif 0 Vote négatif
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. 🙂
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

N
  • Résolu(e)
XL 2021 comment faire recherche dans une colonne et ligne
Réponses
5
Affichages
412
job75
U
  • Question Question
Autres incorporer une macro dans une autre macro
Réponses
5
Affichages
345
Phil69970
E
  • Résolu(e)
XL 2019 transfer listbox vers une colonne à partir de la 4 ligne
Réponses
2
Affichages
152
escudo
E
S
  • Résolu(e)
Microsoft 365 Récupérer la date dans un calendrier
Réponses
2
Affichages
390
sebastien176
S
C
  • Résolu(e)
XL 2013 Renvoyer 2 dans la cellule
Réponses
2
Affichages
168
candido57
C
J
  • Question Question
Autres Supprimer une ligne dans une feuille à partir d'une valeur rentrée dasn une cellule d'une autre feuille
2
Réponses
25
Affichages
2 K
jmc78
J
J
  • Résolu(e)
XL 2016 Mettre un point d'exclamation dans toutes une colonne devant une date
Réponses
4
Affichages
339
julien81
J
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
392
Jojo973
  • Résolu(e)
Microsoft 365 VBA - Comment chercher, trouver et renseigner dans une variable, la plus grande valeur d'une colonne ?
Réponses
2
Affichages
473
13Hubert
  • Question Question
XL 2016 Aide pour maj auto de la date + selection multiple dans une liste déroulante
Réponses
5
Affichages
547
fanch55
Z
  • Question Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
404
ZiM
Z
E
  • Résolu(e)
XL 2019 inserer une valeur textbox dans la dernière cellule vide horizontalement
Réponses
7
Affichages
594
escudo
E
  • Résolu(e)
Microsoft 365 En VBA : Extraire le mois d'une date d'un tableau
Réponses
7
Affichages
363
Chaton77
E
  • Résolu(e)
Microsoft 365 Reduire Temps Execution Code
Réponses
5
Affichages
59
eric72
E
T
  • Résolu(e)
XL 2016 problème d'apparition automatique non voulue d'une série de date dans une colonne de tableau
Réponses
3
Affichages
420
therse
T
P
  • Question Question
Microsoft 365 Date statique dans Excel en VB avec colonne protégée
Réponses
13
Affichages
612
pca2471
P
N
  • Résolu(e)
Microsoft 365 Modification impossible d'une TextBox
2 3 4
Réponses
56
Affichages
1 K
NONO14
N
P
  • Question Question
XL 2019 chercher nom dans une colonne pour renvoyer une lettre
Réponses
6
Affichages
671
JHA
J
A
  • Résolu(e)
XL 2021 Céer un fichier (.text) avec VBA pour enregistrer les évènements dans un journal
Réponses
4
Affichages
505
arnoldbrice19
A
D
  • Question Question
XL 2016 VBA format date
2
Réponses
17
Affichages
1 K
vgendron
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…