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

XL 2019 Fonction Match

B

BNJ-ANIOL

XLDnaute Nouveau
Hello la communauté, (le 14/06/23)

Voici un petit défis : deux macros similaire, la première fonctionne, la seconde me sort une erreur : "Impossible de lire la propriété Match de la classe WorksheetFunction"

1)
ligne_sup = WorksheetFunction.Match([B4], Columns(2))
MsgBox (ligne_sup)

2)
Dim val_sup
val_sup = [B4]
ligne_sup = WorksheetFunction.Match(val_sup, Columns(2))
MsgBox (ligne_sup)

Merci pour vos lumières...

Le 15/06/23
J'ai avancé un peu sur mon problème (grâce à vos remarques...)
Donc pour ceux qui ont souligné le coté étrange de mon code [B4] et columns(2) , effectivement le résultat attendu est "4" , puisque B4 est dans la colonne 2 ; Mais parfois quand je galère sur un bug, j'essaie de me créer un code test basique pour voir où se trouve l'erreur.

Finalement, le bug vient de ma variable Sup_saisie
Au début, je n'avais pas précisé que Sup_saisie était une date
Mais même si j'écris : "Dim Sup_saisie as Date" , ça ne change pas mon problème
En revanche, si dans [B4] je mets un nombre classique ou du texte , alors il n'y a plus de problème.
Donc j'en viens à déduire que la fonction Match n'arrive pas à traiter les dates - à moins qu'il y aie une astuce...
 
Dernière édition:
Solution
J
bonjour
avec un fichier ca va beaucoup mieux
Dans la macro qui ne fonctionne pas ta valeur val_sup est une date qu'il faut transformer en double car la recherche se fait sur des valeurs numériques ( les dates en excel sont des valeurs numériques)
donc deux solutions déclarer
VB: 
Dim val_sup As Double

ou transformer ta valeur en double.

Code: 
ligne_sup = WorksheetFunction.Match(CDbl(val_sup), Columns(2))

dans le deuxième cas cela marche car il n'y a pas de variable

nota: avec un fichier résolu en 2 minutes ( et encore je suis large)
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir,
Chez moi, Win10 XL2007, les deux marchent sans problème.

NB1: Vous n'avez pas de 3eme paramètre dans Match, donc vous recherchez la valeur inférieure la plus proche ?

NB2 :
Columns(2) étant la colonne B, B4 étant en colonne B.
La recherche de B4 dans la colonne B donnera 4. "Ya un truc qui m'échappe"
 
Vote positif 0 Vote négatif

youky(BJ)

XLDnaute Barbatruc
Bonjour BNJ,
Déclarer val_sup et ligne_sup en variant car Match va renvoyer un N° de ligne et si il trouve pas une valeur d'error donc soit error soit un chiffre.
Essayer de supprimer option explicit pour tester et rien déclarer
Bruno
 
Vote positif 1 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Youky,
J'ai testé ça sans souci :
VB: 
Sub Macro1()
ligne_sup = WorksheetFunction.Match([B4], Columns(2))
MsgBox (ligne_sup)
End Sub

Sub Macro2()
Dim val_sup
val_sup = [B4]
ligne_sup = WorksheetFunction.Match(val_sup, Columns(2))
MsgBox (ligne_sup)
End Sub
 
Vote positif 0 Vote négatif
B

BNJ-ANIOL

XLDnaute Nouveau
Merci du retour,
J'avoue que mon exemple peu porter à confusion.
J'ai pas mis la totalité du code pour pas embrouiller les esprit, mais ma variable "Sup_Saisie" est récupérer dans une cellule [B4] d'un autre onglet. ; Cet onglet, est un onglet "synthèse"

