Discussion :

[carryPAR]

Bonjour,

J'ai écris le code suivant

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Sub commentTZ()
    Dim Cel As Range
    For Each Cel In selection
        Cel.AddComment (TestZéro(ActiveCel))
    Next Cel
End Sub

il ne fonctionne pas. l'erreur est la suivante : erreur de compilation fonction ou variable attendue...
visiblement il y a un problème au niveau du selection

Pouvez vous m'aider ?

Merci beaucoup

[unparia]

Bonjour
1) - que viennent faire des parenthèses ici ? :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cel.AddComment (TestZéro(ActiveCel))

2) qu'est la procédure TestZéro, dont on ignore le code ?

3)

visiblement il y a un problème au niveau du selection

"visiblement" tu n'as rien compris à ce qu'attend (une chaîne de caractères) l'utilisation de la méthode AddComment -->> ouvrir d'urgence ton aide VBA à la rubrique Range.AddComment, méthode

[Jean-Philippe André]

Salut,

et ActiveCell avec 2 l

[carryPAR]

ah je ne savais pas qu'il ne fallait pas mettre de parenthèses...il y en a dans mon cours..

Testzéro affecte "reçu" à la cellule si elle est supérieure à 10 et "non reçu" sinon, voici le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Property Get TestZéro(Cellule As Range) As String
    Select Case Cellule.Value
        Case Is < 10
            TestZéro = "pas recu"
        Case Else
            TestZéro = "recu"
        End Select
End Property

[carryPAR]

le terme rien compris est un peu fort....mais bon...

surtout que TestZéro renvoie bien une chaine de caractère....

par contre effectivement ce n'est pas ActiveCell mais Cel ! Désolé j'avais fait quelques modification pour faire des test suite à cette erreur et j'ai oublié de d'enlever cette modification.

[unparia]

Bien.
Tu aurais du au moins signaler dès ton tout premier message que Testzéro était une fonction et qu'elle renvoyait bien une valeur de type string. Prends cette bonne habitude.
Résolu, alors ?

[Invité]

Bonjour,
De ce que je vois le problème ne vient pas du code, les parenthèse bien qu'inutile ne porte pas a conséquent de ton cas!
L'histoire d'ActiveCell est une erreur de résonnement pas de code!
Quelle est la provenance du fichier?

Si quand tu écris selection et que la première lettre le s en occurrence reste minuscule il y a un problème!