Valider données saisies dans un USERFORM

Version imprimable

16/05/2015, 19h16
a02halo

Valider données saisies dans un USERFORM

Bonjour à tous,

J'essaye actuellement de gérer un petit planning de réservation de chambre à l'aide d'un userform.
Grâce à l'aide d'internet j'ai réussi à faire pas mal de choses (éviter double réservations, gestion des chambres...etc)

Cependant je rencontre encore un petit problème et cela va faire plusieurs heures que je trîme. La saisie des visiteurs se fait à l'aide d'un Userform, ce userform venant compléter un onglet journal (qui contient un tableau tout bête) qui lui même agit sur le planning (le planning quand à lui..ressemble à un planning). Lorsque je valide le Userform les bonnes cases viennent se compléter dans le journal sauf que voilà : les données saisies ne sont pas prises en compte et il faut que je revienne double cliquer et faire entrer sur les cellules modifiées journal. J'aimerais que cela se fasse automatiquement.

J'ai essayé d'enregistrer F2 + Enter avec l'enregistreur de macro mais cela ne résoud pas le problème.
J'ai essayé les sendkeys mais sans succès (m'y suis-je peut être mal pris)

Je voudrais donc avoir votre avis, si quelqu'un peut m'aider ou me rediriger.

Merci à tous !
17/05/2015, 10h18
OBO29

Bonjour,

Afficher ton code plutôt que de mettre ton fichier en pièce jointe sera bien plus efficace si tu souhaite obtenir de l'aide.
Pas testé, tu peux essayer ça après ta validation de données.

Code:

Application.Calculate

Bonne continuation,
17/05/2015, 14h00
Sebphyto

Bonjour A vous,

J'ai pas bien compris ton problème, mais voici une ébauche de ton code revue avec des userform nommés comme ils se doivent, ainsi que textbox, combox etc...

J'ai également supprimé un usf "Valider" et remplacé par un Msgbox

A toi de voir et revient nous dire

Voici le fichier en PJ

Seb

Bonjour à vous et merci pour vos aides.
Pour être plus précis :
Lorsque l'on rentre des données à la main dans l'onglet journal ces données viennent remplir le planning contenu dans l'onglet "planning" et les jours de réservations se colorent.
Lorsque je passe par un userform les données viennent bien dans l'onglet journal mais elles ne sont pas prises en compte dans l'onglet "planning".

J'ai essayé cette nouvelle version que vous m'avez fait parvenir (merci beaucoup d'ailleurs d'avoir cleané mon code) ainsi que le "Application.Calculate" et ce, sans succès. Donc je suis encore à la recherche d'une aide :/ (merci beaucoup déjà de ce que vous avez fait)

Je vous joins le code cleané par SebPhyto afin que vous puissiez m'aider:

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
67
68
69
70
71
72
73
74
75
76
77
78
79
 
Private Sub CmBEnvoyer_Click()
Dim Derlign As Long
Dim Lig As Long
 
 
TBArrivee.Value = Format(TBArrivee.Value, "dd/mm/yy")
TBDepart.Value = Format(TBDepart.Value, "dd/mm/yy")
 
If Me.CBoxMaintenance.Value = True Then
 
With Worksheets("journal")
Derlign = .Range("a65536").End(xlUp).Row + 1
            .Cells(Derlign, 1).Value = TBArrivee
            .Cells(Derlign, 2).Value = TBDepart
            .Cells(Derlign, 3).Value = "Maintenance"
            .Cells(Derlign, 4).Value = "Maintenance"
            .Cells(Derlign, 6).Value = CBChambre
            .Cells(Derlign, 8).Value = "Maintenance"
 
End With
 
End If
 
If Me.CBoxMenage.Value = True Then
 
With Worksheets("journal")
Derlign = .Range("a65536").End(xlUp).Row + 1
            .Cells(Derlign, 1).Value = TBArrivee
            .Cells(Derlign, 1).Activate
            .Cells(Derlign, 2).Value = TBDepart
            .Cells(Derlign, 2).Activate
            .Cells(Derlign, 3).Value = "Maintenance"
            .Cells(Derlign, 4).Value = "Maintenance"
            .Cells(Derlign, 6).Value = CBChambre
            .Cells(Derlign, 8).Value = "Maintenance"
 
   End With
End If
 
