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

ChTi160

XLDnaute Barbatruc

• 3 Janvier 2018

• #16

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

 

Pièces jointes

• Dates Chti160.xlsm

  93.5 KB · Affichages: 19

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 3 Janvier 2018

• #17

@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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 3 Janvier 2018

• #18

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

 

Pièces jointes

• Dates Chti160.xlsm

  95.2 KB · Affichages: 24

Dernière édition: 3 Janvier 2018

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 3 Janvier 2018

• #19

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

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 4 Janvier 2018

• #20

ChTi160 à dit:

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

Cliquez pour agrandir...

Bonjour🙂,

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

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 4 Janvier 2018

• #21

ChTi160 à dit:

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

Cliquez pour agrandir...

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.

 

Vote positif 0 Vote négatif

ChTi160

XLDnaute Barbatruc

• 4 Janvier 2018

• #22

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

 

Vote positif 0 Vote négatif

cp4

XLDnaute Barbatruc

• 11 Janvier 2018

• #23

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.

 

Vote positif 0 Vote négatif

cathodique

XLDnaute Barbatruc

• 18 Janvier 2018

• #24

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.

 

Vote positif 0 Vote négatif