Discussion :

[Phifou]

Bonsoir à tous,

je code un outils qui doit pouvoir m'insérer utiliser des valeurs depuis d'autres onglets (nommés) à l'aide de formule. C'est là que ça bloque.
Voici le code :

Code :

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

1
2
3
4
For i = 1 To NbrPieces
        Formule = "COUNTIF('" & NFEntree & "'!B3:AD3;" & Chr(34) & "TRUE" & Chr(34) & ")"
        Worksheets(NFDonnees).Cells(4, 4 * i - 1).Formula = "=" & Formule
Next

J'ai un problème à la troisième ligne. NFEntree est un string du nom d'une feuille.
L'erreur donnée : "n° 1004 - Application-defined or object-defined error"

L'idée ensuite est de pouvoir faire varier dans ma boucle for les lignes de la formule à savoir prendre en ligne 4 par exemple au lieu de 3 ici, mais ça, si le reste fonctionne ça devrait passer.

Merci par avance de votre aide !!!


Philippe

[pgz]

Bonsoir.

Tu peux essayer de simplifier :

Code :

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

formule = "COUNTIF('" & NFEntree & "'!B3:AD3;TRUE)"

Cordialement,

PGZ

[Phifou]

Merci de ta réponse, hélas, même en simplifiant ça ne fonctionne pas...

J'ai essayé ça :

Code :

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

1
2
3
4
5
6
7
8
9
Worksheets(NFDonnees).Cells(4, 4 * i - 1) = "=COUNTIF(" & NFEntree & "!B3:AD3;" & Chr(34) & "TRUE" & Chr(34) & ")"
'ou
Worksheets(NFDonnees).Cells(4, 4 * i - 1) = "=COUNTIF('" & NFEntree & "'!B3:AD3;TRUE)"
'ou encore
Worksheets(8).Cells(4, 4 * i - 1).FormulaR1C1 = "=COUNTIF(B3:AD3;" & Chr(34) & "TRUE" & Chr(34) & ")"
'et
Worksheets(8).Cells(4, 4 * i - 1).Formula = "=COUNTIF(B3:AD3;TRUE)"
'et encore
Worksheets(8).Range("C4").Formula = "=COUNTIF(B3:AD3;TRUE)"

Et rien ne fonctionne, ce qui me fait dire qu'il pourrait y avoir un paramètre mal renseigné dans l'éditeur... Avez-vous une idée ?
Je cherche de mon côté, mais suis preneur de vos idées.

[EDIT]
étrange, je viens de faire un essai ainsi :

Code :

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

Worksheets(8).Range("C4").FormulaLocal = "=COUNTIF(B3:AD3;TRUE)"

Et ça marche...
Pourtant ma formule est déjà en anglais...
Ce pourrait-il être lié à la langue du système d'exploitation qui est elle en Français -alors que Office est en Anglais- ??? (enfin je ne vois pas le rapport...)
De plus, en essayant ainsi :

Code :

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

Worksheets(8).Range("C4").FormulaLocal = "=COUNTIF('" & NFEntree & "'!B3:AD3;TRUE)"

ça ne fonctionne pas...

[/EDIT]

[pgz]

Bonjour.

Et oui ! Il manquait qqc... Tu peux essayer :

Code :

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

Worksheets(8).Range("C4").Formula = "=COUNTIF('" & NFEntree & "'!B3:AD3;TRUE)"

Si ca ne marche toujours pas, tu fais

Code :

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

Debug.Print "=COUNTIF('" & NFEntree & "'!B3:AD3;TRUE)"

Et tu regardes ce que cela donne dans la fenêtre d'exécution.

Cordialement,

PGZ