Insérer la fonction année en VBA

Bonsoir,

je travaille en ce moment sur projet Excel élaboré en VBA.

Et j'ai besoin d'insérer la formule année dans toutes les cellules de la colonne M.

Cette formule doit renvoyer l'année de la date inscrit dans les cellules de la colonne A.

Ainsi dans M1 il y a l'année de la date de la cellule A1

dans M2 il y a l'année de la date de la cellule A2

dans M3 il y a l'année de la date de la cellule A3

... ect

Tout cela dans la feuille nommée feuil2

Comment dois-je faire ?

merci

Bonsoir

Une solution avec le peu que tu as dis

Sub LaDate()
  With Range("M1:M" & Range("A" & Rows.Count).End(xlUp).Row)
    .Formula = "=YEAR(A1)"
    '.Value = .Value         ' Si tu ne veux pas les formules
  End With
End Sub

Merci cela marche nickel. J'avais finalement trouvé quelque chose sauf que mon code faisait ralentir l'execution. Surement par ceque l'ai insérer sur toute la colonne.


Maintenant j'ai une autre demande que je n'arrive pas à résoudre.

Quelle code dois je utiliser pour supprimer les lignes dont la cellule en colonne M contient l'année 2012

merci

Bonjour

Sans fichier

Une solution

Sub Filtre()
Dim NbLg As Long

  Rows(1).Insert
  Range("M1") = "x"
  NbLg = Range("A" & Rows.Count).End(xlUp).Row
  Range("M1").AutoFilter field:=1, Criteria1:=2012
  If Application.Subtotal(103, Columns("M")) > 0 Then
    Range("M1:M" & NbLg).SpecialCells(xlCellTypeVisible).EntireRow.Delete
  End If
End Sub

Bonjour,

J'ai testé la fonction année + suppression des lignes 2012 cela ne marche pas.

Bonjour,

J'ai testé la fonction année + suppression des lignes 2012 ... et ça marche !

A+

29test.xlsm (18.89 Ko)

Merci beaucoup !

Rechercher des sujets similaires à "inserer fonction annee vba"