XL 2013 Range en paramètre de sub

vian31 · 8 Mars 2022

Bonjour à tous,

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

VB:

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

vian31 · 8 Mars 2022

Lolote83 à dit:
Bonjour VIAN31,
Peut être simplement en supprimant le range ici.

VB:

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 !

Lolote83 · 8 Mars 2022

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

VB:

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

@+ Lolote83

vian31 · 8 Mars 2022

Lolote83 à dit:
Bonjour VIAN31,
Peut être simplement en supprimant le range ici.

VB:

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 !

XL 2013 Range en paramètre de sub

vian31

XLDnaute Nouveau

vian31

Lolote83

XLDnaute Barbatruc

vian31

XLDnaute Nouveau

Discussions similaires

XL 2013 Range en paramètre de sub

vian31

XLDnaute Nouveau

Lolote83

XLDnaute Barbatruc

vian31

XLDnaute Nouveau

Discussions similaires

Privacy & Transparency

Privacy & Transparency