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

cathodique

XLDnaute Barbatruc
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.
 

Pièces jointes

  • 1Dates.xlsm
    20.1 KB · Affichages: 25

cathodique

XLDnaute Barbatruc
@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 ***)
VB:
'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.
 

cathodique

XLDnaute Barbatruc
Re quand tu dis que le Code de Kindfadhel , Plante
çà veut dire quoi ?
Re,:confused:
Je me suis peut-être encore mêlé les pinceaux.:D
upload_2018-1-4_7-19-7.png
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.
 

cp4

XLDnaute Barbatruc
Bonjour Cathodique:),

Il me semble que nous avons visionné le même tuto sur youtube.
Voici une proposition
VB:
  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.
 

Discussions similaires