Numéro de semaine et dernière ligne

pierrof

XLDnaute Occasionnel
Bonjour

Je souhaite inscrire à l'aide d'un code VBA le numéro de la semaine de la date du jour, à la dernière cellule non vide...
J'ai commencé avec ce code mais cela ne fonctionne pas:
Sheets("Rapports").Range("A65536").End(xlUp).Offset(0, 1).Value = "=NO.SEMAINE(AUJOURDHUI();2)"

Merci de vos conseils.

Cordialement
 

pierrof

XLDnaute Occasionnel
Bonsoir

J'ai besoin d'une petite amélioration pour mon code j'aimerai prendre la date qui est située dans la colonne de gauche (A) sur le même ligne (au lieu de la date du jour):
Sheets("Rapports").Range("B" & Rows.Count).End(xlUp).Offset(1, 0).FormulaLocal = "=NO.SEMAINE(AUJOURDHUI();2)"

Merci de votre aide.
Cordialement
 
C

Compte Supprimé 979

Guest
Bonjour,

Peut-être comme ça
VB:
With Sheets("Rapports")
    DLig = .Range("B" & Rows.Count).End(xlUp).Offset(1, 0).Row
    .Range("B" & DLig).FormulaLocal = "=NO.SEMAINE(A" & DLig & ";2)"
End With
 

Discussions similaires

Réponses
5
Affichages
537
Réponses
25
Affichages
663

Statistiques des forums

Discussions
311 713
Messages
2 081 806
Membres
101 819
dernier inscrit
lukumubarth