Discussion :

[Philippe Tulliez]

Bonjour,
Y a-t-il des contraintes particulières dans ce projet ?
Sinon je te suggère de faire tout simplement une fonction personnalisée en VBA qui va faire ce que la formule que je t'ai proposée fait. cela fera moins de 10 lignes.

[lilia92]

Non en fait il n'y a pas de contraintes particulières
il faut que tout soit coder sur VBA et aucune fonction ne doit apparaitre dans la zone "inserer une fonction" dans excel!!
Toute suggestion est la bienvenue

[Philippe Tulliez]

Bonjour,
Alors ce que je voulais te proposer ne pourra pas fonctionner puisqu'il s'agissait d'une fonction personnalisée qui doit être placée dans chaque cellule à traduire.
Pour quoi la proposition de Parmi ne te convient pas alors ?

[lilia92]

Bonjour Philippe,
Tu peux me la montrer quand même cette fonction personnalisée (comme ça j'aurai plusieurs tentatives le jour du briefing)
La méthode de Parmi, il n'a pas trop dévelloper donc j'essaierai d'y travailler et de comprendre son code dèjà sinon je lui demande plus d'explications

Bonjour,
j'ai tenté une autre méthode, transcrire un "index/equiv" en vba (valeur recherchee du equiv issue d'un combobox, tableau de recherche dans une feuille et resultat final dans les cellule)

=INDEX(pnTranslate;EQUIV("MONTEXTE";pnTranslate_Ref;0);cnLanguage)

cette fonction donné par Philippe marche très bien par contre il fallait l'automatiser, j'exécute ce code mais il n'affiche rien, pourriez vous le vérifier SVP

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
Sub TraduireTexte()
 
    pnTranslate = Sheet("traduction").Range("A2:E16")
    pnTranslate_Ref = Sheet("traduction").Range("A2:A16")
    cnLanguage = Sheet("Langue").Cells(2, 3)
 
     For Each cell In Sheet("Sommaire")
        Var = Application.Match(cell.Value, pnTranslate_Ref, 0)
 
        If cell.Value <> "" Then
            cell.Value = Application.Index(pnTranslate, Var, cnLanguage)
 
            'cell.Value = Application.Index(pnTranslate, Application.Match(cell.Value, pnTranslate_Ref, 0), cnLanguage)
            'cell.Value = Application.WorksheetFunction.Index(Sheet("traduction").Range("A2:E16"), Application.WorksheetFunction.Match _
            '                 (cell.Value, Sheet("traduction").Range("A2:A16"), 0), cnLanguage)
 
        End If
    Next cell
 
End Sub

Merci par avance

[parmi]

Un bon début serait de mettre Option Explicit en début de chaque module de code.
Ça t'obligerait à déclarer toutes tes variables.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each cell In Sheet("Sommaire")

Ici, il manque la plage de cellules, je pense...

[lilia92]

Pas besoin de la plage de cellules, je crois, car je veux qu'il cherche dans toutes les cellules de la feuille

J'ai reconstitué mon code et cette fois il m'affiche Erreur d'exécution '91'!!!

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
 
Option Explicit
Sub TraduireTexte()
 
   Dim pnTranslate, pnTranslate_Ref, cnLanguage, Var As String
   Dim Wb As Workbook                   'Définit une variable qui va représenter un classeur
   Dim Ws As Worksheet                  'Définit une variable qui va représenter une feuille de calcul
   Dim C As Range                          'Définit une variable qui va représenter une cellule
 
    pnTranslate = Sheets("traduction").Range("A2:E16")
    pnTranslate_Ref = Sheets("traduction").Range("A2:A16")
    cnLanguage = Sheets("Langue").Cells(2, 3)
    Var = Application.Match(C.Value, pnTranslate_Ref, 0)
 
    For Each C In Ws("Sommaire")
        If C.Value <> "" Then
            C.Value = Application.Index(pnTranslate, Var, cnLanguage)
        End If
    Next C
