Transformer un calcul en macro

Résolu
jack2125 Messages postés 416 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 7 février 2025 - Modifié le 4 févr. 2025 à 13:54
danielc0 Messages postés 1462 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 7 février 2025 - 5 févr. 2025 à 16:07

bonjour a tous

est il possible de transformer le calcul qui est dans le fichier ci dessous e macro

il faut remettre egal...la reponse doit se dérouler en colonne h3:h10000

 https://www.cjoint.com/c/OBemVGpu8uD

merci d'avance


A voir également:

5 réponses

danielc0 Messages postés 1462 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 7 février 2025 175
4 févr. 2025 à 15:19

... pour une formule :

Sub test2()
Range("H3").FormulaLocal = "=NB.SI($AU$3:$BV$3;J3)*NB.SI(AB3;"">0"")*NB.SI(AB3;""<5"")*NB.SI($AM$4:$CL$4;F3)*NB.SI($N$5;""<> ""&A3)*NB.SI($N$4;""<> ""&A3)*NB.SI($N$6;""<> ""&A3)*NB.SI($N$7;""<> ""&A3)" & _
"*NB.SI($N$8;""<> ""&A3)*NB.SI($O$4;""<> ""&B3)*NB.SI($O$5;""<> ""&B3)*NB.SI($O$6;""<> ""&B3)*NB.SI($O$7;""<> ""&B3)*NB.SI($O$8;""<> ""&B3)*NB.SI($P$4;""<> ""&C3)*NB.SI($P$5;""<> ""&C3)*NB.SI($P$6;""<> ""&C3)" & _
"*NB.SI($P$7;""<> ""&C3)*NB.SI($P$8;""<> ""&C3)*NB.SI($Q$4;""<> ""&D3)*NB.SI($Q$5;""<> ""&D3)*NB.SI($Q$6;""<> ""&D3)*NB.SI($Q$7;""<> ""&D3)*NB.SI($R$4;""<> ""&E3)*NB.SI($R$5;""<> ""&E3)*NB.SI($R$6;""<> ""&E3)*NB.SI($R$7;""<> ""&E3)*NB.SI($R$8;""<> ""&E3)"
Range("H3:H10000").FillDown
End Sub

Pour une valeur :

Sub test2()
Range("H3").FormulaLocal = "=NB.SI($AU$3:$BV$3;J3)*NB.SI(AB3;"">0"")*NB.SI(AB3;""<5"")*NB.SI($AM$4:$CL$4;F3)*NB.SI($N$5;""<> ""&A3)*NB.SI($N$4;""<> ""&A3)*NB.SI($N$6;""<> ""&A3)*NB.SI($N$7;""<> ""&A3)" & _
"*NB.SI($N$8;""<> ""&A3)*NB.SI($O$4;""<> ""&B3)*NB.SI($O$5;""<> ""&B3)*NB.SI($O$6;""<> ""&B3)*NB.SI($O$7;""<> ""&B3)*NB.SI($O$8;""<> ""&B3)*NB.SI($P$4;""<> ""&C3)*NB.SI($P$5;""<> ""&C3)*NB.SI($P$6;""<> ""&C3)" & _
"*NB.SI($P$7;""<> ""&C3)*NB.SI($P$8;""<> ""&C3)*NB.SI($Q$4;""<> ""&D3)*NB.SI($Q$5;""<> ""&D3)*NB.SI($Q$6;""<> ""&D3)*NB.SI($Q$7;""<> ""&D3)*NB.SI($R$4;""<> ""&E3)*NB.SI($R$5;""<> ""&E3)*NB.SI($R$6;""<> ""&E3)*NB.SI($R$7;""<> ""&E3)*NB.SI($R$8;""<> ""&E3)"
Range("H3:H10000").FillDown
Range("H3:H10000").Value = Range("H3:H10000").Value
End Sub

Daniel


1
jack2125 Messages postés 416 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 7 février 2025
4 févr. 2025 à 16:14

re

c'est quoi la différence entre les 2

0
danielc0 Messages postés 1462 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 7 février 2025 175 > jack2125 Messages postés 416 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 7 février 2025
4 févr. 2025 à 17:25

Dans le premier cas, il y a  des formules dans les cellules et dans le second, le résultat des formules.

Daniel

0
jack2125 Messages postés 416 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 7 février 2025
Modifié le 5 févr. 2025 à 15:28

BJR

J'ai voulu rajouter cette ligne mais le débogueur me bloque? erreur d'execution 1003

"*NB.SI($AW3;""=0"")*NB.SI(AX3;""=0"")*NB.SI(AY3;""=0"")*NB.SI(BA3;""=0"")*NB.SI(BB3;""=0"")*NB.SI(BC3;""=0"")*NB.SI(BD3;""=0"")*NB.SI(BE3;""=0"")*NB.SI(BF3;""=0"")*NB.SI(BG3;""=0"")*NB.SI(BH3;""=0"")*NB.SI(BI3;""=0"")*NB.SI(BJ3;""=0"")*NB.SI(BK3;""=0"")*NB.SI(BL3;""=0"")*NB.SI(BM3;""=0"")*NB.SI(BN3;""=0"")*NB.SI(AI3;""=0"")*NB.SI(G3;"">0"")*NB.SI(G3;""<5"")*NB.SI(Y3;"">0"")*NB.SI(EH3"">0"")"

