annee mois en VBA jusqu a derniere ligne

[reve24]

Bonjour

y a t il une solution a part une macro pour Mettre l année et le mois en VBA suivant date de la colonne " L"
jusqu a dernière ligne
voir fichier merci

merci d avance

 

[Staple1600]

Bonsoir à tous_____________________________Resalut Misange 😉


Tu peux passer pas Accueil/Remplissage/Série/Chronologique/Colonnes Valeur du pas :1

 

[Misange]

Re : annee mois en VBA jusqu a derniere ligne

Bonjour

aucun besoin de VBA pour ça : j'ai juste transformé ton tableau en vrai tableau excel
Ce lien n'existe plus
toute donnée que tu écris juste en dessous s'intègre au tableau et la formule de la ligne du dessus (donc l'année et le mois) est recopiée.
Essaie tu verras c'est magique et immédiat. Aucune limitation dans le nombre de lignes et tu n'as pas besoin de prévoir des lignes vides à l'avance.

[edit oups j'avions oublié d'appouyer sur le boutonnnn ! coucou Jean marie merci de l'avoir signalé]

 

[Staple1600]

Re

Misange 😉
L'est ou le fichier 😉 ?

 

[ROGER2327]

Re : annee mois en VBA jusqu a derniere ligne

Bonsoir à tous.

Private Sub Worksheet_Change(ByVal Cible As Range)
Dim Plg As Range, Cel As Range
    With Range("L14")
    Set Plg = Intersect(Cible, Range(.Cells, Cells(Rows.Count, .Column)))
    If Not Plg Is Nothing Then
        For Each Cel In Plg.Cells
            If IsEmpty(Cel.Value) Then
                Cel.Offset(, 1).Resize(1, 2).ClearContents
            Else
                On Error Resume Next
                Application.EnableEvents = False
                Cel.Offset(, 1).Resize(1, 2).Value = Array(Year(Cel.Value), Month(Cel.Value))
                Application.EnableEvents = True
                On Error GoTo 0
            End If
        Next
    End If
    End With
End Sub

À placer dans le module de la feuille concernée.​

Bonne soirée.


ROGER2327
#6939

Samedi 21 Haha 141 (Zimzoum de Bosse-de-Nage - fête Suprême Tierce)
5 Brumaire An CCXXII, 7,1730h - oie
2013-W43-6T17:12:55Z

 

[Staple1600]

Re à tous, bonsoir ROGER2327

reve24
Il y a comme un paradoxe, non ?

y a t il une solution a part une macro pour Mettre l année et le mois en VBA suivant date de la colonne "

Tu veux une solution avec ou sans macro?

 

[gilbert_RGI]

Re : annee mois en VBA jusqu a derniere ligne

Bonsoir

comme ceci peut-être

Sub Test()
ladate = "01/01/2013"
   For i = 14 To 6514
   Cells(i, 12).Select
   Cells(i, 12).Value = ladate
    ActiveCell.Offset(0, 1).FormulaR1C1 = "=YEAR(RC[-1])"
  
    ActiveCell.Offset(0, 2).FormulaR1C1 = "=MONTH(RC[-2])"
    ladate = Cells(i, 12).Value + 1
    Next
End Sub

Edit : bonsoir à tous wouah le monde 😎

 

[reve24]

Re : annee mois en VBA jusqu a derniere ligne

Super cela correspond exactement a mon besoin

PARFAIT MERCI ROGER2327

 

[Misange]

Re : annee mois en VBA jusqu a derniere ligne

Sans macro voir ma soluce plus haut !
une macro pour ça c'est quand même un peu inutile... en toute amitié !

 

[Staple1600]

Bonsoir à tous

N’insiste pas, Misange 😉
Quand on est transparent, on est transparent !
C'est pas Gilbert_RGI ou moi qui te diront le contraire 😉
Ou alors reve24 a oublié ses lunettes sur la commode au fond du couloir...

EDITION:
Misange, je pensais qu'il était inutile que j'ajoute les balises BBCODE [PRIVATEJOKE] [/PRIVATEJOKE]

 

[Misange]

Re : Re: annee mois en VBA jusqu a derniere ligne

Bonsoir à tous

N’insiste pas, Misange 😉
Quand on est transparent, on est transparent !
C'est pas Gilbert_RGI ou moi qui te diront le contraire 😉

heu... tu vois pas mon fichier ? (j'ai pas tout compris, surement l'effet d'un délicieux jurançon !)