Formulaire

[Yacine]

Bonjour tout le monde;

Dans le fichier ci-joint j'ai créé un formulaire afin de gérer un projet, donc je vous prie de bien vouloir m'aider à mettre en place ce formulaire dont vous trouverez de plus amples informations sur la feuille1 du fichier joint.

Je vous remercie d'avance pour vôtre aide.

 

[Gruick]

Re : Formulaire

Bonjour Yacine,

Pour faire grossir les labels, c'est dans la fenêtre propriétés qu'il faut aller régler tout ça. Je ferai grossir un peu tout, car j'ai un cousin qui a 29 lettres dans son nom, avec 3 espaces. Ah les nobles !!! Manquerait plus qu'il soit lieutenant colonel !!!

Il y a 2 labels compagnie dans ton USF, donc je suppose qu'il faut faire 2 listes identiques. On pourrait également faire ça pour le grade, d'ailleurs.
Il faut alors utiliser des Combobox. (zones de liste modifiable).

Je verrai cela demain.

Repos

Gruick

 

[jp14]

Re : Formulaire

Bonsoir

Ci dessous le fichier avec les procédures pour gérer la base de données.
J'ai renommé les textbox et combobox pour avoir une relation logique entre le numéro des contrôles et des colonnes.

Pour modifier il faut cliquer deux fois sur la ligne dans la colonne A
J'ai utilisé des combobox pour les données qui peuvent être répétitive.

Pour les dates on pourrait utiliser le contrôle DtPicker

Un fil avec des procédures similaires
https://www.excel-downloads.com/threads/userform-et-multipage.112457/

A tester
A modifier

 

[Yacine]

Re : Formulaire

Merci beaucoup mais j'ai un problème avec les "Heure arrivée" et "Heure Départ" j'ai un message d'erreur qui dit que la "zone doit être une date"

 

[jp14]

Re : Formulaire

Bonsoir

Message annulé

 

[jp14]

Re : Formulaire

Bonsoir

Il faut modifier les procédures

Private Function controldonnee()

If controledata([COLOR="red"]4[/COLOR], "TextBox7") = 1 Then
    controldonnee = 1
    Exit Function
End If

If controledata([COLOR="red"]4[/COLOR], "TextBox13") = 1 Then
    controldonnee = 1
    Exit Function


procédure à modifier
Private Function controledata(£type As Byte, £controle As String)

 .............................................  
    Case 3 ' zone date
        If .Value = "" Then Exit Function
        If Not IsDate(.Value) Then
            Call MsgBox("La zone " _
                        & vbCrLf & "doit être une date[COLOR="red"]  : jj/mm/aaaa[/COLOR]" _
                        & vbCrLf & "" _
                        , vbCritical, Application.Name)
            
            .SetFocus
            controledata = 1
            Exit Function
        End If

et rajouter 
[COLOR="red"]
    Case 4
         If .Value = "" Then Exit Function
        If Not IsDate(.Value) Then
            Call MsgBox("La zone " _
                        & vbCrLf & "doit être de la forme hh:mm" _
                        & vbCrLf & "" _
                        , vbCritical, Application.Name)
            
            .SetFocus
            controledata = 1
            Exit Function
        End If
 [/COLOR]   
    End Select
End With
End Function

JP

 

[Yacine]

Re : Formulaire

Bonjour

Ya un petit problème que je n'arrive pas à régler, c lors de la modification de ma base de données (en cliquant sur la colonne A de la ligne à modifier) je reçois un message d'erreur donc impossible de modifier la ligne.

D'un autre côte, lors de la saisie, il reconnait que le (M.) quand je coche la civilité, il ne me ramène pas (Mme) et (Mlle), donc je vous prie de m'aider à rectifier ces erreurs.

et aussi lors de la modification, dans les zones de saisies des heures elle se transforment en chiffres.

et si c possible je voudrais que les dates soient saisies automatiquement (avec la souris).

Merci Beaucoup d'avance et bonne journée à tous.

 

[Yacine]

Re : Formulaire

J'ai réglé le problème des frames (Mme) et (Mlle) il ne reste que le prob de modification de la BD

 

[jp14]

Re : Formulaire

Bonjour

Ci joint une nouvelle version

J'ai rajouté de DTPicker pour afficher la date.
J'utilise un TextBox et un DTPicker quand l'un est visible le deuxième est invisible et vice versa.

J'utilise cette technique pour avoir la possibilité d'une cellule vide.

Les messages d'erreur affiche le nom de la zone concernée.

Ligne à modifier pour que le bouton modification fonctionne
Call ecrirebdd(ActiveCell.Row, ActiveCell.Worksheet.Name)

A tester

JP

 

[Yacine]

Re : Formulaire

Cool Jp14 merci beaucoup mais ya toujours le problème des horaires (heure de départ et heure de retour) lors de la modification, les heures redeviennent des chiffres

 

[jp14]

Re : Formulaire

Bonsoir

Je n'ai pas observé ce problème.
Une piste pour éventuellement résoudre le problème : vérifier si le format des colonnes est bien une date.

JP

 

[Yacine]

Re : Formulaire

re jp
Saisis un horaire dans heure de départ puis valide après double clique sur la colonne A pour modifier et observe la case "heure de départ"

 

[jp14]

Re : Formulaire

Bonjour

Ci dessous la procédure à modifier pour afficher le format pour les heures.

Private Sub ecrireTextbox(£ligne1 As Long, £nomfeuille1 As String)
' Nom des label
' Label  numéro d'ordre= numéro colonne

With Sheets(£nomfeuille1)

For Each £Ctrl In Me.Controls
    Select Case TypeName(£Ctrl)
        Case "TextBox"
            £coln = Val(Replace(£Ctrl.Name, "TextBox", ""))
            Select Case £coln
                Case 7, 13 ' format hh:mm
                Me.Controls(£Ctrl.Name).Value = Format(.Cells(£ligne1, £coln), "hh:mm")
                
                Case Else
                Me.Controls(£Ctrl.Name).Value = .Cells(£ligne1, £coln)
            End Select
        Case "ComboBox"
            £coln = Val(Replace(£Ctrl.Name, "ComboBox", ""))
           Me.Controls(£Ctrl.Name).Value = .Cells(£ligne1, £coln)
    End Select
Next £Ctrl
End With
End Sub

A tester

JP

 

[Yacine]

Re : Formulaire

Je te remercie beaucoup JP, tout marche à merveille, t vraiment un as.

 

[Yacine]

Re : Formulaire

salut jp, voilà je viens de m'apercevoir d'un petit problème concernant le formulaire que tu as conçu pour moi (vives remerciements) le problème est quand je mets une date dans le formulaire (par exemple le 05/03 dans ma base de données je reçois le 03/05) donc si tu peux y remédier à ça je te serai vraiment reconnaissant.

Merci par avance.

NB: se référer au fichier PSICF2