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
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
A voir également:
- Transformer un calcul en macro
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Calcul moyenne excel - Guide
- Macro word - Guide
- Transformer majuscule en minuscule word - Guide
- Transformer image en icone - Guide
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
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
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
4 févr. 2025 à 14:15
Bonjour,
Est-ce que tu veux un résultat ou une formule en H3:H10000 ?
Daniel
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
4 févr. 2025 à 16:15
je voudrais 1 dans chaque bonne ligne en H
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
4 févr. 2025 à 17:59
ok mais est il possible de mettre "1" dans "h" si bon
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
4 févr. 2025 à 18:03
C'est la seconde macro.
Daniel
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
4 févr. 2025 à 18:34
ca ne met rien!
ai essayer...
merci
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
4 févr. 2025 à 18:38
Je ne peux pas vérifier, je n'ai pas les données
Daniel
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
5 févr. 2025 à 12:04
excuse moi c'est tout bon un grand temps de gagner et encore merci
4 févr. 2025 à 16:14
re
c'est quoi la différence entre les 2
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
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
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"")
Daniel