copier automatiquement une formule dans les cellules du bas

laurent.madec · 4 Décembre 2007

bonjour,

j'ai un fichier Excel qui récupère les données d'un logiciel. dans la colonne A , j'ai la date. Dans la colonne B, j'ai la formule =ANNEE(A1) pour extraire l'année.

Le problème, c'est qu'à chaque fois que je mets à jour le fichier, la formule n'est pas copiée automatiquement en face des nouveaux enregistrements.
pouvez vous m'indiquer une macro qui me permettrai de renseigner automatiquement la colonne B.
Merci à vous!!!

Temjeh · 4 Décembre 2007

Re : copier automatiquement une formule dans les cellules du bas

Bonjour

Test l'année de col A et met en col B

For i = 1 To Range("A65536").End(xlUp).Row
Range("B" & i) = Year(Range("A" & i))
Next i

Aussi si tes données de col A sont:

Mardi le 4 décembre 2008

For i = 1 To Range("A65536").End(xlUp).Row
Range("B" & i) = Right(Range("A" & i), 4)
Next i

A+

Bonjour aussi pierrejean
Je suis assez tranquille coté programmation mais j'y reviens à l'occasion

Temjeh

pierrejean · 4 Décembre 2007

Re : copier automatiquement une formule dans les cellules du bas

bonjour laurent.madec et bienvenue sur XLD

macro evenementielle a placer dans la feuille concernée

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 1 And IsDate(Target) Then
  Target.Offset(0, 1) = Year(Target)
End If
End Sub

Salut temjeh

copier automatiquement une formule dans les cellules du bas

laurent.madec

XLDnaute Nouveau

Temjeh

XLDnaute Accro

pierrejean

XLDnaute Barbatruc

Discussions similaires