Numéro de semaine et dernière ligne

C

Compte Supprimé 979

Guest

• 13 Juin 2019

• #2

Bonjour,

Tu y es presque

VB:

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

A+

 

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 13 Juin 2019

• #3

Bonjour Bruno

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

Merci beaucoup ça fonctionne parfaitement.

Cordialement

 

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 13 Juin 2019

• #4

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

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 14 Juin 2019

• #5

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

 

Vote positif 0 Vote négatif

P

pierrof

XLDnaute Occasionnel

• 14 Juin 2019

• #6

Bonjour Bruno

Encore une fois parfait.

Merci encore une fois.

Cordialement

 

Vote positif 0 Vote négatif