[RESOLU] VBA SUM.IF : Critère date variable

[ArthurJ]

Bonjour,

J'essaie de faire rentrer dans la dernière case vide de ma colonne H une formule SUMIF, mais j'ai un problème avec mon critère :

C'est une date (format jj/mm/aaaa), précédemment rentrée par l'utilisateur final du code, dans une TextBox1 de mon programme et située dans la cellule A de la même ligne.
-> J'ai essayé diverses lignes de code mais j'ai à chaque fois des problèmes de types, et je suis bloqué au code ci-dessous :

Dim jour As String
jour = "CDate(TextBox1)"
Range("H65536").End(xlUp).Offset(1, 0).Formula = "=SUMIF($A$4:$A$20," = " & jour & " * ",$F$4:$F$20)"

-> S'il n'y a pas de solution , est-il possible de mettre directement en critère la valeur de la cellule A ( sachant que la date y est rentrée précédemment dans le programme ?

Merci d'avance pour votre aide,

Arthur

 

[Paf]

Re : VBA SUM.IF : Critère date variable

Bonjour

essayer:

Range("H65536").End(xlUp).Offset(1, 0).Formula = "=SUMIF($A$4:$A$20,""" & jour & """,$F$4:$F$20)"

A+

 

[Bougla972]

Re : VBA SUM.IF : Critère date variable

Bonjour Arthur, le forum,

D'après mon expérience sur les SUMIF(S), il te faudrait sans doute convertir la date saisie en TextBox1 en format US (mm/jj/aaaa).

Sinon, un petit bout de fichier serait utile !

A+

 

[ArthurJ]

Re : VBA SUM.IF : Critère date variable

Merci pour vos réponses,

Paf : Ta formule enlève mon erreur de type mais la formule ne marche pas puisque le critère est la recherche de "TextBox1.Value" alors que je veux le contenu de cette textbox

Je vous joins un bout de programme

Le but est d'afficher dans la colonne total la somme des durées ( fin-début) avec comme critère la date située en A : Je veux une somme journalière en gros

Merci beaucoup pour vos réponses

 

[Paf]

Re : VBA SUM.IF : Critère date variable

Re,

je n'avais pas fait attention au contenu de la variable jour.

il vaudrait mieux l'écrire sans " : jour = CDate(TextBox1).

Je regarde le fichier

A+

 

[ArthurJ]

Re : VBA SUM.IF : Critère date variable

Re Paf,

Ne t'embête pas, ça marche avec ta modification !

Mille mercis !

 

[Paf]

Re : VBA SUM.IF : Critère date variable

re,

jour = CDate(TextBox1) ou jour = TextBox1 les deux fonctionnent

Attention, si on saisit au delà de la ligne20, adapter ( ou "dynamiser") les plages dans :
Range("H65536").End(xlUp).Offset(1, 0).Formula = "=SUMIF($A$4:$A$20,""" & jour & """,$F$4:$F$20)"

A+