Microsoft 365 Changer la langue d'un commentaire - VBA

Diego-Andres · 3 Février 2021

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.

VB:

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 · 3 Février 2021

Bonjour Diego-Andres,

Sans doute une question de point :

VB:

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 · 3 Février 2021

ah oui, je vois . Merci pour votre aide

Microsoft 365 Changer la langue d'un commentaire - VBA

Diego-Andres

XLDnaute Nouveau

job75

XLDnaute Barbatruc

Diego-Andres

XLDnaute Nouveau

Discussions similaires