Discussion :

[Maiden002]

Bonjour,

j'ai un petit probléme avec une formule que je voudrai intégrer en VBA,

Voici mon code :

Code :

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

Worksheets("Test progress").Range("G" & i).Formula = "=SOMMEPROD((B14:B150=" & feuille & ")*(ESTNUM(J14:J150)))"

En faite "feuille" est une de mes variables, elle cettes formules doit me servir pour plusieurs valeur.

Ma formule devrait etre comme sa, mais CT10 est en faite la valeur de feuille donc sa peu etre CT01, CT02, etc sa change tout le temps.

Code :

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

=SOMMEPROD((B14:B150="CT10")*(ESTNUM(J14:J150)))

Mon probléme c'est que le CT10 doit etre entre guillemet, mais dans le code VB les guillemet serve a selectionner la formule a intégrer, donc je ne peux pas retrouver mon résultat a cette formule

[ouisansdoute]

re,

Si ce n'est qu'une question de guillemets, utilise Chr(34) et modifie ton code de la façon suivante :

Code :

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

Worksheets("Test progress").Range("G" & i).Formula = "=SOMMEPROD((B14:B150=" & Chr(34) & feuille & Chr(34) & ")*(ESTNUM(J14:J150)))"

Une autre piste serait de stocker ta variable dans une cellule (par exemple en Z1) et ton code pourrait être :

Code :

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

    Worksheets("Test progress").Range("G" & i).Formula = "=SOMMEPROD((B14:B150=Z1)*(ESTNUM(J14:J150)))"

Si non, comment est affectée la valeur de la variable feuille ?

[Maiden002]

remarque oui c'est pas bête étant donné que dans une case auparavant il y a la valeur de cette variable.

je vais essayer et je te tiens au courant.

Merci

[djib29]

Voici la formule modifiée:

Code :

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

Worksheets("Test progress").Range("G" & i).Formula = "=SOMMEPROD((B14:B150=""" & feuille & """)*(ESTNUM(J14:J150)))"

Remarque : vous avez peut-être déjà reçu un message avec cette réponse que j'ai publiée il y a 15 minutes. Je l'ai supprimée (logiquement) croyant que "ouisansdoute" avait donnée la réponse (pendant que je rédigeais la mienne). J'ai constaté que sa réponse était différente donc je remets la mienne (sans avoir pu annuler la suppression logique).

[Maiden002]

Merci a vous deux, celle de Char(34) marche et celle avec les trois guillemet aussi.

Cependant, quand elle est créer, dans la case il y a marquer #NOM?, par contre si je me positionne sur la case pour modifier et que je tape ENTRER sa marche.

C'est comme si il me mettai la formule mais sans la calculer.

[wilfried_42]

bonjour à tous

un autre problème : Formula demande une écriture des formules en anglais...
.formula = "=SOMMEPRODUCT.........."
sinon utiliser Formulalocal à la place...

[Maiden002]

Donc je devrai mettre ceci ??

Code :

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

Worksheets("Test progress").Range("G" & i).Formula = "=SOMMEPRODUCT((B14:B150=""" & feuille & """)*(ESTNUM(J14:J150)))"

Cela va t'il régler le probléme du #NOM?.

[ouisansdoute]

Si tout doit être en anglais, la fonction ESTNUM se traduit par ISNUMBER.
Ci-joint un fichier de traduction des fonctions
Pièce jointe 47922

[kiki29]

Salut, ne pas oublier

Code :

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

FormulaLocal

[Maiden002]

Je vous montre un bout de mon code.

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
 Worksheets("Test progress").Range("D" & i).EntireRow.Insert
                            'Ajoute une ligne dans la feuille "Test progress"
                            Worksheets("Test progress").Range("D" & i & ":H" & i).Borders.LineStyle = xlContinuous
                            'Ajoute les bordures précédent
                            Worksheets("Test progress").Range("D" & i & ":H" & i).Font.ColorIndex = 1
                            'Permet de mettre le texte en noir
                            Worksheets("Test progress").Range("D" & i & ":H" & i).Interior.ColorIndex = 35
                            'Permet de mettre la couleur vert clair en fond
                            Worksheets("Test progress").Range("D" & i & ":H" & i).HorizontalAlignment = xlCenter
                            'Permet de centrer les valeurs
                            Worksheets("Test progress").Range("D" & i).Value = feuille
                            'Ajoute la valeur de "feuille" dans la case D
                            Worksheets("Test progress").Range("E" & i).Value = description
                            'Ajoute la valeur "description" dans la case E
                            Worksheets("Test progress").Range("F" & i).Formula = "=NB.SI(B:B='" & feuille & "')"
                            Worksheets("Test progress").Range("G" & i).Formula = "=SOMMEPROD((B14:B150=""" & feuille & """)*(ESTNUM(J14:J150)))"
                            Worksheets("Test progress").Range("H" & i).Formula = "=SOMMEPROD((B14:B150=""" & feuille & """)*(J14:J150=""""))"

Il y a juste pour les deux derniére formule que au lieu d'avoir le résultat j'ai #NOM? , alors que si aprés je me positionne dans la case approprié et que je fais ENTRER et bien j'ai bien le résultat.

N'y a t-il pas une formule permettant de simulé la touche ENTRER ??