[RESOLU] Mettre mois année d'une date dans variable

[cathodique]

Bonjour,🙂

Je voudrais récupérer le mois et l'année d'une série de dates (colonne A), sans doublons dans une variable.
Afin de l'utiliser dans une boucle (ex: créer et nommer feuille mois-année).

En vous remerciant par avance.

 

[ChTi160]

Re
Une Approche
Bonne fin de Journée
Amicalement
Jean marie

 

[cathodique]

@ChTi160 : Merci beaucoup, ton fichier joint au post#16 fait bien le boulot, il manque juste la ligne d'entete.

Re dejà dans ta procédure tu emploies la variable "oSheet"
a toutes les Sauces Lol

En effet, je me suis mêlé les pinceaux.

@kingfadhel : Merci à toi aussi. Je n'ai encore testé ton code. Je reviendrai aux nouvelles plus tard.
ps: oublié de te dire que ton code du post#8 plante en fin de procédure (voir ***)

'CREATION DES FEUILLES
'd2 à changer par l'adresse de la première ligne contenant les dates
datas = [d2].Resize(Cells(Rows.Count, 4).End(xlUp).Row - 1).Value
    Set dict = CreateObject("Scripting.Dictionary")
    For lig = LBound(datas) To UBound(datas)
        ShtName = datas(lig, 1)
        Set Ws = ThisWorkbook.Sheets.Add(After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
        With Ws
            .Name = ShtName '***
        End With
    Next lig
End Sub

Merci à vous.

 

[ChTi160]

Re
nécessaire fait !
Bonne fin de Journée
Amicalement
Jean marie

 

[ChTi160]

Re quand tu dis que le Code de Kindfadhel , Plante
çà veut dire quoi ?

 

[cathodique]

Re
nécessaire fait !
Bonne fin de Journée
Amicalement
Jean marie

Bonjour🙂,

C'est parfait, un grand merci.
Bonne journée.

 

[cathodique]

Re quand tu dis que le Code de Kindfadhel , Plante
çà veut dire quoi ?

Re,😕
Je me suis peut-être encore mêlé les pinceaux.😀

Le code s'arrête sur la ligne repérée par 3 astérisques (***)(ligne surlignée en jaune) et le message ci-dessus s'affiche.

Pas le temps ce matin. Je reverrai quand j'aurai un peu de temps.

En tous cas, merci à vous, c'est très sympa.

Très bonne journée à vous.

 

[ChTi160]

Bonjour Cath
Bonjour le Fil (Kindfahdel) ,le Forum
je pense que dans la procédure de kindfadhel ,il manque la partie qui supprime les feuilles ,d'ou le message !
Bonne journée A vous
Amicalement
jean marie

 

[cp4]

Bonjour Cathodique🙂,

Il me semble que nous avons visionné le même tuto sur youtube.
Voici une proposition

  For i = LBound(base, 1) To UBound(base, 1)
        If Not Ddate.exists(Format(CLng((base(i, 7))), "mmm yyyy")) Then Ddate(Format(CLng((base(i, 7))), "mmm yyyy")) = ""
  Next i

Bonne soirée.

 

[cathodique]

Bonjour,

Excusez mon retard, ça fait un bon moment.
En effet, cp4 ta solution est bonne, j'avais trouvé mais par manque de temps je n'ai pas répondu.

bonne journée à toutes et à tous.