Microsoft 365 Changer la langue d'un commentaire - VBA

[Diego-Andres]

Bonjour à tous,

Je suis entrain de finaliser un fichier pour le boulot. Ce fichier est trilingue.
J'ai réussi à traduire tous les tableaux avec des listes, les cellules avec des formules et là je n'arrive pas à traduire les commentaires pour compléter des cellules.
Je m'explique. L'organisation partenaire avant de compléter doit voir un commentaire.

Sub AjoutCommentaire()
 With Feuil1
    If Range("F1") = "FR" Then
    Feuil10.Range("A4").AddComment
    Feuil10.Range("A4").Comment.Text Text:="WSM FR"
    
    End If
    If Range("F1") = "ES" Then
    Feuil10.Range("A4").AddComment
    Feuil10.Range("A4").Comment.Text Text:="WSM ESPA"
 
    End If
    If Range("F1") = "EN" Then
    Feuil10.Range("A4").AddComment
    Feuil10.Range("A4").Comment.Text Text:="WSM ENG"
End If
 End With
End Sub

La feuille 1 contient un menu déroulant pour choisir la langue.
La cellule à la quelle je veux rajouter un commentaire est la cellule A4, feuille 10.

J'ai essayé de faire cela en macro mais rien ne se passe.
Quelqu'un pourrais m'aider avec ce code ?

Merci d'avance 🙂
Andres

 

[job75]

Bonjour Diego-Andres,

Sans doute une question de point :

Sub AjoutCommentaire()
Feuil10.Range("A4").ClearComments 'RAZ
With Feuil1
    If .Range("F1") = "FR" Then Feuil10.Range("A4").AddComment "WSM FR"
    If .Range("F1") = "ES" Then Feuil10.Range("A4").AddComment "WSM ESPA"
    If .Range("F1") = "EN" Then Feuil10.Range("A4").AddComment "WSM ENG"
End With
End Sub

A+

 

[Diego-Andres]

ah oui, je vois 🙂. Merci pour votre aide