Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Formule Excel - Inscritpion Semaine en cours automatiquement

Julien77

XLDnaute Junior
Bonjour Forum,

Dans un fichier excel j'ai une cellule qui m'inscrit la date du jour automatiquement à l'ouverture du fichier. Mais en réalité je souhaiterai avoir à l'ouverture du fichier la semaine en cours. Eh oui sur mon fichier j'ai tous les jours de la semaine, donc si j'ouvre le fichier un Mardi, et ben la commence commencera à Mardi.

Comment peut on faire pour que ce soit toujours la semaine en cours quelque soit le jour de la semaine de l'utilisation du fichier ?

Merci à vous pour votre réponse.
 

MJ13

XLDnaute Barbatruc
Re : Formule Excel - Inscritpion Semaine en cours automatiquement

Bonjour Julien

Tu peux tester ce code VBA

Code:
range("a1").Offset(0, 1) = Format(range("a1").value, "ww", vbMonday, vbFirstFourDays)
 

MJ13

XLDnaute Barbatruc
Re : Formule Excel - Inscritpion Semaine en cours automatiquement

Re

Code:
Sub test()
For Each cell In Range("zone")
cell.Offset(0, 1) = Format(cell.Value, "ww", vbMonday, vbFirstFourDays)
Next
End Sub
 

Gexk5

XLDnaute Occasionnel
Re : Formule Excel - Inscritpion Semaine en cours automatiquement

bonjour le forum,
Julien, MJ13, hoerwind

Regarde si cela te va
 

Pièces jointes

  • Classeur1.xls
    14.5 KB · Affichages: 105
  • Classeur1.xls
    14.5 KB · Affichages: 102
  • Classeur1.xls
    14.5 KB · Affichages: 103

MJ13

XLDnaute Barbatruc
Re : Formule Excel - Inscritpion Semaine en cours automatiquement

Re

sinon

Code:
Sub test()
Range("a1") = Format(Now(), "ww", vbMonday, vbFirstFourDays)
Range("a2") = Format(Range("b5"), "ww", vbMonday, vbFirstFourDays)
End Sub

donc si j'ouvre le fichier un Mardi, et ben la commence commencera à Mardi.

Déjà la, je ne comprend pas .

Après cela dépend du contexte, il faut aussi un peu réfléchir .
 

Discussions similaires

Réponses
5
Affichages
434
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…