Bonjour,

J'ai une erreur 400 en éxécutant ma macro. Je pense que c'est une erreur de syntaxe mais je tourne en rond....

voici ma fonction
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
19
20
21
 
Sub test_test()
 
 
        Dim TxtComm ' variable pour modification du commentaire
        Dim X ' variable pour chaine à rechercher
        Dim Y ' variable pour chaine de remplacement
        X = "test"
        Y = "ca marche"
 
    For i = 1 To 10
        If (Not (Range(Cells(i, 1)).Comment = "")) Then
                Range(Cells(i, 1)).Select
                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
        End If
    Next i
 
 
 End Sub
Est ce que vous pouvez m'aider