commentaires cellules excel

[philippegommeriel]

je souhaite pour une cellule donnée pouvoir afficher des commentaires spécifiques, entrés par le biais d'une feuille de calcul autre que celle active.
Exemple :

dans la feuille références de A1 à A4 : ville, code postal, année, pays
dans la feuille références de B1 à B4 : nom, prénom,age, ...

replacer le tout dans la feuille active, par exemple en C1 à C4 de manière automatique en tant que commentaires des dites cellules.

Merci d'avance

 

[Hervé]

Bonjour philippe, re le forum

pas tout compris, mais je me lance, ca fera au moins avancé le smilblick 🙂

La macro ci-dessous crée dans la plage ('c1:c4') de la feuille active, des commentaires reprenant comme données les cellules a1:a4 de la feuille 'références'.

Sub Bouton1_QuandClic()
Dim i As Integer
Dim commentaire As String

    For i = 1 To 4
    commentaire = Sheets('références').Range('a' & i)
        With Range('c' & i)
            If Not .Comment Is Nothing Then
                .Comment.Delete
            End If
            .AddComment
            .Comment.Text Text:=commentaire
        End With
    Next i
   
End Sub

Dis moi si j'ai bon ?

PS : je suis pas arrivé à refiler comme texte du commentaire directement la cellule, en somme ceci ne marche pas :

For i = 1 To 4
With Range('c' & i)
If Not .Comment Is Nothing Then
.Comment.Delete
End If
.AddComment
.Comment.Text Text:=Sheets('références').Range('a' & i)
End With
Next i

quelqu'un serait-il pourquoi ?

salut

 

[Bebere]

bonjour à tous

ci-dessous la procédure corrigée

Sub Bouton1_QuandClic()
Dim i As Integer
Dim commentaire As String

For i = 1 To 4
commentaire = Sheets('références').Range('a' & i)
With Range('c' & i)
If Not .Comment Is Nothing Then
.Comment.Delete
End If
.AddComment Cstr(commentaire)

End With
Next i

End Sub

à bientôt

 

[Bernard_XLD]

Bonjour

des liens sur le sujet

Lien supprimé
Lien supprimé

A+

 

[_Thierry]

Bonjour Yeahou, Hervé, Bébére, le Forum

Juste pour la question de mon copain Hervé. Je pense que le Comment .Text attend implicitement du Texte, D'où cette erreur 1004 si on envoie directos la Value d'une Cells (par Défaut si on n'indique rien)...

Donc je recommande au choix :
.Comment.Text Text:=Sheets('références').Range('a' & i).Text
.Comment.Text Text:=CStr(Sheets('références').Range('a' & i))


Bon Appétit
@+Thierry

 

[Bernard_XLD]

Salut Thierry

Content de te lire 🙂
Tu te fais trop rare ces temps ci, alors j'en profite pour te souhaiter une bonne fête.

A+

 

[_Thierry]

Re Bonjour Yeahou, Hervé, le Fil, le Forum

Et oui, assez rare en ce moment, je suis assez à la bourre de partout et je me retrouve souvent trop juste même si mon Directeur m'a bien expliqué que les journées ont 24 heures plus les nuits !

Mais en tout cas, Yeahou, je suis toujours content de te croiser dans un Fil.

Bon Week End et Bonne Saint Thierry à Tous et Toutes
@+Thierry

Au fait j'offre à boire ce soir 😉 et des glaces cet aprèm

 

[Hervé]

bonjour philippe, bebere, yeahou, thierry 😉
Salut le forum

Merci pour ces compléments d'info concernant cette histoire de commentaire.

D'un coup ca me parait logique qu'un commentaire attende du texte 😱

Ils nous restent plus qu'a attendre une réponse de philippe.

Salut

 

[Hellboy]

Bonjour a tous, Hervé

Hervé écrit:

PS : je suis pas arrivé à refiler comme texte du commentaire directement la cellule, en somme ceci ne marche pas :

For i = 1 To 4
With Range('c' & i)
If Not .Comment Is Nothing Then
.Comment.Delete
End If
.AddComment
.Comment.Text Text:=Sheets('références').Range('a' & i)
End With
Next i

quelqu'un serait-il pourquoi ?

salut

Je crois que le problèmes ce situe au niveau de la Méthode vis a vis le Comment. Cette formulation a fonctionné Hervé.

Dim i As Byte
For i = 1 To 4
With ActiveSheet.Range('c' & i)
If Not .Comment Is Nothing Then
.Comment.Delete
End If
.AddComment.Text '' & Sheets('références').Range('a' & i)
End With
Next i

Et même que tu n'est pas obligé d'utiliser le .Text après le AddComment.


p.s. J'avais oublié de mettre l'application xla to xld ds le répertoire de référence pour Excel lors du Démarage. 😱