l'origine était

*NB.SI.ENS($AW3;"=0";AX3;"=0";AY3;"=0";BA3;"=0";BB3;"=0";BC3;"=0";BD3;"=0";BE3;"=0";BF3;"=0";BG3;"=0";BH3;"=0";BI3;"=0";BJ3;"=0";BK3;"=0";BL3;"=0";BM3;"=0";BN3;"=0";AI3;"=0";G3;">0";G3;"<5";Y3;">0")

auquel j'ajoute NB.SI(EH3">0")

je ne trouve pas le problème

peux tu m'aider

merci

0
danielc0 Messages postés 1462 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 7 février 2025 175 > jack2125 Messages postés 416 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 7 février 2025
5 févr. 2025 à 16:07

Bonjour,

L'erreur était dans le dernier NB.SI :

NB.SI(EH3"">0"")

au lieu de :

NB.SI(EH3;"">0"")

Sub test2()
  Range("H3").FormulaLocal = "=NB.SI($AU$3:$BV$3;J3)*NB.SI(AB3;"">0"")*NB.SI(AB3;""<5"")*NB.SI($AM$4:$CL$4;F3)*NB.SI($N$5;""<> ""&A3)*NB.SI($N$4;""<> ""&A3)*NB.SI($N$6;""<> ""&A3)*NB.SI($N$7;""<> ""&A3)" & _
  "*NB.SI($N$8;""<> ""&A3)*NB.SI($O$4;""<> ""&B3)*NB.SI($O$5;""<> ""&B3)*NB.SI($O$6;""<> ""&B3)*NB.SI($O$7;""<> ""&B3)*NB.SI($O$8;""<> ""&B3)*NB.SI($P$4;""<> ""&C3)*NB.SI($P$5;""<> ""&C3)*NB.SI($P$6;""<> ""&C3)" & _
  "*NB.SI($P$7;""<> ""&C3)*NB.SI($P$8;""<> ""&C3)*NB.SI($Q$4;""<> ""&D3)*NB.SI($Q$5;""<> ""&D3)*NB.SI($Q$6;""<> ""&D3)*NB.SI($Q$7;""<> ""&D3)*NB.SI($R$4;""<> ""&E3)*NB.SI($R$5;""<> ""&E3)*NB.SI($R$6;""<> ""&E3)" & _
  "*NB.SI($R$7;""<> ""&E3)*NB.SI($R$8;""<> ""&E3)*NB.SI($AW3;""=0"")*NB.SI(AX3;""=0"")*NB.SI(AY3;""=0"")*NB.SI(BA3;""=0"")*NB.SI(BB3;""=0"")*NB.SI(BC3;""=0"")*NB.SI(BD3;""=0"")*NB.SI(BE3;""=0"")" & _
  "*NB.SI(BF3;""=0"")*NB.SI(BG3;""=0"")*NB.SI(BH3;""=0"")*NB.SI(BI3;""=0"")*NB.SI(BJ3;""=0"")*NB.SI(BK3;""=0"")*NB.SI(BL3;""=0"")*NB.SI(BM3;""=0"")*NB.SI(BN3;""=0"")*NB.SI(AI3;""=0"")" & _
  "*NB.SI(G3;"">0"")*NB.SI(G3;""<5"")*NB.SI(Y3;"">0"")*NB.SI(EH3;"">0"")"
  Range("H3:H10000").FillDown
  Range("H3:H10000").Value = Range("H3:H10000").Value
End Sub

Daniel

0
danielc0 Messages postés 1462 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 7 février 2025 175
4 févr. 2025 à 14:15

Bonjour,

Est-ce que tu veux un résultat ou une formule en H3:H10000 ?

Daniel


0
jack2125 Messages postés 416 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 7 février 2025
4 févr. 2025 à 16:15

je voudrais 1 dans chaque bonne ligne en H 

0
jack2125 Messages postés 416 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 7 février 2025
4 févr. 2025 à 17:59

ok mais est il possible de mettre "1" dans "h" si bon


0
danielc0 Messages postés 1462 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 7 février 2025 175
4 févr. 2025 à 18:03

C'est la seconde macro.

Daniel

0
jack2125 Messages postés 416 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 7 février 2025
4 févr. 2025 à 18:34

ca ne met rien!

ai essayer...

merci


0
danielc0 Messages postés 1462 Date d'inscription mardi 5 juin 2018 Statut Membre Dernière intervention 7 février 2025 175
4 févr. 2025 à 18:38

Je ne peux pas vérifier, je n'ai pas les données

Daniel

0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
jack2125 Messages postés 416 Date d'inscription jeudi 5 septembre 2019 Statut Membre Dernière intervention 7 février 2025
5 févr. 2025 à 12:04

excuse moi c'est tout bon un grand temps de gagner et encore merci

0