Discussion :

[heliconet]

Bonjour,
J'essaie de réaliser un code afin vérifier la présence ou non d'un commentaire dans une cellule. L'aide du forum m'a permis d'effectuer ce code mais je bute sur le test lorsqu'une cellule n'a pas de commentaire.
Le code renvoi "#VALEUR". Je fais une erreur certes mais je ne la voie pas!!!
Voici le code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function CopierAvecCommentaire(Source As Range)
    Application.Volatile
    AdrAppelFn = Parent.Caller.Address()
        Range(AdrAppelFn).ClearComments
        Range(AdrAppelFn).AddComment
        Range(AdrAppelFn).Comment.Text Text:=Source.Comment.Text
        Range(AdrAppelFn).Comment.Shape.Height = Source.Comment.Shape.Height
        Range(AdrAppelFn).Comment.Shape.Width = Source.Comment.Shape.Width
        Range(AdrAppelFn).Comment.Visible = Source.Comment.Visible
            If Range(AdrAppelFn).Comment Is Nothing Then
                MsgBox "Il n'y a pas de commentaire dans la cellule "
            Else
                CopierAvecCommentaire = Source.Value
                MsgBox "Il y un commentaire: " & Source.Comment.Text & "  et le texte de la cellule est: " & Source.Value
            End If
End Function

Pouvez vous me venir en aide, merci

[laetitia]

bonjour heliconet le forum un exemple simple tu sélectionne une cellule puis tu lances la macro a adapter

Code :

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

1
2
3
Sub essai()
If ActiveCell.Comment Is Nothing Then MsgBox "pas de  commentaire" Else MsgBox "commentaire"
End Sub

[heliconet]

bonjour heliconet le forum un exemple simple tu sélectionne une cellule puis tu lances la macro a adapter

Bonjour,
Merci de cette réponse rapide.
Pas compris correctement la réponse.

Le code que j'ai initialisé fonctionne, mais je n'arrive pas à coder la condition pour une cellule qui n'a pas de commentaire. Par le test de condition " si commentaite est vide...."
je souhaite copier le contenu de la cellule et donc ingnorer le commentaire qui y est lié.
Cordialement

[Qwazerty]

Salut amie Leti, heliconet
Si tu fais ce test

Code :

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

If Range(AdrAppelFn).Comment Is Nothing Then

C'est que tu crains qu'il n'y est pas de commentaire
Ce qui m'amène a la refléction suivante
1/ il ne sera jamais "Nothing" etant donné que tu le cré un peu plus haut.
2/ il serait sans doute judicieux de vérifier que Source a bien un commentaire

Code :

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

Range(AdrAppelFn).Comment.Text Text:=Source.Comment.Text

Sinon cette ligne risque de poser problème.
3/ Si le seule soucis est de savoir si le commentaire est vide

Code :

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

If range(...).comment.text = "" then ...

En espérant avoir compris ce qui motive ta demande
A++
Qwaz

[heliconet]

Bonsoir,

C'est que tu crains qu'il n'y est pas de commentaire

Oui c'est une possibilité que la cellule source copiée ne dispose pas de commentaire

il ne sera jamais "Nothing" etant donné que tu le créé un peu plus haut.

Code :

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

Range(AdrAppelFn).Comment.Text Text:=Source.Comment.Text

J'ai suposé que la fonction ne faisait que lire le commentaire

il serait sans doute judicieux de vérifier que Source a bien un commentaire

Oui, dans ce cas je souhaite copier la cellule source sans son commentaire.

Si le seule soucis est de savoir si le commentaire est vide

Code :

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

if range(...).comment.text = "" then ...

Pas exactement. J'ai effectivement essayé mais cela ne fonctionne pas. J'ai toujours en retour "#VALEUR" dans la cellule de destination.

En espérant avoir compris ce qui motive ta demande

Merci pour cette première analyse.
Une autre peut être?
Salut

[Qwazerty]