End Sub

[Menhir]

Pas besoin de la plage de cellules, je crois,

Sauf si la durée de la procédure a un peu d'intérêt...

[lilia92]

Oui c'est bon j'ai limité la recherche

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

For Each C In Ws("Sommaire").Range("A1:N21")

par contre; j'ai toujours l'erreur 91!!!

[Menhir]

Remplace Ws par Worksheets.

[lilia92]

Pareil!! Variable objet ou variable de bloc With non définie

[Menhir]

Range n'étant pas une collection, ton For Each ne peut pas marcher. Il faudrait ajouter un Cells à la fin.

[lilia92]

Ca marche pas non plus!! erreur 91

[Kimy_Ire]

Bonjour à tous,

Juste de passage, je regardais le dernier code proposé.

Sauf erreur de ma part, la variable "C" n'est pas définie au moment où l'instruction suivante est appelée ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Var = Application.Match(C.Value, pnTranslate_Ref, 0)

Cordialement,
Kimy

[Menhir]

Ca marche pas non plus!! erreur 91

Sur quelle ligne se produit l'erreur ?

[lilia92]

Bonjour Menhir

je crois que j'ai un peu avancé sur mon programme, plus de message d'erreur, mais encore 2 problemes

1) Il remplace pas Cell.Value par le contenu de la cellule mais il me colle ce code comme il est:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

"=INDEX(pnTranslate,MATCH(""Cell.Value"",pnTranslate_Ref,0),cnLanguage)"

2) Il trouve la première cellule remplie mais il ne met pas le code dedans, je crois que ca vient du fait que j'utilise (ActiveCell), je ne sais pas par quoi la remplasser, si je mets (Cell) il colle le code dans toute les cellules pas vide du champ Range("A1:G15")

Merci par avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Sub traduire()
 
Dim Cell As Range         'Définit une variable qui va représenter une cellule
 
    For Each Cell In Worksheets("Sommaire").Range("A1:G15")
        If Not IsEmpty(Cell.Value) Then
    ActiveCell.FormulaR1C1 = _
        "=INDEX(pnTranslate,MATCH(""Cell.Value"",pnTranslate_Ref,0),cnLanguage)"
        End If
    Next Cell
 
End Sub

[lilia92]

d'après la page d'aide excel: EQUIV(valeur_cherchée, matrice_recherche, [type])

L’argument valeur_cherchée (qui correspond à Cell.Value): peut être une valeur (nombre, texte ou valeur logique) ou une référence de cellule à un nombre, à du texte ou à une valeur logique.

ma question est: est ce que cette argement peut accepter une référence du contenu d'une cellule??

[Menhir]

je crois que j'ai un peu avancé sur mon programme, plus de message d'erreur

Et ça ne te serait pas venu à l'esprit de le signaler sur ce forum pour éviter à certain de perdre du temps à chercher une solution ?

2) Il trouve la première cellule remplie mais il ne met pas le code dedans, je crois que ca vient du fait que j'utilise (ActiveCell), je ne sais pas par quoi la remplasser, si je mets (Cell) il colle le code dans toute les cellules pas vide du champ Range("A1:G15")

Mets "Cell" à la place de "ActiveCell" et met un "Exit For" juste avant ton "End If".

[lilia92]

Bonjour;
Excusez moi tout le monde pour ne pas avoir signaler le progrès de mon code

oui en effet probleme 2) résolu merci bcp Menhir, mais pas le 1) il remplace pas Cell.Value par le contenu de la cellule mais il me colle toujours ce code comme il est

[Menhir]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Cell.FormulaR1C1 = "=INDEX(pnTranslate,MATCH("+Cell.Value+",pnTranslate_Ref,0),cnLanguage)"

[lilia92]

Erreur 1004
Erreur définie par l'application ou par l'objet
Test_Langue_test.xlsx