insérer une formule par vba

john

john

XLDnaute Impliqué
Bonjour à tous,

J'ai un souci pour ajouter une formule par vba.

Je m'explique...

Voici la formule en question :
Sheets("comparison").Range("C57").FormulaLocal = "=SI(B49<=B45;" & Sheets("Traduction").Cells(18, col).Value & ";SI(ET(B49>B45;B49<B44);" & Sheets("Traduction").Cells(19, col).Value & ";" & Sheets("Traduction").Cells(20, col).Value & "))"
En fait j'ai des phrases (français-anglais) dans des cellules et j'aimerai selon la langue, faire changer le texte dans la formule.

Voici le résultat voulu avec la même formule :
Sheets("comparison").Range("C57").FormulaLocal = "=SI(B49<=B45;""Variances: Résultats OK F < Fo(5%) (case a - TRA 418/1)"";SI(ET(B49>B45;B49<B44);""Variances probablement différente - Justification ! Fo(5%) < F < Fo(1%) (case b - TRA 418/1)"";""Variances presque certainement différentes - Résultats NOK F > Fo(1%) (case c - TRA 418/1)""))"

J'ai sur une feuille nommée "Traduction" plusieurs cas possibles en Français et en Anglais et ce serai super si j'arrivai à faire en sorte que ce soit inséré dans la formule automatiquement et ainsi donner la possibilité à l'utilisateur de pouvoir modifier la description aussi bien en Français qu'en Anglais.

Je sais le faire en harcodant dans le vba, mais je pense que ce serai mieux en pointant sur des cellules afin de pouvoir modifier le texte dans le future.

Je vous remercie d'avance pour votre aide.

Bonne journée à vous.

John
 
Trier par date Trier par votes
francedemo

francedemo

XLDnaute Occasionnel
Re : insérer une formule par vba

bonjour,
il faut doubler les ", tu ajoutes des valeur texte, donc celle-ci doivent être entre "", et comme tu utilise des &, il faut aussi en ajouter, ça donne:
Sheets("comparison").Range("C57").FormulaLocal = "=SI(B49<=B45;"" & Trad.Cells(18, col).Value & "";SI(ET(B49>B45;B49<B44);"" & Trad.Cells(19, col).Value & "";"" & Trad.Cells(20, col).Value & ""))"

juste une remarque sur ton code, il serait beaucoup plus facile à lire avec des with / end with
Code: 
Private Sub ToggleButton1_Click()

Application.ScreenUpdating = False

