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.
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
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