Discussion :

[Eskalibur]

Bonjour à tous !

J'ai encore besoin de vos lumière !
J'aimerai trouver la plus petite date et la plus grande date dans un intervalle donnée et calculer le nombre de jour ouvrés.
Je sais parfaitement le faire sur excel :

=min(intervalle)
=max(intervalle)
=NB.JOURS.OUVRES(min;max)

Mais je ne trouve rien pour le faire en VBA, et j'aimerai bien le faire
C'est possible ?

[Marc-L]

Bonjour !

Ce sont exactement les mêmes formules en utilisant la propriété FormulaLocal ‼

_________________________________________________________________________________________________________

Je suis Paris, Nice, Bruxelles, Charlie, …

[Eskalibur]

Ah super merci Marc-L je ne connaissais pas cette propriété

[Jean-Philippe André]

Salut,

pour ton info, la formule anglaise est NETWORKDAYS.

[Eskalibur]

Merci Jpcheck.

Par contre, vu que je dois prendre les data dans un Excel différent (je ne connais pas le nom de cet excel) je dois EXACTEMENT refaire comme si c'était une cellule ?
Parceque mes bornes minimum et maximum sont variable, le nom de mon excel aussi.

Code :

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

F_c.Range("F" & ligneProjet3).FormulaLocal = "=MIN('[nom_projet.xlsx]Feuil1'!$L$23:$L$45)"

Je comprend pas comment faire : $L$23:$L$45 en VBA.

Ca donnerai ca ?

Code :

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

=MIN('[nom_projet.xlsx]Feuil1'!("L" & ligne1 & ":L" & ligne)

??

En gros je peux mettre des variables dedans ?

[kiki29]

Salut, en appoint : Comprendre et gérer les dates sous Excel et en VBA

[Eskalibur]

Mince, FormulaLocal et autre (Formula, FormulaR1C1) ne sont valable que sur Excel 2013 ou + ..

Petite question:

Je comptais utiliser WorksheetFunction.Min([intervalle])
Ca fonctionne mais pas tout le temps. C'est à dire que de temps en temps ca me met le bon résultat puis les autres fois 0 (00/01/1900)

Quelqu'un connait la raison de ce bug ?

[Marc-L]

Mince, FormulaLocal et autre (Formula, FormulaR1C1) ne sont valable que sur Excel 2013 ou +

Non ‼ Je les utilise dans Excel 2003, 2007 comme 2010 !

Pas de bug à ma connaissance, cela doit être une mauvaise conception du code …

[Jean-Philippe André]

Salut,

peut-on voir le code que tu tentes d'executer stp ?

[Eskalibur]

Bien sur !

En gros j'ouvre plusieurs fichier excel avec des dates. J'ai une boucle qui fait que j'effectue plein d'étape sur un fichier puis je le ferme et réouvre un autre fichier excel automatiquement (le suivant dans le dossier)
Et la j'essaye d'extraire des dates d'un fichier pour trouver la date la plus petite (plus vieille) et la plus grande (plus récente).


J'ai d'abord tenté ca :

Je prend les date d'un excel que je copie dans mon excel actuel puis je trouve le min.

Code :

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

1
2
3
       F_r1.Range("L" & ligneELA + 1 & ":L" & ligneC).Copy
                F_c.Range("AA5").PasteSpecial Paste:=xlPasteValues
                F_c.Range("Q" & ligneProjet3).FormulaLocal = " =MIN(AA5:AA500)"

Ca ne marche pas, dans la cellule Q & ligneProjet3 j'ai écris : =MIN(AA5:AA500)

J'ai ensuite testé ca :

Code :

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

1
2
3
4
5
6
 
F_r1.Range("L" & ligneELA + 1 & ":L" & ligneC).Copy
F_c.Range("AA5").PasteSpecial Paste:=xlPasteValues
 
plus_petit = WorksheetFunction.Min([AA5:AA500])
F_c.Range("Q" & ligneProjet3) = plus_petit

Ca ne marche pas non plus. Enfin ca marche mais sur 2 excel puis ensuite les autres ca ne fonctionne pas. Je relance ensuite et la ca ne fonctionne sur aucun. Un mystère pour moi la dessus.


Ah étonnant Marc-L : https://msdn.microsoft.com/fr-fr/lib.../ff838835.aspx
Sur le liens il y a écrit 2013 and later. Je pensais que c'était pour ca que ca ne fonctionnait pas

[Jean-Philippe André]

POurquoi un espace avant le "=" ?


Essaie plutot avec

Code :

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

F_c.Range("Q" & ligneProjet3).FormulaLocal = "=MIN(AA5:AA500)"

[Eskalibur]

Je suis un débile profond....

Raaaaaah ca m'énerve de faire et de chercher pendant 2heures quand j'ai juste mis un espace en trop ..

Merci beaucoup

Effectivement ca marche niquel, je ne comprend pas pourquoi le site met à partir de 2013 et + .

En tout cas merci.

[Marc-L]

Ton lien indique juste qu'il se trouve dans l'aide de 2013 et non que c'est apparu avec cette version !

La preuve ici …

[Eskalibur]

Ah d'accord autant pour moi

Dernière question :

La traduction de ca :

Code :

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

F_c.Range("Q" & ligneProjet3).FormulaLocal= "=MIN('Récupération de données'!F9:F24)"

avec 9 et 24 de variable.

C'est ca ? :

Code :

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

"=MIN('Récupération de données'!F" &(nombre_projet * 100)&":F"&((nombre_projet * 100)+99)")""

Ca me met erreur de syntaxe mais je ne comprend pas.

J'utilise pas mal de VBA et rarement du Excel mais j'ai l'impression que pour le max et le min faut faire un mixte des deux, j'ai un peu de mal ..

J'ai mis des variables car ayant plusieurs fichiers je ne veux pas qu'il se colle au même emplacement sinon tous mes min et max auront la même valeur

[Marc-L]

Erreur de syntaxe car code incomplet, le VBA ne se trompant jamais,
mais le programmeur … Je te fais grâce de la liste de tes erreurs :

Code :

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

1
2
    F_c.Range("Q" & ligneProjet3).FormulaLocal = _
        "=MIN('Récupération de données'!F" & nombre_projet * 100 & ":F" & (nombre_projet * 100) + 99 & ")"

[Eskalibur]

Tout à fait !
heureusement d'ailleurs


Merci super !

N'hésite pas à me faire la liste des erreurs (si t'as pas le temps je comprend, tu n'as pas que ça à faire ! ), je préfère comprendre et ne pas refaire les même erreurs plutôt que de pomper un code tout fait

Encore merci

[Marc-L]

• Ne pas coller le & de concaténation, laisser un espace …

• Ne pas oublier le & de concaténation pour ajouter du texte après un résultat numérique …

• Un guillemet en trop à la fin …