XL 2019 extraire le mois et l’année de la colonne

[Dadi147]

Bonjour. Je veux extraire le mois et l’année de la colonne b en gardant toujours 01 au début de la date inchangée et mettre le résultat dans la colonne A Existe-t-il une formule qui peut le faire ou le code VBA Peut-être mieux de convertir le format en date

 

[fanch55]

Bonjour,
Le mois en chiffre ou en lettres ?

 

[Dadi147]

Bonjour fanch55 les numéros comme sur l’image

 

[JHA]

Bonjour à tous,

Une solution assez simple

="01/"&TEXTE(B4;"mm/aaaa")

ou

=("01/"&TEXTE(B4;"mm/aaaa"))*1

pour avoir la date en numérique

Edit: Bonjour @bhbh et et @fanch55
Bien vu le fin de mois

JHA

 

[Cousinhub]

Bonjour,
Comme ceci :

=FIN.MOIS(B4;-1)+1

Bonne soirée
Edit, Oupssss!, pas rafraîchi...
Bonjour @JHA et @fanch55

 

[Dadi147]

Bonjour à tous,

Une solution assez simple

="01/"&TEXTE(B4;"mm/aaaa")

JHA

Merci après avoir cherché j’ai trouvé ce code faisant le travail mais l’extraction se fait dans la colonne B Je veux que le contraire soit dans la colonne A

Sub test()
tablo = Range("A4:B" & Range("A" & Rows.Count).End(xlUp).Row)
For n = LBound(tablo, 1) To UBound(tablo, 1)
  tablo(n, 2) = Format(tablo(n, 1), "mm-yyyy")
Next
Range("A4").Resize(UBound(tablo, 1), UBound(tablo, 2)) = tablo
End Sub

 

[Dadi147]

Merci à tous, toutes les suggestions sont bonnes et fonctionnent parfaitement. Il ne me reste plus qu’à le convertir en code.

 

[Cousinhub]

Re-,
Ainsi :

Sub Macro1()
Dim Tbl
Dim I As Long
Tbl = Range("A4:B" & Cells(Rows.Count, "B").End(xlUp).Row)
For I = LBound(Tbl) To UBound(Tbl)
    Tbl(I, 1) = Application.EoMonth(Tbl(I, 2), -1) + 1
Next I
Range("A4:B" & Cells(Rows.Count, "B").End(xlUp).Row) = Tbl
End Sub

A adapter

 

[Dadi147]

Re-,
Ainsi :

Sub Macro1()
Dim Tbl
Dim I As Long
Tbl = Range("A4:B" & Cells(Rows.Count, "B").End(xlUp).Row)
For I = LBound(Tbl) To UBound(Tbl)
    Tbl(I, 1) = Application.EoMonth(Tbl(I, 2), -1) + 1
Next I
Range("A4:B" & Cells(Rows.Count, "B").End(xlUp).Row) = Tbl
End Sub

A adapter

Merci. C’est vraiment ce qu’il faut, merci beaucoup de continuer

 

[fanch55]

Bonsoir,
Pourquoi passer par une macro à relancer à chaque fois qu'une date change ?
La formule de @bhbh au Post #5 me semble la plus idéale en tant que formule à mettre en colonne A ?
Calcul automatique ==> pas d'oubli d'extraction manuelle et surtout pas de plantage quand une date n'est pas renseignée ou invalide ...
On peut l'amender en ajoutant le traitement d'erreur:

=SIERREUR(FIN.MOIS(B4;-1)+1;"")

 

[Staple1600]

Bonsoir le fil

Une autre formule simple
=DATE(ANNEE(B1);MOIS(B1);1)