Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11

Type incompatible (erreur 13)

1 réponse
Avatar
isabelle
bonjour à tous,

j'ai en colonne A du texte et en colonne B de vrai date
par exemple,

NOM DATE
zzzz1 2017-04-04
zzzz2 2017-04-05
zzzz3 2017-05-17
zzzz4 2017-05-18

j'essaie de vérifier si une entrée (Nom&Date) est présente,

Sub test1()
val0 = Range("B2") ' ----> vrai date
val1 = "zzzz1"
val2 = Format(Range("B2"), "0")

' =MATCH("zzzz1"&B2,A:A&B:B,0)
n = Application.Match(val1 & "&" & val2, Range("A:A").Value & "&" &
Range("B:B").Value, 0)
End Sub

l'incompatible de type ce produit sur la fonction Match
merci pour votre aide
isabelle

1 réponse

Avatar
isabelle
désolé pour le dérangement,
j'ai fini par trouver
val1 = """zzzz1"""
val2 = Format(Range("B2"), "0")
t = "Match(" & val1 & "&" & val2 & "," & Range("A:A").Address(0, 0) & "&" &
Range("B:B").Address(0, 0) & ",0)"
n = Evaluate(t)
isabelle
Le 2017-04-09 à 13:08, isabelle a écrit :
bonjour à tous,
j'ai en colonne A du texte et en colonne B de vrai date
par exemple,
NOM DATE
zzzz1 2017-04-04
zzzz2 2017-04-05
zzzz3 2017-05-17
zzzz4 2017-05-18
j'essaie de vérifier si une entrée (Nom&Date) est présente,
Sub test1()
val0 = Range("B2") ' ----> vrai date
val1 = "zzzz1"
val2 = Format(Range("B2"), "0")
' =MATCH("zzzz1"&B2,A:A&B:B,0)
n = Application.Match(val1 & "&" & val2, Range("A:A").Value & "&" &
Range("B:B").Value, 0)
End Sub
l'incompatible de type ce produit sur la fonction Match
merci pour votre aide
isabelle