Modification de date

[NICOALBERT]

Bonjour le forum,

Je suis à la recherche d'une macro qui pourrais modifier la date , ajouter le mois et la semaine.

Concernant la date j'ai plusieurs formats " 02/05/2013 11:04 " ou " 2013-05-02 19:12:00 " ce que je voudrais c'est " 02/05/2013 ".

Concernant le mois et la semaine cela se fait par rapport à la date après avoir était modifié.

Je vous joint un fichier exemple la ligne final et comme la ligne 2 du fichier .

Cordialement.

 

[Modeste geedee]

Re : Modification de date

Bonsour®
normalement ...
EXCEL sait interpreter les dates telles que présentées.

il suffit dans ce cas d'appliquer simplement les formules adéquates

 

[NICOALBERT]

Re : Modification de date

bonsoir modeste,

merci pour avoir pris le temps de m'aider , est ce qu'il existe la même chose en macro .

 

[Modeste geedee]

Re : Modification de date

Bonsour®

Sub toto()
Dim cellule As Range
For Each cellule In Range("C2:C200")' plage à adapter
'----- on utilise ici les formules de feuilles de calcul format local pour profiter de la reconnaissance automatique des dates francaises
'----- l'utilisation de formules VBA US implique la reconnaissance des dates US "by Design"
cellule.Offset(0, -2).FormulaR1C1Local = "=MOIS(ENT(LC(2)))"
cellule.Offset(0, -1).FormulaR1C1Local = "=ENT(MOD(ENT((ENT(LC(1))-2)/7)+0,6;52+5/28))+1"
cellule.Offset(0, 1).FormulaR1C1Local = "=TEXTE(1*LC(-1);""jj/mm/aaaa"")"
Next
End Sub

 

[NICOALBERT]

Re : Modification de date

Merci sa fonctionne très bien .
Y a t'il un moyen d'arrêter la macro dès qu'il n'y a plus de date ou pas ?
Exemple : Si je met dans la macro de C2:C400 mais que les date s'arrête à 300 alors les formule s'arrêtent aussi à 300

 

[Modeste geedee]

Re : Modification de date

Bonsour®

Y a t'il un moyen d'arrêter la macro dès qu'il n'y a plus de date ou pas ?
Exemple : Si je met dans la macro de C2:C400 mais que les date s'arrête à 300 alors les formule s'arrêtent aussi à 300

il faut changer le système de boucle "Pour Jusqu'à"
par une boucle "Tant que"

Sub toto()
Dim ligne As integer
ligne=2
While not is empty(cells(ligne,3))
with cells(ligne,3)
.Offset(0, -2).FormulaR1C1Local = "=MOIS(ENT(LC(2)))"
.Offset(0, -1).FormulaR1C1Local = "=ENT(MOD(ENT((ENT(LC(1))-2)/7)+0,6;52+5/28))+1"
.Offset(0, 1).FormulaR1C1Local = "=TEXTE(1*LC(-1);""jj/mm/aaaa"")"
end with
ligne=ligne+1
Wend
End Sub

 

[NICOALBERT]

Re : Modification de date

Re,

J'ai un message d'erreur de compilation et le texte " While not is empty(cells(ligne,3)) " en rouge dans la macro

est ce normal ?

 

[Modeste geedee]

Re : Modification de date

😎
isempty en un seul mot !!!!

 

[NICOALBERT]

Re : Modification de date

Merci

sa marche très bien désolé pour le mot je connais pas encore assez .