Valeur combobox transformé en date

Version imprimable

01/10/2016, 18h57
chipster62

1 pièce(s) jointe(s)

Valeur combobox transformé en date
Bonjour à tous,

J'ai créer un fichier en vba avec un userform.
Dans cet userform, il y a 2 combobox (référencée par une liste de date dans une autre feuille - Combobox3 et Combobox4)

Quand je lance mon userform et que je sélectionne une date dans mon menu déroulant (combobox) celle ci ne se transforme pas en date. Du coup la suite de ma macro ne se déroule pas (inserer une ligne dans ma feuille correspondant au nombre de date début et fin d'absence : 1 ligne = 1 jour, donc période de 10 jours = 10 lignes)

J'ai essayé de mettre différentes formules (au lancement du userform) mais rien n'y fait :
Code:

1 2 ComboBox3.Value = CDate(ComboBox3.Value) ComboBox4.Value = CDate(ComboBox4.Value)
ou
Code:

1 2 ComboBox3.Value = Format((ComboBox3.Value), "dd/mm/yyyy") ComboBox4.Value = Format((ComboBox4.Value), "dd/mm/yyyy")
Je ne vois pas ou cela pose problème ou est-ce que je pars dans la bonne direction

Y aurait-il quelqu'un pour m'aider ?

En vous remerciant au préalable,

Ludovic
01/10/2016, 19h04
joe.levrai
Bonjour,

le problème c'est que tu peux, en entrée, insérer des Dates dans ta combobox

mais, en sortie, il va te ramener un string qu'il faut convertir via Cdate()

tu étais sur la bonne piste au niveau de la conversion ... mais vu que tu réinjectes ton Cdate(me.combobox3.value) dans ton combobox3.Value ... au final il revient en string !

Fait plutôt comme ça :
Code:

1 2 3 4 Dim MaDate as Date MaDate = Cdate(Me.Combobox3.Value) ' ensuite, tu utilises la variable MaDate au lieu de Me.Combobox3.Value qui n'a servi que d'opérateur de récupération
01/10/2016, 19h49
chipster62

1 pièce(s) jointe(s)

merci de ton aide, mais je n'arrive pas à intégrer cela dans mon code userform pour que la macro se déploie.

J'ai mis 2 variables (date début et fin) et remplacé les valeurs de combobox par mes variables pour le déroulement de la variable mais une erreur continue de persister

j'ai laissé mon fichier en pièce jointe avec ces modifications, car la conversion de texte en date me parait toujours pas active
01/10/2016, 20h11
joe.levrai

Bonjour,

nous sommes sur une problématique de programmation VBA pure.

Ainsi, le classeur n'est pas nécessaire

en revanche, nous n'avons toujours pas vu tes procédures pour comprendre la mauvaise utilisation que tu fais de tes variables
01/10/2016, 20h31
unparia

Bonjour
J'ai des difficultés à comprendre :

Citation:

pour que la macro se déploie

Citation:

pour le déroulement de la variable

Citation:

la conversion de texte en date me parait toujours pas active

ce que l'on dit ou écrit révèle souvent le caractère plus qu'approximatif de ce que l'on croit percevoir. :pleure:
Et que dire de :

Citation:

mais une erreur continue de persister

sans prendre au moins le soin de dire laquelle et sur quelle ligne de code !

1 pièce(s) jointe(s)

Voici le code complet :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
<div class="bbcode_container">
	<div class="bbcode_description">Citation:</div>
	<div class="bbcode_quote printable">
		<hr />
 
			Private Sub CommandButton1_Click()
'Déclaration variable des 2 selections dates (et conversion en format date)
Dim MaDateDeb As Date
MaDateDeb = CDate(ComboBox3.Value)
 
Dim MaDateFin As Date
MaDateFin = CDate(ComboBox4.Value)
 
 
    Dim Ligne As Long
    With Sheets("Listing")
        If Me.ComboBox1.Text <> "" And Me.ComboBox2.Text <> "" And _
            MaDateFin >= MaDateDeb And _
            Me.ListBox1.Value <> "" And Me.ListBox2.Value <> "" _
        Then
            Ligne = .Cells(.Rows.Count, 2).End(xlUp).Row
            For i = 0 To MaDateFin - MaDateDeb
                Ligne = Ligne + 1
                .Cells(Ligne, 2).Value = UCase(Me.ComboBox2.Text)
                .Cells(Ligne, 3).Value = MaDateDeb + i
                .Cells(Ligne, 4).Value = Me.ListBox1
                .Cells(Ligne, 5).Value = Me.ListBox2
                .Cells(Ligne, 6).Value = "EN ATTENTE"
                .Cells(Ligne, 7).Value = UCase(Me.ComboBox1.Text)
 
        'Si motif maternité, alors rajouter la période de maternité déjà validée
        If Me.ListBox1.Value = "MATERNITÉ" Then
                .Cells(Ligne, 2).Value = UCase(Me.ComboBox2.Text)
                .Cells(Ligne, 3).Value = MaDateDeb + i
                .Cells(Ligne, 4).Value = Me.ListBox1
                .Cells(Ligne, 5).Value = "JOURNÉE"
                .Cells(Ligne, 6).Value = "XXXXX"
                .Cells(Ligne, 7).Value = UCase(Me.ComboBox1.Text)
 
                End If
           'Si motif listé, alors rajout la ligne pour la reprise à vérifier
            If Me.ListBox1.Value = "MALADIE" _
            Or Me.ListBox1.Value = "MALADIE PROFESSIONNELLE" _
            Or Me.ListBox1.Value = "MATERNITÉ" _
            Or Me.ListBox1.Value = "ARSM" _
            Or Me.ListBox1.Value = "ACCIDENT DE TRAVAIL" Or Me.ListBox1.Value = "ACCIDENT DE TRAJET" _
            Or Me.ListBox1.Value = "CONGÉ PATERNITÉ" Or Me.ListBox1.Value = "MI-TEMPS THÉRAPEUTIQUE" Then
                    .Cells(Ligne + 1, 2).Value = UCase(Me.ComboBox2.Text)
                    .Cells(Ligne + 1, 3).Value = MaDateFin + 1
                    .Cells(Ligne + 1, 4).Value = Me.ListBox1
                    .Cells(Ligne + 1, 5).Value = "REPRISE ???"
                    .Cells(Ligne + 1, 6).Value = "EN ATTENTE"
                    .Cells(Ligne + 1, 7).Value = UCase(Me.ComboBox1.Text)
                End If
            Next i
        Else
MsgBox "Saisie invalide et non enregistrée !!!" & Chr(10) & Chr(10) & "Merci de contrôler la saisie avant l'enregistrement." _
, vbQuestion, "XXXXXXXXXX"
 
        End If
   End With
 End Sub
 
		<hr />
	</div>
</div>

En cliquant sur le bouton "enregistrer" j'ai visiblement une erreur sur la ligne :
For i = 0 To MaDateFin - MaDateDeb

Pièce jointe 221680

01/10/2016, 22h19
joe.levrai

Ton erreur est difficilement associable à ton problème de date :weird:

L'erreur semble indiquer que tu as, par exemple des références de bibliothèques "manquantes", ou a des contrôles appartenant à un projet qui n'est pas ouvert

n'aurais-tu pas testé sur ce projet des contrôles non standards qui nécessitaient de cocher des références dans ton éditeur de code ?

J'ai pris ta procédure brute, je l'ai mise dans un fichier vierge, sur un useform où j'ai posé 4 combobox, 2 listbox, 1 optionbutton

jai mis une date bidon dans chaque combobox, et des textes aléatoires dans les listbox

Aucun souci, la soustraction de tes deux dates est bien un nombre entier, et j'ai un reporting qui apparait sur la feuille excel
02/10/2016, 00h22
unparia

Bonjour
Cela peut également "sentir" un conflit entre des contrôles pour 32 bits et une version Office 64 bits.
02/10/2016, 06h01
Docmarti

Bonjour.

Arrete l'execution du code.
Va dans le menu Outils/Reference.
Decoche les references manquantes.
02/10/2016, 08h11
chipster62

1 pièce(s) jointe(s)

Un très grand merci, il fallait bien décocher 1 référence manquante qui n'était pas dans ma vision de la réflexion.

Merci à tous ceux qui ont participé

:yaisse:

Il n'y a plus qu'à tester sur le PC du boulot...

Pièce jointe 221695