Afficher l'année...

B

bpol

XLDnaute Impliqué

• 3 Février 2010

• #2

Re : Afficher l'année...

bonjour,
en A3: =ANNEE(B3)
puis tirer la formule vers le bas

A+
Bpol

 

Vote positif 0 Vote négatif

T

titymax

XLDnaute Occasionnel

• 3 Février 2010

• #3

Re : Afficher l'année...

Bonjour,

Merci Bpol, mais j'ai besoin d'un code pour cela, car je veux l'intégrer dans une procédure complexe.

Bonne AM

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 3 Février 2010

• #4

Re : Afficher l'année...

Bonjour le fil, bonjour le forum,

Essaie comme ça :

Code:

Sub ANNEE()
Dim c As Range
 
For Each c In Range("B3:B" & Range("B65536").End(xlUp).Row)
    If c.Value <> "" Then c.Offset(0, -1).Value = Year(c.Value)
Next c
Range("A3").Select
End Sub

 

Vote positif 0 Vote négatif

T

titymax

XLDnaute Occasionnel

• 3 Février 2010

• #5

Re : Afficher l'année...

Re

Super génial Robert, je te remercie c'est PIL POIL ce que je recherchais !!!

Très bonne AM

A+

 

Vote positif 0 Vote négatif

Efgé

XLDnaute Barbatruc

• 3 Février 2010

• #6

Re : Afficher l'année...

Bonjour à tous
Une autre proposition:

Code:

Sub ANNEE2()
'insertion incrémentée des formules
Range("A3:A" & Range("B65536").End(xlUp).Row).FormulaLocal = "=ANNEE(B3)"
End Sub

Cordialement

 

Pièces jointes

• Annee(2).xls

  44 KB · Affichages: 67

Vote positif 0 Vote négatif

T

titymax

XLDnaute Occasionnel

• 3 Février 2010

• #7

Re : Afficher l'année...

Rere,

Merci à vous tous pour ce florilège de solution !!! n'en jetez plus !!! 😀

Je n'aurais qu'un mot "IMPRESSIONNANT"

A très vite je pense...

 

Vote positif 0 Vote négatif