With Worksheets("journal")
Derlign = .Range("a65536").End(xlUp).Row + 1
            .Cells(Derlign, 1).Value = TBArrivee
            ActiveCell.FormulaR1C1 = TBArrivee
            .Cells(Derlign, 2).Value = TBDepart
            ActiveCell.FormulaR1C1 = TBDepart
            .Cells(Derlign, 3).Value = TBNom
            .Cells(Derlign, 4).Value = TBPrenom
            .Cells(Derlign, 6).Value = CBChambre
            .Cells(Derlign, 8).Value = TBIdVisiteur
End With
 
rep = MsgBox("Voulez-vous confirmer la saisie du nouveau client?", vbYesNoCancel + vbExclamation + vbDefaultButton2, "Validation des données")
 
If rep = vbYes Then
 
    Unload Me 'on ferme userform
Else
    If rep = vbNo Then
 
        With Worksheets("journal")
            Lig = .Range("A" & Rows.Count).End(xlUp).Row
                .Cells(Lig, 1).Value = ""
                .Cells(Lig, 2).Value = ""
                .Cells(Lig, 3).Value = ""
                .Cells(Lig, 4).Value = ""
                .Cells(Lig, 6).Value = ""
                .Cells(Lig, 8).Value = ""
        End With
 
        UsfSaisieNouv.Hide
 
    End If
 
End If
 
'UsfValider.Show
 
   End Sub

Merci d'avance

17/05/2015, 22h51
Sebphyto

Re,

Pourrais-tu mettre de l'ordre dans tes mise en forme conditionnelle??? :weird:

Car c le capharnaüm!!!!

Pourquoi deux feuilles "planning" et "mai", comment génères-tu le feuille "Mai", tu l'as crée chaque mois, ou elle se créait toute seule?

Tu voudrais que lors de la saisie dans usf, la feuille "Mai" ou "planning" (à toi de dire laquelle???) se remplisse en fonction de la feuille "journal"?

Pour info, Je t'ai rajouter un bouton "Nouveau Client" sur la feuille "Journal"

Pour ce qui est du "Click-droit" pour savoir qui, je ne me suis pas encore penché dessus, mais à ce que je peux voir, tu as 2 feuilles de planning:
- feuil1 "planning"
- feuil2 "Mai"

Mais tu utilises laquelle en faite??

Seb, je reviens vers toi après tes explications!!!!! :roll:

Bonjour,

Je me contente ici de répondre à ta problématique première.

Ton fichier ne fonctionne pas car le format d'écriture dans les cases n'est pas le bon.

Voici ton code corrigé mais il reste des choses à faire (gérer le annuler pas exemple...).

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
 
 
Private Sub UsfSaisieNouv_Initialize()
      Me.CBChambre.RowSource = "planning!num_chambre"
End Sub
 
Private Sub CmBEnvoyer_Click()
    Dim Derlign As Long
    Dim Lig As Long
    Dim Sh_Journal As Excel.Worksheet
    Dim Rep As Integer
 
    ThisWorkbook.Activate
    Set Sh_Journal = ThisWorkbook.Sheets("journal")
 
    TBArrivee.Value = Format(TBArrivee.Value, "dd/mm/yy")
    TBDepart.Value = Format(TBDepart.Value, "dd/mm/yy")
 
    If Me.CBoxMaintenance.Value = True Then
        Derlign = Sh_Journal.Range("a65536").End(xlUp).Row + 1
        Sh_Journal.Cells(Derlign, 1).Value = CDate(TBArrivee)
        Sh_Journal.Cells(Derlign, 2).Value = CDate(TBDepart)
        Sh_Journal.Cells(Derlign, 3).Value = "Maintenance"
        Sh_Journal.Cells(Derlign, 4).Value = "Maintenance"
        Sh_Journal.Cells(Derlign, 6).Value = CInt(CBChambre)
        Sh_Journal.Cells(Derlign, 8).Value = "Maintenance"
    End If
 
    If Me.CBoxMenage.Value = True Then
        Derlign = Sh_Journal.Range("a65536").End(xlUp).Row + 1
        Sh_Journal.Cells(Derlign, 1).Value = CDate(TBArrivee)
        Sh_Journal.Cells(Derlign, 2).Value = CDate(TBDepart)
        Sh_Journal.Cells(Derlign, 3).Value = "Menage"
        Sh_Journal.Cells(Derlign, 4).Value = "Menage"
        Sh_Journal.Cells(Derlign, 6).Value = CInt(CBChambre)
        Sh_Journal.Cells(Derlign, 8).Value = "Menage"
    End If
 
    Derlign = Sh_Journal.Range("a65536").End(xlUp).Row + 1
    Sh_Journal.Cells(Derlign, 1).Value = CDate(TBArrivee)
    Sh_Journal.Cells(Derlign, 2).Value = CDate(TBDepart)
    Sh_Journal.Cells(Derlign, 3).Value = TBNom
    Sh_Journal.Cells(Derlign, 4).Value = TBPrenom
    Sh_Journal.Cells(Derlign, 6).Value = CInt(CBChambre)
    Sh_Journal.Cells(Derlign, 8).Value = TBIdVisiteur
 
    Rep = MsgBox("Voulez-vous confirmer la saisie du nouveau client?", vbYesNoCancel + vbExclamation + vbDefaultButton2, "Validation des données")
 
    If Rep = vbYes Then
        Unload Me 'on ferme userform
    Else
        If Rep = vbNo Then
            Lig = Sh_Journal.Range("A" & Rows.Count).End(xlUp).Row
            Sh_Journal.Cells(Lig, 1).Value = ""
            Sh_Journal.Cells(Lig, 2).Value = ""
            Sh_Journal.Cells(Lig, 3).Value = ""
            Sh_Journal.Cells(Lig, 4).Value = ""
            Sh_Journal.Cells(Lig, 6).Value = ""
            Sh_Journal.Cells(Lig, 8).Value = ""
            UsfSaisieNouv.Hide
        End If
    End If
 
    'UsfValider.Show
