OVH Cloud OVH Cloud

Erreur avec fonction replace???

3 réponses
Avatar
fred
J'ai un message d'erreur suite à cette macro...je ne comprends pas!!!
"Erreur de compilation...Nombre d'arguments incorrect ou affectation de
propriété incorrecte" et replace est en surbrillance.
J'ai des données en C5...je remplace le caractère "." par ";"...je déplace
en B2

Sub Replace()
Cells(2, 2) = Replace(Cells(5, 3).Value, ".", ";")

End Sub

Merci de votre aide

3 réponses

Avatar
OnE
Bonjour,

C'est normal, ta procédure s'appelle également Replace

Essaies donc

Sub Remplace()
Cells(2, 2) = Replace(Cells(5, 3).Value, ".", ";")
End Sub


J'ai un message d'erreur suite à cette macro...je ne comprends pas!!!
"Erreur de compilation...Nombre d'arguments incorrect ou affectation de
propriété incorrecte" et replace est en surbrillance.
J'ai des données en C5...je remplace le caractère "." par ";"...je déplace
en B2

Sub Replace()
Cells(2, 2) = Replace(Cells(5, 3).Value, ".", ";")

End Sub

Merci de votre aide




Avatar
michdenis
Bonjour Fred,

Et si tu donnais un autre nom à ta procédure. Il faut éviter d'utiliser les mots réservés du language VBA pour autre fonction que
celles qui leur sont dévolues



Salutations!







"fred" a écrit dans le message de news: 4354d730$0$20866$
J'ai un message d'erreur suite à cette macro...je ne comprends pas!!!
"Erreur de compilation...Nombre d'arguments incorrect ou affectation de
propriété incorrecte" et replace est en surbrillance.
J'ai des données en C5...je remplace le caractère "." par ";"...je déplace
en B2

Sub Replace()
Cells(2, 2) = Replace(Cells(5, 3).Value, ".", ";")

End Sub

Merci de votre aide
Avatar
fred
Ok..effectivement il y a ambiguité avec le nom de la procédure!!!!
Merci pour tout


"fred" a écrit dans le message de news:
4354d730$0$20866$
J'ai un message d'erreur suite à cette macro...je ne comprends pas!!!
"Erreur de compilation...Nombre d'arguments incorrect ou affectation de
propriété incorrecte" et replace est en surbrillance.
J'ai des données en C5...je remplace le caractère "." par ";"...je déplace
en B2

Sub Replace()
Cells(2, 2) = Replace(Cells(5, 3).Value, ".", ";")

End Sub

Merci de votre aide