Résolu 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
 

BrunoM45

XLDnaute Barbatruc
Bonjour,

Tu y es presque ;)
VB:
Sheets("Rapports").Range("A" & Rows.Count).End(xlUp).Offset(1,0).FormulaLocal = "=NO.SEMAINE(AUJOURDHUI();2)"
A+
 

pierrof

XLDnaute Occasionnel
Bonjour Bruno

Oui presque, j'ai encore des progrès à faire.

Merci beaucoup ça fonctionne parfaitement.

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
 

BrunoM45

XLDnaute Barbatruc
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


Haut Bas