End Sub

Bonne continuation.

N'oublie pas le :resolu: si c'est ok pour toi. Un :plusser: nous encourage ;).

Salut A vous,

merci pour ta solution ODO29, je n'i pas besoin d'aller plus loin car tu donnes la solution...

voici le code d'ODO avec des petits plus, genre vérification des contrôls de usf

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
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
Private Sub UsfSaisieNouv_Initialize()
      Me.CBChambre.RowSource = "planning!num_chambre"
End Sub
 
Private Sub CmBEnvoyer_Click()
    Dim Derlign As Long
    Dim Lig As Long
    Dim Sh_Journal As Excel.Worksheet
    Dim Rep As Integer
 
    ThisWorkbook.Activate
    Set Sh_Journal = ThisWorkbook.Sheets("journal")
 
    TBArrivee.Value = Format(TBArrivee.Value, "dd/mm/yy")
    TBDepart.Value = Format(TBDepart.Value, "dd/mm/yy")
 
    If Me.CBoxMaintenance.Value = True Then
        Derlign = Sh_Journal.Range("a65536").End(xlUp).Row + 1
        Sh_Journal.Cells(Derlign, 1).Value = CDate(TBArrivee)
        Sh_Journal.Cells(Derlign, 2).Value = CDate(TBDepart)
        Sh_Journal.Cells(Derlign, 3).Value = "Maintenance"
        Sh_Journal.Cells(Derlign, 4).Value = "Maintenance"
        Sh_Journal.Cells(Derlign, 6).Value = CInt(CBChambre)
        Sh_Journal.Cells(Derlign, 8).Value = "Maintenance"
    End If
 
    If Me.CBoxMenage.Value = True Then
        Derlign = Sh_Journal.Range("a65536").End(xlUp).Row + 1
        Sh_Journal.Cells(Derlign, 1).Value = CDate(TBArrivee)
        Sh_Journal.Cells(Derlign, 2).Value = CDate(TBDepart)
        Sh_Journal.Cells(Derlign, 3).Value = "Menage"
        Sh_Journal.Cells(Derlign, 4).Value = "Menage"
        Sh_Journal.Cells(Derlign, 6).Value = CInt(CBChambre)
        Sh_Journal.Cells(Derlign, 8).Value = "Menage"
    End If
 
    Derlign = Sh_Journal.Range("a65536").End(xlUp).Row + 1
    Sh_Journal.Cells(Derlign, 1).Value = CDate(TBArrivee)
    Sh_Journal.Cells(Derlign, 2).Value = CDate(TBDepart)
    Sh_Journal.Cells(Derlign, 3).Value = TBNom
    Sh_Journal.Cells(Derlign, 4).Value = TBPrenom
    Sh_Journal.Cells(Derlign, 6).Value = CInt(CBChambre)
    Sh_Journal.Cells(Derlign, 8).Value = TBIdVisiteur
 
    Rep = MsgBox("Voulez-vous confirmer la saisie du nouveau client?", vbYesNoCancel + vbExclamation + vbDefaultButton2, "Validation des données")
 
    If Rep = vbYes Then
        Unload Me 'on ferme userform
    Else
        If Rep = vbNo Then
            Lig = Sh_Journal.Range("A" & Rows.Count).End(xlUp).Row
            Sh_Journal.Cells(Lig, 1).Value = ""
            Sh_Journal.Cells(Lig, 2).Value = ""
            Sh_Journal.Cells(Lig, 3).Value = ""
            Sh_Journal.Cells(Lig, 4).Value = ""
            Sh_Journal.Cells(Lig, 6).Value = ""
            Sh_Journal.Cells(Lig, 8).Value = ""
            UsfSaisieNouv.Hide
        End If
    End If
