Vba
AHTOUATI
-
AHTOUATI -
AHTOUATI -
Bonjour, je voudrai traduire cette formule Excel en VBA et ça n'a pas marché
En Excel est :
=SOMME.SI.ENS (B1:B18;A1:A18;">="&D4;A1:A18;"<="&E4)
colonne B se trouve les montants
colonne A se trouve les dates
Cellule D4 se trouve la date début
Cellule E4 se trouve la date fin
Cellule F4 se trouve le montant trouvé
En vba c'est :
TXTMONTANT = Application.WorksheetFunction.CountIfs(Columns("b"), Columns("a"), ">=" & CDate(TXTDATEDEBUT), Columns("a"), "<=" & CDate(TXTDATEFIN))
colonne B se trouve les montants
colonne A se trouve les dates
textbox 1 se trouve la date debut (appelée TXTDATEDEBUT)
textbox 2 se trouve la date fin (appelée TXTDATEFIN)
textbox 3 se trouve le montant trouvé (appelé TXTMONTANT)
alors que cette formule ça donne un débogage et je n'arrive pas à la maitrisée.
Merci d'avance.
En Excel est :
=SOMME.SI.ENS (B1:B18;A1:A18;">="&D4;A1:A18;"<="&E4)
colonne B se trouve les montants
colonne A se trouve les dates
Cellule D4 se trouve la date début
Cellule E4 se trouve la date fin
Cellule F4 se trouve le montant trouvé
En vba c'est :
TXTMONTANT = Application.WorksheetFunction.CountIfs(Columns("b"), Columns("a"), ">=" & CDate(TXTDATEDEBUT), Columns("a"), "<=" & CDate(TXTDATEFIN))
colonne B se trouve les montants
colonne A se trouve les dates
textbox 1 se trouve la date debut (appelée TXTDATEDEBUT)
textbox 2 se trouve la date fin (appelée TXTDATEFIN)
textbox 3 se trouve le montant trouvé (appelé TXTMONTANT)
alors que cette formule ça donne un débogage et je n'arrive pas à la maitrisée.
Merci d'avance.
1 réponse
Bonjour,
Essaie avec
A+
Essaie avec
TXTMONTANT = Application.SumIfs(Range("b2:b62"), Range("a2:a62"), ">=" & CLng(CDate(TXTDATEDEBUT)), Range("a2:a62"), "<=" & CLng(CDate(TXTDATEFIN)))
A+
AHTOUATI
Mr Gyrus j'ai essaié et ça bien marché je vous remercie tant qu'il y a la vie ainsi que le nombre des étoiles et plus de AH TOUATI