Je comprend pas trop ton probleme, il suffit de tester si un commentaire est présent sur Source?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Function CopierAvecCommentaire(Source As Range)
    Application.Volatile
    AdrAppelFn = Application.Caller.Address()
    Range(AdrAppelFn).ClearComments
    If not Source.Comment is Nothing then
        'Si la source contient un commentaire
        Range(AdrAppelFn).AddComment
        Range(AdrAppelFn).Comment.Text Text:=Source.Comment.Text
        Range(AdrAppelFn).Comment.Shape.Height = Source.Comment.Shape.Height
        Range(AdrAppelFn).Comment.Shape.Width = Source.Comment.Shape.Width
        Range(AdrAppelFn).Comment.Visible = Source.Comment.Visible
    End If
    'Dans tous les cas on copie le contenu
    Range(AdrAppelFn).value = Source.value
End Function

++
Qwaz

[heliconet]

Je comprend pas trop ton probleme, il suffit de tester si un commentaire est présent sur Source?

Code :

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

1
2
3
4
 
     'Dans tous les cas on copie le contenu
    Range(AdrAppelFn).value = Source.value
End Function

Ben oui c'est simple quand c'est bien expliqué. Voila que cela fonctionne.

J'ai continué mes essais mais avec ce code quand je renseigne des cellules par exemple avec colonnes "Ax" sources et "By" destinations:
A1 = un + commentaire B1= 0 +commentaire
A2 = deux + commentaire B2= 0 +commentaire
A3 = trois B3= 0
Le commentaire suit mais j'ai toujours la valeur "0" renseignée?
merci

[Qwazerty]

Salut
Oupla il etait tard j'ai dis une boulet, la phrase que tu mets en quote est fausse en effet attend je reviens

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function CopierAvecCommentaire(Source As Range)
    Application.Volatile False ' seul la modification d'une cellule Source doit déclencher le recalcule de cette function
    AdrAppelFn = Application.Caller.Address()
    Range(AdrAppelFn).ClearComments
    If Not Source.Comment Is Nothing Then
        'Si la source contient un commentaire
        Range(AdrAppelFn).AddComment
        Range(AdrAppelFn).Comment.Text Text:=Source.Comment.Text
        Range(AdrAppelFn).Comment.Shape.Height = Source.Comment.Shape.Height
        Range(AdrAppelFn).Comment.Shape.Width = Source.Comment.Shape.Width
        Range(AdrAppelFn).Comment.Visible = Source.Comment.Visible
    End If
    'Dans tous les cas on copie le contenu
    CopierAvecCommentaire = Source.Value
 
End Function

Voila désolé, en faite le code d'avant créé une ref circulaire, ça ira bien mieux comme ça. Attention quand même avec les function que tu mets dans une cellule et qui modifie des choses autre que la valeur transmise par cette function, j'ai été très surpris (on en apprend tous les jours) de voir qu'il était possible de le faire avec les commentaire, si tu essai de modifier une autre cellule du tableau(la valeur je parle) ou même la couleur de la cellule en cours ça ne fonctionnera pas, voir même ca le plante dans le cas d'une cellule extérieur.

Par contre je viens de constater que l'ajout d'un commentaire ne déclenchera pas le recalcule des cellule (même avec Volatil à True) donc si tu rajoutes un commentaire après coup, ta formule ne le rajoutera pas.
A++
Qwaz

[heliconet]

Attention quand même avec les function que tu mets dans une cellule et qui modifie des choses autre que la valeur transmise par cette function, j'ai été très surpris (on en apprend tous les jours) de voir qu'il était possible de le faire avec les commentaire, si tu essai de modifier une autre cellule du tableau(la valeur je parle) ou même la couleur de la cellule en cours ça ne fonctionnera pas, voir même ca le plante dans le cas d'une cellule extérieur.

Par contre je viens de constater que l'ajout d'un commentaire ne déclenchera pas le recalcule des cellule (même avec Volatil à True) donc si tu rajoutes un commentaire après coup, ta formule ne le rajoutera pas.

