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).
@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
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.
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
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