application gestion permis de conduire

[zebest]

bonjour , je suis informaticien de la gendarmerie...
en faite je suis en charge de mettre en place une application nous permettant d'informatiser la gestion des brevet militaire (permis de conduire chez les civils). De ce fait étant pas un pro en développement d'application, je me joins à vous pour vous demander des suggestions et amélioration sur ce que j'ai pu faire.Mon travail figure en PJ. je suis aussi preneur si vous pouvez aussi me peaufiner le travail .... merci d'avance

 

[VIARD]

Bonjour Zebest et à tous

Je n’ai pas eu d’écho du précédent message.
Voici la dernière mouture.
Je l’ai complété, par une fiche individuelle, à découvrir.


A+ Jean-Paul

 

[zebest]

désolé Jean Paul de n'avoir pas répondu assez tôt à votre message... ces temps ci j'étais trop pris mais actu je suis libre... sinon pour la dernière monture il n'y a pas de bouton pour ajouter la photo.

 

[VIARD]

Bonjour Zebest et à tous

effectivement il n'y a pas de bouton, la sélection se fait directement via la listBox, une fois choisi valider par "Enregistrer".
(on peut faire défilé toutes les photos, c'est la dernière choisie qui sera validée).

Salutation
Jean-Paul

 

[zebest]

bonjour je souhaiterais savoir comment vous avvec fais pour transformer ces cellules en lien

 

[VIARD]

Bonsoir Zebest

l'explication: les 3 cellules sont des cellules nommées, peu importe lors position dans le formulaire "Accueil",
et le code événementiel est dans cette feuille.

Private Sub Worksheet_beforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim Feuille As Variant, Toto As String

Feuille = ActiveSheet.Name
Sheets(Feuille).Activate
Toto = Target.Value
'----------- Traitement --------------
    If Toto = "LANCEMENT" Then
        Sheets("Feuil1").Activate
        Sheets("Feuil1").Range("A10").Select
    ElseIf Toto = "ENREGISTREMENT" Then
        Call Enregistrement.Show
    ElseIf Toto = "CONSULTATION" Then
        Call OuvreUserForm2
    Else
        Exit Sub
    End If
'--------------------------------------
Cancel = True
End Sub

Salutation et bonne nuit
Jean-Paul

 

[VIARD]

Bonjour Zebest et à tous


Je viens de voir qu’il y avait un défaut sur la fonction "Supprimer".
De l’user "Consultation".
De faite, la suppression de la ligne entière du formulaire au niveau du tableau,
Perturbait également la fiche individuelle.
J’ai donc corrigé, seul la ligne du tableau est modifiée sans toucher à la fiche.
Tout est rentré dans l’ordre.
J’en ai profité pour isolé la commande "Fiche"

Amicalement
Jean-Paul