Discussion :

[debo41]

Bonjour,

Je suis débutante en Excel et j'ai un petit soucis.
Voila je voudrais modifier le contenu d'un commentaire.
Par exemple voici mon commentaire de départ :
Bonjour
Ceci est un test
Je voudrais arriver à la fin à :
Bonjour
Ce test marche

En gros je voudrais tester si il y a dans mon commentaire une chaine de caractere X et je voudrais la remplacer par Y sans modifier le reste du commentaire

Est faisable ?

Merci d'avance pour votre aide

[Minick]

Salut,

Je n'ai pas xl2007 mais sous xl2003 on peut comme ceci:
Pour un commentaire en Cellule A1 par exemple

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
18
Option Explicit
 
Sub ModifCommentaire()
    Dim ChaineDepart As String, ChaineFinale As String
 
    ChaineDepart = "Ceci est un test"
    ChaineFinale = "Ce test marche"
 
    With Range("A1")
        If Not .Comment Is Nothing Then
            With .Comment.Shape.DrawingObject
                If InStr(.Caption, ChaineDepart) <> 0 Then
                    .Caption = Replace(.Caption, ChaineDepart, ChaineFinale)
                End If
            End With
        End If
    End With
End Sub

[debo41]

Merci bcp pout ta réponse
Ca marche comme je voulais

Merci

A++

[fgiambelluco]

Bonjour
Dans la mesure du possible, on utilise l'enregistreur de macro et on essaye d'adapter le code proposé ; c'est ce que j'ai fait pour te fournir une réponse.

Ce qui donne (à adapter à tes besoins)

Code :

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

1
2
3
4
5
6
7
8
    Dim TxtComm ' variable pour modification du commentaire
    Dim X ' variable pour chaine à rechercher
    Dim Y ' variable pour chaine de remplacement
    X="rechercher"
    Y="Remplacer"
    TxtComm = ActiveCell.Comment.Text 'récupération du commentaire de la cellule active
    TxtComm = Replace(TxtComm, X, Y) ' remplace une chaine X par un chaine Y
    ActiveCell.Comment.Text Text:=TxtComm ' on ré injecte le commentaire dans la callule active

(on pourrait tout faire en une seule ligne, mais le code serait moins lisible)


Edit : désolé Minick pour le télescopage

[debo41]

Petite question le code que tu ma donné marche pour changer une ligne complète mais pas un morceau de texte.
Effectivement si mon commentaire est "Ceci est un test"
Et que je veux changer par "Ceci marche"
Ca ne marche pas
J'ai mis en chaine de départ "test"
Et chaine d'arrivé "marche"

As tu une idée ?

[fgiambelluco]

Re
Si Avec le code que je t'ai donné précédemment, cela donne

Code :

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

1
2
3
4
5
6
7
8
    Dim TxtComm ' variable pour modification du commentaire
    Dim X ' variable pour chaine à rechercher
    Dim Y ' variable pour chaine de remplacement
    X = "est un test"
    Y = "marche"
    TxtComm = ActiveCell.Comment.Text 'récupération du commentaire de la cellule active
    TxtComm = Replace(TxtComm, X, Y) ' remplace une chaine X par un chaine Y
    ActiveCell.Comment.Text Text:=TxtComm ' on ré injecte le commentaire dans la callule active

[Gorzyne]

cette approche ne conserve pas la mise en forme du texte initial (italique, gras)...
j'imagine qu'il doit y avoir une solution dynamique peut être un peu plus complexe, qui permettrait de récupérer le formatage pour le conserver