'*********************************************************************
'Vérification des contrôles non vide
'*********************************************************************
 
'sélection du numéro de chambre
'S'il n'y a pas eu de choix, le list index est à -1
If CBChambre.ListIndex = -1 Then
MsgBox ("Quel numéro de chambre ?")
Exit Sub
End If
 
'vérif nom
If TBNom.Value = "" Then
MsgBox ("quel est le nom du client ?")
Exit Sub
End If
 
'Vérif prénom
If TBPrenom.Value = "" Then
MsgBox ("quel est le prénom du client ?")
Exit Sub
End If
 
'Vérif ID Client
If TBIdVisiteur.Value = "" Then
MsgBox ("Renseignez un Id Client ?")
Exit Sub
End If
 
'Vérif Date départ
If TBDepart.Value = "" Then
MsgBox ("Il faut indiquer la date de départ !")
Exit Sub
Else
MaDate = CDate(TBDepart.Value)
End If
 
'Vérif Date Arrivée
If TBArrivee.Value = "" Then
MsgBox ("Il faut indiquer la date d'arrivée !")
Exit Sub
Else
MaDate = CDate(TBArrivee.Value)
End If
 
 
    'UsfValider.Show
End Sub

Perso dans ton usf j'aurai intégré un calendrier afin de ne pas à avoir à saisir manuellement la date mais juste en cliquant dessus (je peux t'aider à ce sujet).

Pour le click droit dans le planning, je regarde le code pour que cela fonctionne correctement.

A+ seb

20/05/2015, 08h31
a02halo

Je vous remercie tous beaucoup,

Finalement j'ai utilisé vos corrections pour créer une partie " mettre la chambre en statut ménage ou statut maintenance" puisque je me suis rendu compte que finalement les utilisateurs préféraient faire un copier/coller directement depuis un autre fichier excel.

J'aimerais savoir (avant de mettre cette discussion en résolu :) ) si quelqu'un pouvait m'aider également sur les mise en forme conditionnelles. En effet lorsque je valide une date cela remplit les cases avec des "1" (et la mise en forme conditionnelle qui va avec apparaît). J'aimerais que lorsque via le userform l'utilisateur passe la chambre en statut ménage cela remplisse les cases de "2" , me permettant ainsi de différencier le code couleur avec des deux.

Je ne me suis pas chargé de la partie mise en forme conditionnelle ( :/ ) et je suis donc un peu largué... Ce qui me pose problème ce n'est pas de créer une nouvelle règle mais de faire remplir les cases par des "2". J'ai cru comprendre que cela avait un rapport avec les données nommées "lig" situées en AO7 sur l'onglet "journal".
(et oui seb juste après je m'occupe de cleaner cette partie pour qu'il y ait moins de règles et que cela soit plus agréable tu as bien raison.)

Pour ce qui est des différents onglets j'ai décidé de gérer cela avec juste l'onglet planning. Je rajouterais d'autres onglets simplement pour permettre une vue plus précise (il y a 500 chambres à gérer donc j'essaye que les mecs puissent avoir une vue quelque peu zoomée).

Je vous remercie par avance mais surtout pour tout ce que vous avez fait :)
20/05/2015, 22h20
Sebphyto

un petit +

Re,

Je voulais juste te fournir la version 4 du fichier avec saisie date par calendrier, si cela t'intéresse....

En cliquant dans textbox arrivée et Départ, tu as un calendrier qui apparaît, et tu as juste à cliquer sur la date...

En espérant t'avoir aidé

A bientôt :)