Bravo pour cette aide précieuse cela me permet d'avancer. Effectivement les modifications de commentaire ne sont pas actualisées avec ce type de code.

Normalement dans les cellules sources il n'y aura que du texte de même pour le commentaire associé. Ces informations ne doivent pas être modifiées. Les cellules sources sont appelées en combinant des fonctions de type EQUIV et INDEX.

D'autre part compte tenu de vos remarques je me demande si le code est approprié pour le résultat que je souhaite obtenir?
Existe il une autre possibilité.
Salut

[Qwazerty]

Salut
Pour la manipulation des commentaire désolé mais je ne connais pas de "méthode" particulier, mais que souhaites tu faire exactement, met un fichier exemple avec des données bidon, histoire de bien comprendre ce que tu cherche a faire.
A++
Qwaz

[heliconet]

mais que souhaites tu faire exactement, met un fichier exemple avec des données bidon, histoire de bien comprendre ce que tu cherche a faire.

Bonjour,
Voici un exemple,
1°) un tableau (T1, exemple1) représentant un calendrier( ici 1er mois de l'année) avec une ligne rprésentant des activités et si besoin des commentaires en complément d'information. Ce calendrier est supposé être perpétuel donc les activités glissent de date selon l'année.


2°) un autre tableau (T2, exemple2) regroupant sur différentes, une pour activités et commentaires, une autre pour les dates. Ces dates sont comparées aux tableau (T1) et si comparaison est "VRAI" je copie les données activités+ commentaires dans tableau (T1).
Si les commentaires n'existent pas je recopie que l'activité.

J'espère aue ces informations soient explicites pour vous
A+

[Qwazerty]

Salut
Alors voila ce que je ferais si j'étais toi.
Je rajouterais un colonne dans mon 2eme tableau, et dans cette colonne je taperais ce que toi tu inscrit dans le commentaire de la 1er colonne. Ainsi lors du modification du contenu de cette 2eme colonne la formule contenu dans la cellule correspondant de ton calendrier se recalculerai.
Exemple (je n'ai pas excel sous la main)
Dans ta cellule calendrier parmis le reste de la formule (Equiv+Index...) tu utilise ta function

MaFunction(CellContenu As Range,CellComment As Range)
CellContenu pointe sur la 1er colonne de ton tableau activité
Dans ton code tu t'en serts pour la valeur retournée par MaFunction
CellComment pointe sur la 2eme cellule.
Dans ton code tu t'en sert pour renseigner le commentaire de la cellule appelante (caller)

Ainsi si tu modifies ou l'une ou l'autre des 2 colonnes de ton tableau activité ta cellule sera a jour dans ton calendrier. J'ai une idée de code en tête, il suffit de modifier un peu cellule déjà existant.

Autre chose pour ce qui est de la perpétuité du calendrier jettes un coup d'oeil dans le forum excel dans la partie Contribution tu trouveras dans les derniere sujet un calendrier perpetuel qui tient compte des jours ferié et des vacances scolaires (a renseigner a la main bien sur, il n'y a pas de logique codable pour les déterminer)

A++
Qwaz

[heliconet]

Alors voila ce que je ferais si j'étais toi.
Je rajouterais un colonne dans mon 2eme tableau, et dans cette colonne je taperais ce que toi tu inscrit dans le commentaire de la 1er colonne. Ainsi lors du modification du contenu de cette 2eme colonne la formule contenu dans la cellule correspondant de ton calendrier se recalculerai.
Exemple (je n'ai pas excel sous la main)
Dans ta cellule calendrier parmis le reste de la formule (Equiv+Index...) tu utilise ta function

MaFunction(CellContenu As Range,CellComment As Range)
CellContenu pointe sur la 1er colonne de ton tableau activité
Dans ton code tu t'en serts pour la valeur retournée par MaFunction
CellComment pointe sur la 2eme cellule.
Dans ton code tu t'en sert pour renseigner le commentaire de la cellule appelante (caller)

Ainsi si tu modifies ou l'une ou l'autre des 2 colonnes de ton tableau activité ta cellule sera a jour dans ton calendrier. J'ai une idée de code en tête, il suffit de modifier un peu cellule déjà existant.

Ho la la effectivement un petit exemple pour moi s'impose.

Autre chose pour ce qui est de la perpétuité du calendrier jettes un coup d'oeil dans le forum excel dans la partie Contribution tu trouveras dans les derniere sujet un calendrier perpetuel qui tient compte des jours ferié et des vacances scolaires (a renseigner a la main bien sur, il n'y a pas de logique codable pour les déterminer)

