synthèse de données

[bjh]

Bonsoir @ toutes & tous
j'ai un gros fichier de données
mon problème c'est que je voudrai en faire la synthèse sans passé par une formule type: nb.si, cela rame de trop
donc quelqu'un aurai t il une solution plus fluide via une macro
MERCI
je poste un exemple car je ne suis pas toujours trés clair
BYE
BJH

 

[Monique]

Bonjour,

Une formule SommeProd, nommée "Form"
Par l'enregistreur de macros :
1 macro pour coller "=Form" sur les 49 x 49 cellules
1 macro pour effacer
Un bouton pour chacune des macros.

 

[CBernardT]

Bonjour Bjh, Monique et le Forum

Un bouton de lancement du cumul des citations des couples de nombres avec l'effacement en début de procédure du tableau cumuls.

Une macro qui réalise les cumuls en 22 secondes sur ma machine. J'ai même mis un compteur pour voir l'avancement.

Un code faisant appel à un tableau dynamique irait certainement plus vite ?

Cordialement

CBernardT

 

[bjh]

à Monique & CBernardT
Franchement vous êtes trop fort
vos 2 propositions sont extrèment interressantes
j'aurai une dernière question
vous êtes de véritables autodidactes ou avez vous suivi une formation sur excel et VBA car moi j'essai avec différents bouquins mais certains sont lourds à digérer
en tous cas MERCI @ vous 2
BJH

 

[CBernardT]

Re

Pour ma part, c'est les deux, une formation générale d'informatique et une formation autodidacte sur Excel grâce en partie à ce forum auquel j'essaye de rendre ce qu'il m'a donné depuis un an et demi.

Salut

CBernardT

 

[Monique]

Re,

Pour moi, c'est aucune formation.
Aucun bouquin à digérer.
Et aux macros, je n'y comprends rien.
Les macros de ton fichier sont faites avec l'enregistreur,
mais il a fallu que je fasse 3 fois la 1ère et 2 fois la 2ème pour y arriver.

 

[CBernardT]

Re

Pour Monique,

Tu m'ouvres de nouveaux horizons avec la formule "Form".

Je me suis permis de réduire tes deux macros en une seule très rapide.

Sub EffacerCompter()
'Effacement
Sheets("Feuil1").Range("C25:AY73").ClearContents
'Mise en place des formules
Sheets("Feuil1").Range("C25:AY73").FormulaR1C1 = "=Form"
End Sub


Salut

CBernardT

 

[Monique]

Re,

Copiée, collée, adoptée.
Merci

 

[yallouz]

Bonjour,
Pourquoi ne pas utiliser une formule matricielle
selectionner les cellules C25 à AY73 et saisir la formule suivante:
=SI(NB.SI(B213;B25:B73&" "&C24:AY24)>0;NB.SI(B213;B25:B73&" "&C24:AY24);"")
valider ensuite par ctrl Maj entrée pour avoir la formule sous forme de matrice.
{=SI(NB.SI(B213;B25:B73&" "&C24:AY24)>0;NB.SI(B213;B25:B73&" "&C24:AY24);"")}
Il me semble que dans ce cas le résultat est immédiat me trompe -je ?