Discussion :

[xavion]

Bonjour,

Je vous sollicite encore pour un nouveau problème... Merci encore à tous ceux qui m'ont aidé jusqu'à maintenant.

Le code présent est mon ambition : il me copie D & ligne et E & ligne en critères alors que je voudrai plus quelque chose du style :
D2 E2
D3 E3
D4 E4

Code :

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

Range("G" & ligne).FormulaLocal = "=NB.SI.ENS(Echecs!A2:A6009;D& ligne;Echecs!B2:B6009;E & ligne)"

Avez-vous des idées? Merci

[papouclo]

Bonjour,

La cellule où doit "fonctionner" la formule et les cellules servant de critères étant sur une même ligne, j'aurais tendance à écrire dans une cellule du classeur :

Code :

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

=NB.SI.ENS($A$2:$A$6009;INDIRECT("D"&LIGNE());$B$2:$B$6009;INDIRECT("E"&LIGNE()))

Si la ligne est indiquée dans du code par une variable nommée ligne , on peut sans doute écrire aussi :

Code :

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

=NB.SI.ENS($A$2:$A$6009;INDIRECT("D"& ligne);$B$2:$B$6009;INDIRECT("E"& ligne))

Cordialement
Claude

[xavion]

Bonjour Papouclo,

Cela ne fonctionne malheureusement pas comme je le désire. Je n'arrive pas à mettre de guillemets dans la syntaxe de la formule. Je voudrais avoir dans la formule D3, D4, D5 etc...

[AlainTech]

Bonjour,

Et comme ça?

Code :

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

Range("G" & ligne).FormulaLocal = "=NB.SI.ENS(Echecs!A2:A6009;D" & ligne & ";Echecs!B2:B6009;E" & ligne & ")"