Fonction Match VBA

[gerard55]

Bonjour à tous,
J'ai un souci avec le code ci-dessous
Dim ligSacat1 As Integer
Range("J13").Select
ActiveCell.FormulaR1C1 = _
"=MATCH(Listes!R[13]C[-8],planning!R[-12]C[-8]:R[15]C[-8],0)" 'Position (Blecon Annette) n° ligne (ces 3 lignes)
ligSacat1 = [j13]
Lorsque je lance la macro ç a bug. Dans la cellule, lorsque je fais débogage, il m'affiche: "=MATCH(Listes!R[13]C[-8],planning!R[-12]C[-8]:R[15]C[-8],0)" ligSacat1 = [j13] est en jaune

Si quelqu'un voit ce qu'il se passe, merci d'avance
A+ Gérard

 

[bruno66]

Re : Fonction Match VBA

bonjour essaie pour voir a la place de :
"=MATCH(Listes!R[13]C[-8],planning!R[-12]C[-8]:R[15]C[-8],0)"
peut être
"=MATCH(Listes!R[13]C[-8],planning!R[12]C[-8]:R[15]C[-8],0)"

 

[MichD]

Re : Fonction Match VBA

Bonjour,

Ceci fonctionne très bien !

With Range("J13")
.FormulaR1C1 = "=MATCH(Listes!R[13]C[-8]," & _
"planning!R[-12]C[-8]:R[15]C[-8],0)"
End With


MichD
------------------------------------------------

 

[gerard55]

Re : Fonction Match VBA

Merci MichD et bruno66
Cette dernière solution fonctionne. Pour quoi l'autre écriture ne fonctionne t-elle pas ?
Bonne soirée
a+

 

[MichD]

Re : Fonction Match VBA

Dans ta question initiale, tu dis : "ligSacat1 = [j13] est en jaune"

Le type "Integer" est attribué à la variable "ligSacat1".

On sait que si la fonction "Match" (Equiv()) ne trouve pas, elle retourne
une valeur d'erreur #Valeur!

Comme le type de ta variable "ligSacat1" est "Integer", il n'est pas compatible
avec une valeur d'erreur et par conséquent une erreur est générée.

Dans ce cas, il faudrait que tu attribues le type "Variant" à ta variable.

En fait, ce n'est pas la syntaxe "With .... End With" qui fonctionne mais le
fait que la fonction ne retourne pas une valeur d'erreur!


MichD
-----------------------------------------------------

 

[gerard55]

Re : Fonction Match VBA

Merci pour l'info
Je pense que tu as trouvé la solution car c'est la variable qui se met en jaune et non le code.
a+