Afficher l'année...

[titymax]

Bonjour,

Je ne parviens pas à trouver le code (voir Macro ANNEE) qui permette d'avoir en colonne A l'année correspondante à la liste de dates colonne B, sachant que cette liste peut être plus ou moins longue. En effet la liste des dates commence en B3, mais peut aller jusqu'à Bx.

Pouvez vous m'aider SVP.

Bonne journée à tous.

Merci

 

[bpol]

Re : Afficher l'année...

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

A+
Bpol

 

[titymax]

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

 

[Robert]

Re : Afficher l'année...

Bonjour le fil, bonjour le forum,

Essaie comme ça :

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

 

[titymax]

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+

 

[Efgé]

Re : Afficher l'année...

Bonjour à tous
Une autre proposition:

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

Cordialement

 

[titymax]

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...