Microsoft 365 Changer la langue d'un commentaire - VBA

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

Diego-Andres

XLDnaute Nouveau
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
 
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+
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

Réponses
4
Affichages
461
Réponses
2
Affichages
461
Réponses
3
Affichages
514
Réponses
1
Affichages
685
Retour