Sup_saisie est une date d'enregistrement.
Pour ce qui est du 3ème paramètre, je cherche à supprimer la correspondance exacte (car effectivement si j'ai une ligne qui a été enregistré le 15/06/23 à 12:03:11 et une autre le 15/06/23 à 12:00:00 ; Si Sup_saisie= "15/06/23 12:03:11", je veux qu'il aille me supprimer uniquement la ligne qui à précisément cette valeur
 
Vote positif 0 Vote négatif
B

BNJ-ANIOL

XLDnaute Nouveau
JM27 à dit:
bonjour
Sans fichier joint, difficile de t'aider
contenu de B4 ?
Cliquez pour agrandir...
Bonjour,
Merci du retour.
Alors [B4] est un exemple , mais peut-être un mauvais exemple puisqu'il s'agit de la colonne 2
Mais je vais tout de même creuser le problème pour voir si ça ne vient pas de là.

La valeur chercher se trouve dans un autre onglet.
Et c'est issue d'une macro "Now" , donc la valeur cherchée est une date au format jj/mm/aaaa hh:mm:ss
 
Vote positif 0 Vote négatif
B

BNJ-ANIOL

XLDnaute Nouveau
Je viens de faire un test et le problème vient du format de ma cellule recherché (que ce soit [B4] ou un autre cellule)
Quand je fais Sup_Saisie=[B4] ,
Finalement, le bug vient de ma variable Sup_saisie
Au début, je n'avais pas précisé que Sup_saisie était une date
Mais même si j'écris : "Dim Sup_saisie as Date" , ça ne change pas mon problème
En revanche, si dans [B4] je mets un nombre classique ou du texte , alors il n'y a plus de problème.
Donc j'en viens à déduire que la fonction Match n'arrive pas à traiter les dates - à moins qu'il y aie une astuce...
 
Vote positif 0 Vote négatif
B

BNJ-ANIOL

XLDnaute Nouveau
Finalement, le bug vient de ma variable Sup_saisie
Au début, je n'avais pas précisé que Sup_saisie était une date
Mais même si j'écris : "Dim Sup_saisie as Date" , ça ne change pas mon problème
En revanche, si dans [B4] je mets un nombre classique ou du texte , alors il n'y a plus de problème.
Donc j'en viens à déduire que la fonction Match n'arrive pas à traiter les dates - à moins qu'il y aie une astuce...

Et effectivement après, si la macro fonctionne ça donne 4 (dans cet exemple simplifié)
 
Vote positif 0 Vote négatif
B

BNJ-ANIOL

XLDnaute Nouveau
youky(BJ) à dit:
Re,
Notre demandeur aurait-il fait une boulette dans sa demande ?
Cliquez pour agrandir...
Pas de boulette particulière dans ma demande.
J'ai simplifier le code pour localiser le bug.
Mais j'ai homis de préciser que "Sup_saisie " est une variable type date
Si Sup_saisie est une variable type nombre ou type texte et si [B4] type nombre ou type texte , alors pas de soucis.
Mais si [B4] type date, alors problème

Donc j'ai un peu plus localisé mon problème :
Pourquoi la fonction match ne gère pas les dates ?
 
Vote positif 0 Vote négatif
B

BNJ-ANIOL

XLDnaute Nouveau
Grâce à vos petite piste à droite et à gauche, j'ai pu contourner le problème

[B4].NumberFormat = "General"
Sup_Saisie = [B4]
ligne_sup = WorksheetFunction.Match(Sup_Saisie, Columns(2)) 'si Sup_Saisie directement = à [B4][B4].NumberFormat = "dd/mm/yyyy hh:mm:ss"
MsgBox (ligne_sup)

-> message afficher = 4 comme convenue
Si quelqu'un peut apporter d'autres explications à ce phénomène ou une autre syntaxe, je suis preneur
Sinon, je me contenterais de mon bidouillage ^^
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

D
  • Question
XL pour MAC Match liste des valeurs identique
Réponses
4
Affichages
329
Dudy
D
D
  • Question
Microsoft 365 Cas réel - avec problème complexe sur de la prevision de match en evitant les doublons
Réponses
1
Affichages
638
Dock91
D
C
  • Résolu(e)
Microsoft 365 match() en vba et multi-critères sur zones nommées
2
Réponses
15
Affichages
1 K
patricktoulon
X
  • Résolu(e)
Microsoft 365 Formule avec conditions
2
Réponses
20
Affichages
559
piegal
  • Question
XL 2010 fonction vlookup réticente ? (vba) [RESOLU]
2 3
Réponses
34
Affichages
2 K
TooFatBoy
D
  • Question
Microsoft 365 VBA pour répéter - cacher 2 colonnes consécutives selon la valeur d'une cellule.
Réponses
4
Affichages
338
Didjo
D
J
  • Question
Microsoft 365 Code VBA
Réponses
10
Affichages
725
jebibo
J
P
  • Question
Microsoft 365 utilisation de la fonction EQUIV avec la fonction INDIRECT pour rechercher un numéro de ligne dans différents onglets
Réponses
2
Affichages
539
pdesproges
P
C
  • Question
XL 2021 Problème de remplissage d'une colonne conditionné à d'autres valeurs
Réponses
2
Affichages
334
CathyLD
C
E
  • Question
Microsoft 365 effacer formule en fonction de ce qui a été saisi dans une autre cellule
Réponses
6
Affichages
346
Phil69970
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…