OVH Cloud OVH Cloud

fonction fin.moisen VB

3 réponses
Avatar
Bernard
Bonjour,
je voudrais soit r=E9cup=E9rer via VB uniquement dans une=20
variable de type date l'=E9quivalent de la fonction FIN.MOIS=20
sans devoir l'attribuer =E0 une cellule et en r=E9cup=E9rer le=20
r=E9sultat
exemple :
dim ladate as date
ladate =3D fin.mois(Range("A1"),-6) o=F9 A1 est la cellule de=20
r=E9f=E9rence et "fin.mois" ce par quoi il faut remplacer et=20
dont j'ignore quoi mettre (placer cette fonction dans une=20
autre cellule via VB je sais faire mais ce n'est pas ce=20
que je d=E9sire, je pr=E9f=E8re que tout se fasse en m=E9moire)

soit =E9crire en VB l'=E9quivalent de cette fonction.
Pouvez-vous m'aider pour obtenir un site (contenant les=20
=E9quivalents VB des fonctions et pas forc=E9ment de celle-ci)=20
ou la r=E9ponse ou ......

D'avance merci =E0 tous

3 réponses

Avatar
FxM
Bonjour,
je voudrais soit récupérer via VB uniquement dans une
variable de type date l'équivalent de la fonction FIN.MOIS
sans devoir l'attribuer à une cellule et en récupérer le
résultat


Bonsoir,

Pour Excel, le jour de fin de ce mois-ci est le "0 ième" jour du mois
suivant ...
Fin de mois (juillet 2003;0) => dateserial(2003,08,0)

Pour le(s) site(s), jette un oeil chez notre Misange :
http://www.excelabo.net
Ca m'étonnerait que tu ne trouves pas ton bonheur.

@+
FxM

Avatar
AV
je voudrais soit récupérer via VB uniquement dans une
variable de type date l'équivalent de la fonction FIN.MOIS


ladate = [eomonth(A1,-6)]
'ou encore :
ladate = Format([eomonth(A1,-6)], "dd/mm/yy")
MsgBox ladate

Pouvez-vous m'aider pour obtenir un site (contenant les
équivalents VB des fonctions et pas forcément de celle-ci)


Je crois que là
http://disciplus.simplex.free.fr/classeursxl/av-evaluate.zip
tu trouveras ton bonheur .... et plus si affinités ;-)

AV

"Bernard" a écrit dans le message news:
004001c35387$4d71cd60$
Bonjour,
je voudrais soit récupérer via VB uniquement dans une
variable de type date l'équivalent de la fonction FIN.MOIS
sans devoir l'attribuer à une cellule et en récupérer le
résultat
exemple :
dim ladate as date
ladate = fin.mois(Range("A1"),-6) où A1 est la cellule de
référence et "fin.mois" ce par quoi il faut remplacer et
dont j'ignore quoi mettre (placer cette fonction dans une
autre cellule via VB je sais faire mais ce n'est pas ce
que je désire, je préfère que tout se fasse en mémoire)

soit écrire en VB l'équivalent de cette fonction.
Pouvez-vous m'aider pour obtenir un site (contenant les
équivalents VB des fonctions et pas forcément de celle-ci)
ou la réponse ou ......

D'avance merci à tous

Avatar
bernard