Sheets("comparison").Unprotect
Sheets("results").Unprotect

    If ToggleButton1.Value = True Then
        ToggleButton1.Caption = "Français"
        col = 1
        'Sheets("Infos").Range("B4").Value = "Producer :"
        'Sheets("Infos").Range("B5").Value = "Quality :"
        'Sheets("Infos").Range("B7").Value = "Visit :"
        'Sheets("Infos").Range("B9").Value = "Diameter :"
        'Sheets("results").Range("A4").Value = "Results of the test made during the visit"
        'Sheets("results").Range("A26").Value = "Mean"
        'Sheets("results").Range("A27").Value = "Standard deviation"
        'Sheets("results").Range("A29").Value = "Caractéristique" & Chr(10) & "Value"
        'Sheets("results").Range("A30").Value = "Specified" & Chr(10) & "caractéristique" & Chr(10) & "Value"
        'Sheets("results").Range("A31").Value = "Condition:" & Chr(10) & "Mean. > Vcs"
        'Sheets("results").Range("A32").Value = "Condition: Each" & Chr(10) & "Indiv. > Vcs"
        'Sheets("results").Range("A33").Value = "Condition:" & Chr(10) & "Mean. > Vcs+10" & Chr(10) & "and each value" & Chr(10) & "indiv. > 0,95*Vcs"
        
        'Sheets("comparison").Range("A1").Value = "Comparison method of the variances and the means (TRA 418/1)"
        'Sheets("comparison").Range("A9").Value = "nbr samples"
        'Sheets("comparison").Range("C8").Value = "Visit"
        'Sheets("comparison").Range("F8").Value = "Visit"
        'Sheets("comparison").Range("A40").Value = "mean ="
        'Sheets("comparison").Range("D40").Value = "mean ="
        'Sheets("comparison").Range("A41").Value = "standard deviation ="
        'Sheets("comparison").Range("D41").Value = "standard deviation ="
        'Sheets("comparison").Range("A42").Value = "caract. value ="
        'Sheets("comparison").Range("D42").Value = "caract. value ="
        'Sheets("comparison").Range("A43").Value = "variance ="
        'Sheets("comparison").Range("D43").Value = "variance ="
        'Sheets("comparison").Range("C57").FormulaLocal = "=SI(B49<=B45;""Variances: Results OK  F < Fo(5%) (case a - TRA 418/1)"";SI(ET(B49>B45;B49<B44);""Variances probably different - Justification !  Fo(5%) < F < Fo(1%) (case b - TRA 418/1)"";""Variances most probably différent - Results NOK  F > Fo(1%) (case c - TRA 418/1)""))"
        'Sheets("comparison").Range("C58").FormulaLocal = "=SI(B54<=B47;""Means: Results OK  |t| < to(5%) (case a - TRA 418/1)"";SI(ET(B54>B47;B54<B46);""Means probably different - Justification !  to(5%) < |t| < to(1%) (case b - TRA 418/1)"";""Means most probably different - Results NOK  |t| > to(1%) (case c - TRA 418/1)""))"
        'Sheets("comparison").Range("C60").FormulaLocal = "=SI(E49<=E45;""Variances: Résults OK  F < Fo(5%) (case a - TRA 418/1)"";SI(ET(E49>E45;E49<E44);""Variances probably different - Justification !  Fo(5%) < F < Fo(1%) (case b - TRA 418/1)"";""Variances most probably different - Résultats NOK  F > Fo(1%) (case c - TRA 418/1)""))"
        'Sheets("comparison").Range("C61").FormulaLocal = "=SI(E54<=E47;""Means: Results OK  |t| < to(5%) (case a - TRA 418/1)"";SI(ET(E54>E47;E54<E46);""Means probably different - Justification !  to(5%) < |t| < to(1%) (case b - TRA 418/1)"";""Means most probably different - Résults NOK |t| > to(1%) (case c TRA 418/1)""))"
    Else
    col = 2
        ToggleButton1.Caption = "Anglais"
        'Sheets("Infos").Range("B4").Value = "Usine :"
        'Sheets("Infos").Range("B5").Value = "Qualité :"
        'Sheets("Infos").Range("B7").Value = "Visite :"
        'Sheets("Infos").Range("B9").Value = "Diamètre :"
        'Sheets("results").Range("A4").Value = "Les résultats du test fait au cours de la visite"
        'Sheets("results").Range("A26").Value = "Moyenne"
        'Sheets("results").Range("A27").Value = "Ecart-type"
        'Sheets("results").Range("A29").Value = "Valeur" & Chr(10) & "caractéristique"
        'Sheets("results").Range("A30").Value = "Valeur" & Chr(10) & "caractéristique" & Chr(10) & "spécifiées"
        'Sheets("results").Range("A31").Value = "Condition:" & Chr(10) & "Moy. > Vcs"
        'Sheets("results").Range("A32").Value = "Condition: chaque" & Chr(10) & "Indiv. > Vcs"
        'Sheets("results").Range("A33").Value = "Condition:" & Chr(10) & "Moy. > Vcs+10" & Chr(10) & "et chaque" & Chr(10) & "indiv. > 0,95*Vcs"
        
        'Sheets("comparison").Range("A1").Value = "Méthode de comparaison pour les variances et les moyennes (TRA 418/1)"
        'Sheets("comparison").Range("A9").Value = "nbr exemple"
        'Sheets("comparison").Range("C8").Value = "Visite"
        'Sheets("comparison").Range("F8").Value = "Visite"
        'Sheets("comparison").Range("A40").Value = "moyenne ="
        'Sheets("comparison").Range("D40").Value = "moyenne ="
        'Sheets("comparison").Range("A41").Value = "écart-type ="
        'Sheets("comparison").Range("D41").Value = "écart-type ="
        'Sheets("comparison").Range("A42").Value = "valeur caract. ="
        'Sheets("comparison").Range("D42").Value = "valeur caract. ="
        'Sheets("comparison").Range("A43").Value = "désaccord ="
        'Sheets("comparison").Range("D43").Value = "désaccord ="
        'Sheets("comparison").Range("C57").FormulaLocal = "=SI(B49<=B45;""Variances: Résultats OK  F < Fo(5%) (case a - TRA 418/1)"";SI(ET(B49>B45;B49<B44);""Variances probablement différente - Justification !  Fo(5%) < F < Fo(1%) (case b - TRA 418/1)"";""Variances presque certainement différentes - Résultats NOK  F > Fo(1%) (case c - TRA 418/1)""))"
        'Sheets("comparison").Range("C58").FormulaLocal = "=SI(B54<=B47;""Moyenne: Resultats OK  |t| < to(5%) (case a - TRA 418/1)"";SI(ET(B54>B47;B54<B46);""Moyenne probablement différente - Justification !  to(5%) < |t| < to(1%) (case b - TRA 418/1)"";""Moyenne presque certainement différentes - Resultats NOK  |t| > to(1%) (case c - TRA 418/1)""))"
        'Sheets("comparison").Range("C60").FormulaLocal = "=SI(E49<=E45;""Variances: Résultats OK  F < Fo(5%) (case a - TRA 418/1)"";SI(ET(E49>E45;E49<E44);""Variances probablement différente - Justification !  Fo(5%) < F < Fo(1%) (case b - TRA 418/1)"";""Variances presque certainement différentes - Résultats NOK  F > Fo(1%) (case c - TRA 418/1)""))"
        'Sheets("comparison").Range("C61").FormulaLocal = "=SI(E54<=E47;""Moyenne: Resultats OK  |t| < to(5%) (case a - TRA 418/1)"";SI(ET(E54>E47;E54<E46);""Moyenne probablement différente - Justification !  to(5%) < |t| < to(1%) (case b - TRA 418/1)"";""Moyenne presque certainement différentes - Résultats NOK |t| > to(1%) (case c TRA 418/1)""))"
    End If
