Variable avec des mois

[nikkyb]

Bonjour,

En colonne 6 et 7, j'ai des dates qui corresponde à un début et une fin (dans une listview)
Les date sont sous forme :

 .ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 6), "dd/mm/yy")
            .ListItems(.ListItems.Count).ListSubItems.Add , , Format(cel1.Offset(0, 7), "dd/mm/yy")

J'aimerais pouvoir récuperer les donnée d'autre colonne en fonction de la date j'ai donc creer une combox avec tous les mois

Mais maintenant je ne sais pas comment creer la variable pour définir que dd/01/yy est janvier que dd/02/yy et février etc....

Merci pour le coup de main 😉

 

[kjin]

Re : Variable avec des mois

Bonjour et bienvenue,
On ne peut rien faire pour toi !
La liste des mois dans la combo contient quoi, dans quel ordre ?
A+
kjin

 

[nikkyb]

Re : Variable avec des mois

Salut

Et bien elle contient la liste des mois :
Janvier, fevrier, Mars; Avril etc


Inseré de cette manière

ComboBoxmois.AddItem "Janvier"
ComboBoxmois.AddItem "Février"
etc

 

[Compte Supprimé 979]

Re : Variable avec des mois

Bonjour Nikkyb et bienvenue sur le forum

Avec :

NumMois = ComboBoxmois.ListIndex + 1

A+

 

[nikkyb]

Re : Variable avec des mois

Salut

Je met ce code dans option explicite.........ou ailleur??😕

 

[kjin]

Re : Variable avec des mois

Bonjour,

Mois = ComboBox1.ListIndex + 1 'le premier index étant 0, janvier correspond à +1
MoisLvw1 = Month(CDate(ListView1.ListItems(1))) 'à adapter

A noter que si tes cellules contiennent des dates, inutile de les formater avant de les insérer dans la listview
A+
kjin

 

[nikkyb]

Re : Variable avec des mois

Bonjour,

Mois = ComboBox1.ListIndex + 1 'le premier index étant 0, janvier correspond à +1
MoisLvw1 = Month(CDate(ListView1.ListItems(1))) 'à adapter

A noter que si tes cellules contiennent des dates, inutile de les formater avant de les insérer dans la listview
A+
kjin

Je le met dans ComboBox1Click ??

 

[kjin]

Re : Variable avec des mois

Re,
Euh oui..., on y gagnerait peut-être si tu joignais ton fichier allégé et débarrassé des données confidentielles, et en expliquant ce que tu veux faire
A+
kjin