Discussion :

[huhu88]

Bonjour à tous,

J'ai besoin de votre aide car je dois rendre mon projet pour lundi.
Mon soucis est que j'ai une base de données de clients sur xls avec différentes information. Dans cette base de donnée, on peut ajouter des commentaires dans les cellules.
J'ai crée des macros via vba qui permettent d'afficher les informations de cette base de donnée et qui reprennent les cellules du client concerné dans un nouveau onglet.
CEPENDANT, je souhaite que ma macro reprenne EGALEMENT le commentaire de la cellule et me l'affiche en commentaire dans mon nouveau .

MERCI BEAUCOUP A TOUS POUR VOTRE AIDE

[Theze]

Bonsoir,

Si tu sais récupérer les autres valeurs pourquoi tu aurais une difficulté pour récupérer le commentaire ?

[huhu88]

En fait je me suis mal exprimé .
Sur Excel on peut insérer un commentaire à une cellule en faisant un clic droit insérer un commentaire. Dans ce cas lorsqu’on passe la souris sur la cellule le commentaire apparaît.
Du coup je veux que via vba ce commentaire se retrouve sur une autre cellule d’un autre onglet. Est-ce possible et comment ?
Merci

[unparia]

Bonjour

Du coup je veux que via vba ce commentaire se retrouve sur une autre cellule d’un autre onglet. Est-ce possible et comment ?

De la manière la plus simple et instinctive du monde -->>
- tu mets le contenu de ce commentaire dans une variable (1)
- tu affectes ce contenu au commentaire que tu attribue à ton autre cellule (2)

les opérations 1 et 2 peuvent également être reprises sans passer par une variable

Au passage :
l'utilisation toute bête de l'enregistreur de macro te fera connaître le code à écrire pour insérer un commentaire

Quant au commentaire déjà existant dans une cellule, c'est la propriété comment.text de cette cellule
Yapluka.

RE au passage :
1) ton titre ne résume pas la difficulté ! Corrige-le donc (si tu ne le fais pas, j'ignorerai tout nouveau message ou discussion de ta part).
2) il n'y a aucune "urgence" ici. L'urgence est la tienne seule et ne nous regarde pas.

[Theze]

Bonsoir,

Je n'avais pas compris, je pensais que le commentaire était dans une cellule. Donc, pour récupérer le commentaire d'une cellule tu fais :

Code :

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

1
2
 
MsgBox Range("A1").Comment.Shape.TextFrame.Characters.Text

et pour savoir si la cellule contient bien un commentaire, tu fais :

Code :

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

1
2
 
If Not Range("A1").Comment Is Nothing Then

ce qui donne :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Sub Test()
 
    If Not Range("A1").Comment Is Nothing Then
 
        MsgBox Range("A1").Comment.Shape.TextFrame.Characters.Text
 
    End If
 
End Sub

Et dans une boucle sur une plage :

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
 
Sub Test()
 
    Dim Plage As Range
    Dim Cel As Range
 
    Set Plage = Range("A1:D10")
 
    For Each Cel In Plage
 
        If Not Cel.Comment Is Nothing Then MsgBox Cel.Comment.Shape.TextFrame.Characters.Text
 
    Next Cel
 
End Sub

Je pense qu'avec ça, tu devrai t'en sortir sinon, reviens !

[huhu88]

Merci pour ta réponse, mais c'est plus compliqué que ça je pense ..
Je te joint un extrait de mon fichier.
Pour résumer, j'ai 3 onglets :
- "fichier" : base de données qui va être rempli manuellement
- "recherche" : feuille permettant de rechercher un client
- "résultat" : afficher les données d'un client recherché

La recherche se fait donc avec des macros "recherche v", exemple :

If Range("c6") = "Forme juridique" Then
Range("d6").FormulaR1C1 = _
"=+VLOOKUP(R[-5]C[-3],Fichier!R[-1]C[-2]:R[9999]C[186],2,FALSE)"
End If

C'est à ce code que je veux ajouter une formule me permettant d'afficher en plus du contenu le commentaire inséré à la cellule qui sera trouvé via la recherche v.

J'espère avoir été assez clair..

Encore merci pour votre aide

PS : je suis encore débutant dans VBA...