RechercheV et commentaires

[Mathilde]

Bonjour au Forum,

je travaille actuellement sur les rechercheV et je rencontre un problème lorsqu'il s'agit de récupérer toute l'information d'une cellule (valeurs+commentaires).

ma seconde question concerne toujours le même sujet : je souhaiterai obtenir en commentaire, l'information se trouvant dans la cellule voisine.
j'ai parcouru les archives mais je n'ai pas trouvé de solutions à mes difficultés.

vous trouverez en pièce jointe un exemple de ce que je souhaiterai réaliser.

merci par avance pour votre aide.

Mathilde. [file name=commentaires_20050719111856.zip size=12375]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/commentaires_20050719111856.zip[/file]

 

[Hervé]

Bonjour

une proposition en pièce jointe

Salut
[file name=commentaires_20050719121241.zip size=14474]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/commentaires_20050719121241.zip[/file]

 

[Mathilde]

Bonjour Hervé,

je suis stupéfaite par ta réponse... je n'imaginais pas que cela était possible!!! 🙂

Pour ma 2ème interrogation (rajouter en commentaire, le contenu d'une cellule voisine), c'est impeccable...

Pour la 1ère question, je n'ai pas réussi à adapter le code pour généraliser la macro à l'ensemble des cellules sur lesquelles j'effectue un rechercheV. En d'autre terme, ton code ne s'applique que pour la cellule K9.

Merci en tout cas pour ton aide.

Mathilde

 

[Mathilde]

Rebonjour le Forum,

il semblerait que j'ai trouvé une solution à mon problème... youpi je suis contente!
je suis partie du code d'Hervé et j'ai bricolé un petit peu (genre Bricole Girl car chui pas douée lol!)

Il y a peut-être une solution plus simple...

Par ailleurs, si je voulais effectuer le même type de rechercheV (valeur+commentaires) mais selon 2 paramètres (fruit+moment de la journée)... je n'ai d'autre solution que de passer par une solution qui représenterait la concaténation des 2 données?!?!

Merci encore pour votre aide.

Mathilde [file name=commentairesv2.zip size=14823]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/commentairesv2.zip[/file]

 

[_Thierry]

Bonsoir Mathilde, Hervé, le Forum

Pour un méthide 100% VBA dans la lignée d'Hervé...

Sub Macro2()
Dim c As Range, d As Range
Dim Fruit As String

    For Each c In Range('e3:e7')
        If Not c.Comment Is Nothing Then
            c.Comment.Delete
        End If
        c.AddComment.Text Text:=c.Offset(0, 1).Text
        c.Comment.Visible = False
    Next c


    For Each c In Range('K20:K23')
        If Not c.Comment Is Nothing Then
            c.Comment.Delete
        End If
       
        Fruit = c.Offset(0, -1)
           
            For Each d In Range('A3:A7')
                If UCase(d.Text) = UCase(Fruit) Then
                    c = d.Offset(0, 4)
                    c.AddComment.Text Text:=d.Offset(0, 5).Text
                    c.Comment.Visible = False
                End If
            Next d
    Next c

End Sub

Pour ta question subsidiaire, oui ce serait logique une Concaténation VBA, un peu comme ceci :

    For Each c In Range('K20:K23')
        If Not c.Comment Is Nothing Then
            c.Comment.Delete
        End If
       
        Fruit = c.Offset(0, -1) & c.Offset(0, -2)
           
            For Each d In Range('A3:A7')
                If UCase(d.Text) & UCase(d.Offset(0, 1).Text) = UCase(Fruit) Then
                    c = d.Offset(0, 4)
                    c.AddComment.Text Text:=d.Offset(0, 5).Text
                    c.Comment.Visible = False
                End If
            Next d
    Next c

NB sans tester cette concaténation, juste pour le principe

Bonne Soirée, je file du bureau maintenant.

@+Thierry

 

[Mathilde]

Bonjour Thierry, Hervé, le Forum

merci pour ton apport Thierry... ça semble si simple pour toi, j'ai l'impression de lire de la prose...

merci encore.

Mathilde