Discussion :

[marcko72]

bonjour
je suis sous excel 2007
étant nouveau sur le site je viens vers vous car je suis a bout d 'idées
J'ai un module avec une fonction et lots de la recopie dans la feuille excel 2 mots reste en minuscule alors qu'ils sont tous les 2 écrit en majuscule .Cela empêche la bonne marche de la formule
voici je que j ai écris dans mon module

Code :

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

1
2
Range("k3").Select
ActiveCell.Formula = "=SUMPRODUCT((ANNEE(B2:B76)&MOIS(B2:B76)=""2018""&""1"")*1)"

que la formule s'inscris dans la feuille excel

Code :

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

=SOMMEPROD((annee(B2:B76)&mois(B2:B76)="2018"&"1")*1)

annee et mois sont en minuscule et cela ne fonctionne pas

pouvez vous m'aider car la je ne comprends plus rien
Merci
marc

[eriiic]

Bonjour,

avec .Formula tout doit être en anglais.
Tu n'as pas traduit les fonctions Annee et Mois.

eric

[marcko72]

Merci
il fallait le savoir
Marc

[marcko72]

bonjour
je suis en excel 2007
je suis arrivé a faire se que je voulais , mais je voudrais aller plus loin

Code :

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

1
2
Range("k2").Select
     ActiveCell.Formula = "=SUMPRODUCT((C2:C104500=""Bat_BB"")*(year(B2:B104500)&Month(B2:B104500)=""2018""&" & a & ")*1)"

avec la formule ci dessus je copie de ma macro a ma page excel une formule , est il possible de l’améliorer et simple faire le calcul en vba et ne mettre que le résultat

si quelqu 'un peu me venir en aide se serra super

marc

[eriiic]

Bonjour,

pense toujours à éviter .select lorsque ce n'est pas nécessaire (99% des cas). C'est inutilement chronophage.

Code :

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

1
2
3
4
with Range("k2")
  .Formula = "=SUMPRODUCT((C2:C104500=""Bat_BB"")*(year(B2:B104500)&Month(B2:B104500)=""2018""&" & a & ")*1)"
  .value=.value
End With

Il est également recommandé de désigner la feuille à moins de vouloir la feuille active :
with sheets("Feuil1").Range("k2")
eric

[marcko72]

merci eriiic ,
je fait pas a pas ma macro d’où mes questions

je n arrive par a inclure ma variable de ligne par la variable "lig" comme j ai pu le faire avec l année 2018 et 1
merci de ton aide.

Code :

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

1
2
3
4
5
6
7
8
9
10
Sheets("Archive").Activate
lig = Range("c" & Rows.Count).End(xlUp).Row
 
a = 1
b = 2018
 
With Sheets("Archive").Range("k2")
  .Formula = "=SUMPRODUCT((C2:C104500=""Bat_C"")*(year(B2:B104500)&Month(B2:B104500)=" & b & " & " & a & ")*1)"
  .Value = .Value
End With