Set Trad = Sheets("Traduction")
    With Sheets("Infos")
        .Range("B4").Value = Trad.Cells(2, col).Value    '"Producer :"
        .Range("B5").Value = Trad.Cells(3, col).Value '"Quality :"
        .Range("B7").Value = Trad.Cells(4, col).Value '"Visit :"
        .Range("B9").Value = Trad.Cells(5, col).Value '"Diameter :"
    End With
    With Sheets("results")
        .Range("A4").Value = Trad.Cells(6, col).Value         '"Results of the test made during the visit"
        .Range("A26").Value = Trad.Cells(7, col).Value ' "Mean"
        .Range("A27").Value = Trad.Cells(8, col).Value '"Standard deviation"
        .Range("A29").Value = Trad.Cells(9, col).Value '"Caractéristique" & Chr(10) & "Value"
        .Range("A30").Value = Trad.Cells(10, col).Value '"Specified" & Chr(10) & "caractéristique" & Chr(10) & "Value"
        .Range("A31").Value = Trad.Cells(11, col).Value '"Condition:" & Chr(10) & "Mean. > Vcs"
        .Range("A32").Value = Trad.Cells(12, col).Value '"Condition: Each" & Chr(10) & "Indiv. > Vcs"
        .Range("A33").Value = Trad.Cells(13, col).Value '"Condition:" & Chr(10) & "Mean. > Vcs+10" & Chr(10) & "and each value" & Chr(10) & "indiv. > 0,95*Vcs"
    End With
    With Sheets("comparison")
        .Range("A1").Value = Trad.Cells(14, col).Value        '"Comparison method of the variances and the means (TRA 418/1)"
        .Range("A9").Value = Trad.Cells(15, col).Value '"nbr samples"
        .Range("C8").Value = Trad.Cells(4, col).Value ' "Visit"
        .Range("F8").Value = Trad.Cells(4, col).Value ' "Visit"
        .Range("A40").Value = Trad.Cells(7, col).Value & " =" '"mean ="
        .Range("D40").Value = Trad.Cells(7, col).Value & " =" '"mean ="
        .Range("A41").Value = Trad.Cells(8, col).Value & " =" '"standard deviation ="
        .Range("D41").Value = Trad.Cells(8, col).Value & " =" '"standard deviation ="
        .Range("A42").Value = Trad.Cells(16, col).Value & " =" '"caract. value ="
        .Range("D42").Value = Trad.Cells(16, col).Value & " =" '"caract. value ="
        .Range("A43").Value = Trad.Cells(17, col).Value & " =" '"variance ="
        .Range("D43").Value = Trad.Cells(17, col).Value & " =" '"variance ="
        .Range("C57").FormulaLocal = "=SI(B49<=B45;"" & Trad.Cells(18, col).Value & "";SI(ET(B49>B45;B49<B44);"" & Trad.Cells(19, col).Value & "";"" & Trad.Cells(20, col).Value & ""))"
        .Range("C58").FormulaLocal = "=SI(B54<=B47;" & Trad.Cells(21, col).Value & ";SI(ET(B54>B47;B54<B46);" & Trad.Cells(22, col).Value & ";" & Trad.Cells(23, col).Value & "))"
        .Range("C60").FormulaLocal = "=SI(E49<=E45;" & Trad.Cells(24, col).Value & ";SI(ET(E49>E45;E49<E44);" & Trad.Cells(25, col).Value & ";" & Trad.Cells(26, col).Value & "))"
        .Range("C61").FormulaLocal = "=SI(E54<=E47;" & Trad.Cells(27, col).Value & ";SI(ET(E54>E47;E54<E46);" & Trad.Cells(28, col).Value & ";" & Trad.Cells(29, col).Value & "))"
    End With
    
    
