EQUIV en VBA ne fonctionne pas
Résolu
xuorel
Messages postés
251
Date d'inscription
Statut
Membre
Dernière intervention
-
cousinhub29 Messages postés 1074 Date d'inscription Statut Membre Dernière intervention -
cousinhub29 Messages postés 1074 Date d'inscription Statut Membre Dernière intervention -
A voir également:
- Flux grenouille et crapaud
- Equiv en anglais excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Find vba - Astuces et Solutions
- Mkdir vba ✓ - Forum VB / VBA
- Incompatibilité de type vba ✓ - Forum VB / VBA
2 réponses
Bonjour,
Perso, j'aurais fait ainsi : (Regarde aussi les définitions de variables)
Sub test1()
Dim P As Range
Dim V As Long
Set P = Range("CALENDRIER")
V = Range("D_RECH").Value
MsgBox V
MsgBox Application.WorksheetFunction.Match(V, P, 0)
End Sub
PS, désolé pour le rendu, à priori la balise "Code" ne supporte pas le lundi matin
Lorsque je rédige, j'ai bien ceci :
Bonjour,
Votre problème vient d'une recherche sur un format :Date
La seule solution est de faire une recherche au format : Texte. Ci-dessous code
Sub test1()
Dim P As Variant
Dim V As Variant
Set P = Range("CALENDRIER")
V = CStr(Range("D_RECH").Value)
MsgBox V
Msgbox WorksheetFunction.Match(V, P.Value, 0)
End Sub
Bonjour,
La balise code, sans indication d'un langage n'a pas de saut de ligne.
Mais si on choisit un langage c'est bon
Sub test1() Dim P As Range Dim V As Long Set P = Range("CALENDRIER") V = Range("D_RECH").Value MsgBox V MsgBox Application.WorksheetFunction.Match(V, P, 0) End SubBonjour,
Et merci (je crois que c'est plutôt moi qui ne supporte pas le lundi...)