Conversion d'une formule en code VBA [Résolu]
cs_antom
44
Messages postés
vendredi 25 janvier 2008Date d'inscription
17 mai 2012
Dernière intervention
-
22 févr. 2012 à 12:33 - Dernière réponse :
cs_antom
44
Messages postés
vendredi 25 janvier 2008Date d'inscription
17 mai 2012
Dernière intervention
- 22 févr. 2012 à 13:26
- Conversion d'une formule en code VBA
- Traduire une formule en code VBA (Résolu) » Forum - Visual Basic 6
- [Catégorie modifiée VB6 -> VBA] Recopie vers le bas d'un code vba avec formule » Forum - Visual Basic 6
- Conversion algorithme en code vba » Forum - VB.NET
- Conversion base 10 <====> base 256 (code ascii) » Codes sources - Visual Basic / VB.NET (Maths)
- Modifier le menu contextuel de la souris (code vba excel) » Codes sources - Visual Basic / VB.NET (Souris, Clavier, etc…)
4 réponses
Meilleure réponse
JOURSEM te donne le numéro de jour dans la semaine :
1 - Dimanche
2 - Lundi
3 - Mardi
4 - Mercredi
5 - Jeudi
6 - Vendredi
7 - Samedi
en gros, tu demande de partir du premier jour de l'année que nous noterons A
Un dimanche, en 2012
A -JourSem +1
01/01/2012 - 1 + 1 => 01/01/2012
01/01/2011 - 7 + 1 => 26/12/2011
a supposer que cette formule soit correcte, tu peux faire, en VBA:
Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
1 - Dimanche
2 - Lundi
3 - Mardi
4 - Mercredi
5 - Jeudi
6 - Vendredi
7 - Samedi
en gros, tu demande de partir du premier jour de l'année que nous noterons A
Un dimanche, en 2012
A -JourSem +1
01/01/2012 - 1 + 1 => 01/01/2012
01/01/2011 - 7 + 1 => 26/12/2011
a supposer que cette formule soit correcte, tu peux faire, en VBA:
A = dateserial(Year(Date), 1,1) A = A - Weekday(A) +1 Cells(2, 2) = FormatDateTime(A, vbShortDate)
Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 72 internautes ce mois-ci
Meilleure réponse
à noter que ce code :
est à proscrire !
utiliser FormulaLocal. En effet, le nom de tes fonctions est traduit, le séparateur est le ';', défini dans tes regional settings (donc valable sur TON poste)
ou alors, utiliser la version traduite :
qui fonctionnera sur tous les postes
Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Cells(2, 2).Formula = "=DATE(ANNEE(AUJOURDHUI());1;1)-JOURSEM(DATE(ANNEE(AUJOURDHUI());1;1))+1"
est à proscrire !
utiliser FormulaLocal. En effet, le nom de tes fonctions est traduit, le séparateur est le ';', défini dans tes regional settings (donc valable sur TON poste)
ou alors, utiliser la version traduite :
Cells(2, 2).Formula = "=DATE(YEAR(TODAY()),1,1)-WEEKDAY(DATE(YEAR(TODAY()),1,1))+1"
qui fonctionnera sur tous les postes
Renfield - Admin CodeS-SourceS - MVP Visual Basic & Spécialiste des RegExp
Avec quelques mots c'est encore mieux Ajouter un commentaire
a aidé 72 internautes ce mois-ci
Salut !
Déjà rien que =DATE(ANNEE(AUJOURDHUI());1;1) renvoie aussi 01/01/2012 !
Le mieux est d'expliquer littéralement (sans formule) ce dont tu as besoin ...
Sinon dans le fenêtre d'exécution de l'environnement VBA valide ? Cells(2, 2).Formula pour voir la formule en VBA ...
___________________________________________________________________________________________________________________
Comme la vitesse de la lumière est supérieure à celle du son, certains ont l'air brillant avant d'avoir l'air con !
Déjà rien que =DATE(ANNEE(AUJOURDHUI());1;1) renvoie aussi 01/01/2012 !
Le mieux est d'expliquer littéralement (sans formule) ce dont tu as besoin ...
Sinon dans le fenêtre d'exécution de l'environnement VBA valide ? Cells(2, 2).Formula pour voir la formule en VBA ...
___________________________________________________________________________________________________________________
Comme la vitesse de la lumière est supérieure à celle du son, certains ont l'air brillant avant d'avoir l'air con !
Re,
D'abord merci pour vos réponses.
Marc, désolé il est vrai que peut-être n'ai-je pas été assez clair.
En fait, je voulais la date d'un jour x de telle semaine, dans la formule, j'avais oublié "7*numeroDeSemaine..."
Pourtant Renfield, ton bout de code, c'est exactement ce que je voulais... Chapeau bas !
Merci encore à vous deux !
Je ne sais pas où cliquer pour dire que c'est résolu, mais en tous cas, ça l'est !
mOOm.
D'abord merci pour vos réponses.
Marc, désolé il est vrai que peut-être n'ai-je pas été assez clair.
En fait, je voulais la date d'un jour x de telle semaine, dans la formule, j'avais oublié "7*numeroDeSemaine..."
Pourtant Renfield, ton bout de code, c'est exactement ce que je voulais... Chapeau bas !
Merci encore à vous deux !
Je ne sais pas où cliquer pour dire que c'est résolu, mais en tous cas, ça l'est !
mOOm.
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.