XL 2013 Range en paramètre de sub

[vian31]

Bonjour à tous,

Grosse prise de tête ce matin sur ce bout de code de misère:

Sub commentaire(rng As Range, texte As String)
    Range(rng).AddComment
    Range(rng).comment.text text:=texte
End Sub

Sub testt()
    commentaire Range("G14"), "Montant estimé: " & prix
End Sub

Résultat: "La méthode range de l'objet global a échoué"

Ou ai-je faux ?
Merci bcp
Vianney

 

[Lolote83]

Bonjour VIAN31,
Peut être simplement en supprimant le range ici.

Sub commentaire(rng As Range, texte As String)
    rng.AddComment
    rng.Comment.Text Text:=texte
End Sub

@+ Lolote83

 

[vian31]

Bonjour VIAN31,
Peut être simplement en supprimant le range ici.

Sub commentaire(rng As Range, texte As String)
    rng.AddComment
    rng.Comment.Text Text:=texte
End Sub

@+ Lolote83

Boulette reglée !!
J'appelais doublement l'objet Range, merci Lolote !