Oui effectivement j'ai trouvé ce qu'il me faut dans le forum pour ce cas je n'ai pas de soucis, j'arrive à faire ce que je souhaite.
D'autre part j'ai effectué toutes les formules simplement en utilisant les fonctions prédéfinies dans EXCEL, mais pour le commentaire il faut un passage pas un codage VBA.

[Qwazerty]

Re
Voila ce à quoi je pensais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function CopierComCont(CellContenu As Range, CellComment As Range)
    Application.Volatile False ' seul la modification d'une cellule Source doit déclencher le recalcule de cette function
    AdrAppelFn = Application.Caller.Address()
    Range(AdrAppelFn).ClearComments
 
    If CellComment.Text <> "" Then 'Text est plus adapté que value pour cibler des cellule "vide", souvent vide est representé par "0" par excel
        'Si CellComment contient "un commentaire"
        Range(AdrAppelFn).AddComment
        Range(AdrAppelFn).Comment.Text CellComment.Text
        'Ca par contre c plus possible, à verifier il existe peut etre une astuce pour le faire "automatiquement"
        'Range(AdrAppelFn).Comment.Shape.Height = Source.Comment.Shape.Height
        'Range(AdrAppelFn).Comment.Shape.Width = Source.Comment.Shape.Width
        'Range(AdrAppelFn).Comment.Visible = Source.Comment.Visible
    End If
    'Dans tous les cas on copie le contenu
    CopierComCont = CellContenu.Value
End Function

La function est utilisée dans les cellules du calendrier, le tableau avec les événement contient 3colonnes, 1er colonne Contenu, 2eme Commentaire et 3eme la date.
Contenu est transvasé directement dans la cellule du calendrier et commentaire, si celui ci est renseigné et placé dans un commentaire dans la cellule du calendrier. Ainsi si tu modifies une des 2 cellules (Contenu ou Commentaire), la cellule du calendrier sera mise a jour.

Bonne soirée
Qwaz

[heliconet]

Bonjour,
J'ai un calendrier chargé en ce moment il n'est difficile d'avancer sur ce projet, votre proposition pour le moment est en attente. Mon dernier avancement sur le code est:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Function CopierAvecCommentaire(Source As Range)
    Application.Volatile
    AdrAppelFn = Parent.Caller.Address()
    Range(AdrAppelFn).ClearComments
    If Not Source.Comment Is Nothing Then
    ' Si la source contient un commentaire
        Range(AdrAppelFn).ClearComments
        Range(AdrAppelFn).AddComment
        Range(AdrAppelFn).Comment.Text Text:=Source.Comment.Text
        Range(AdrAppelFn).Comment.Shape.Height = Source.Comment.Shape.Height
        Range(AdrAppelFn).Comment.Shape.Width = Source.Comment.Shape.Width
        Range(AdrAppelFn).Comment.Visible = Source.Comment.Visible
    End If
    'Dans tous les cas on copie le contenu
    CopierAvecCommentaire = Source.Value
End Function

Il semble correspondre à l'idée que je souhaite réaliser.
Des que possible je poursuis sur votre proposition.
D'autre part, pour votre proposition en cours, pour forcer la validation lors d'une modification dans la cellule source faut il aussi activer la touche "F9"?
A+