Sheets("comparison").Protect
Sheets("results").Protect
Application.ScreenUpdating = True
End Sub

de plus les Range("B4")..... peuvent s'écrire [B4]... ça éclaire encore un peu
à+
 
Vote positif 0 Vote négatif
john

john

XLDnaute Impliqué
Re : insérer une formule par vba

Merci pour ta solution, mais apparemment ça ne marche pas :=(

Dans la cellule où la formule doit se mettre j'obtiens ceci :
=SI(B49<=B45;" & Trad.Cells(18, col).Value & ";SI(ET(B49>B45;B49<B44);" & Trad.Cells(19, col).Value & ";" & Trad.Cells(20, col).Value & "))
Alors qu'à la place de trad.cells(18,col).value je devrai avoir le texte en Français ou en Anglais !! et ensuite j'ai une erreur qui n'est pas juste :=) lolll il me mets "erreur définie par l'application ou par l'objet" :=(

Je cherche encore pour essayer de trouver, mais au cas où tu trouves avant moi ...

Encore merci de t'être penché sur mon problème.

Bien à toi.

John
 
Vote positif 0 Vote négatif
john

john

XLDnaute Impliqué
Re : insérer une formule par vba

Ok j'ai trouvé :=)

Il ne faut pas doubler mais tripler les "
donc à la place de .Range("C57").FormulaLocal = "=SI(B49<=B45;"" & Trad.Cells(18, col).Value & "";SI(ET(B49>B45;B49<B44);"" & Trad.Cells(19, col).Value & "";"" & Trad.Cells(20, col).Value & ""))"
il faut mettre .Range("C57").FormulaLocal = "=SI(B49<=B45;""" & Trad.Cells(18, col).Value & """;SI(ET(B49>B45;B49<B44);""" & Trad.Cells(19, col).Value & """;""" & Trad.Cells(20, col).Value & """))"

Encore merci pour ton aide :=)

Bonne fin de journée.

John
 
Vote positif 0 Vote négatif

Discussions similaires

tactic6
  • Question
XL 2016 Aide pour userform (sujet clos)
Réponses
8
Affichages
180
tactic6
tactic6
M
  • Question
Microsoft 365 Macro VBA supprimer une colonne
Réponses
5
Affichages
111
marie3107
M
Z
  • Question
XL 2021 VBA Prélèvement d'une donnée si une valeur recherchée est identique
Réponses
3
Affichages
197
ZiM
Z
Mr.Adrien
  • Question
Microsoft 365 Cherche une personne pouvant m'aider à transformer des codes VBA pour Google Sheet
Réponses
6
Affichages
658
bruderez
B
S
  • Question
XL 2010 Intégrer une conversion date xx en 20 xx dans macro vba excel
Réponses
9
Affichages
787
Deadpool_CC
Deadpool_CC
Usine à gaz
  • Résolu(e)
Microsoft 365 traduire une formule en code vba
Réponses
3
Affichages
736
Usine à gaz
Usine à gaz
D
  • Question
Microsoft 365 vba - appliquer un formula local sur une plage filtrée
Réponses
2
Affichages
446
douguy
D
C
  • Résolu(e)
XL 2010 supprimer une ligne sur d'autre feuilles en prenant référence sur une feuille journal
Réponses
3
Affichages
412
ccia
C
M
  • Résolu(e)
XL 2013 formule vba pour realiser une facture automatique
Réponses
9
Affichages
2 K
Phil69970
Phil69970
J
  • Résolu(e)
XL 2016 Aide Macro VBA - Reporter valeurs Feuille 1 dans une autre feuille 2 à partir d'une certaine cellule
Réponses
9
Affichages
4 K
jo77
J

Membres actuellement en ligne

9 membres et 76 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
312 361
Messages
2 087 617
Membres
103 607
dernier inscrit
lolo1970