Numéro de semaine et dernière ligne

[pierrof]

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

 

[Compte Supprimé 979]

Bonjour,

Tu y es presque

Sheets("Rapports").Range("A" & Rows.Count).End(xlUp).Offset(1,0).FormulaLocal = "=NO.SEMAINE(AUJOURDHUI();2)"

A+

 

[pierrof]

Bonjour Bruno

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

Merci beaucoup ça fonctionne parfaitement.

Cordialement

 

[pierrof]

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

 

[Compte Supprimé 979]

Bonjour,

Peut-être comme ça

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

 

[pierrof]

Bonjour Bruno

Encore une fois parfait.

Merci encore une fois.

Cordialement