copie de option bouton

[nrdz83]

Bonsoir à tous et avant tout merci à tous pour les aides que vous nous apportez.
Ce soir je me permet de toquer à la porte car j'aurais besoin d'aides, voila mon problèmes.
Je sui en trein de me faire une base de données avec saisie via un userform,j'ai réussi au 3/4, ce que je n'arrive pas à faire c'est que j'ai un choix de sept option bouton regroupez dans un frame et je voudrais que ça me copie le choix de l'option bouton (par exemple major) dans la cellule grade de ma base de données et idem pour mon groupe qualifications.
D'avance je vous remercie d'avance, mes amitiés franck

 

[Cousinhub]

Re : copie de option bouton

Bonsoir,

regarde le fichier joint, j'ai modifié un peu le code, et rajouté la qualification (BM, BS, BAT, CAT)
Au fait t'aurais pas oublié "OPELEM" ?

 

[nrdz83]

Re : copie de option bouton

RE bonsoir super c'est juste ce que je cherchais au top un tre sgrand merci maintenant je vais essayer de comprendre comment tu as fais pour les prochaines fois.
Tu me parles d' OPELEM excuse moi je comprend pas ce que c'est ? desolé je débute , merci de m'expliquer mes amitiés bye

 

[kjin]

Re : copie de option bouton

Bonsoir,
Je me suis permis de modifier le nom des Contrôles
A+
kjin

Edit : trop fort BHbh, je connais mieux les frames maintenant.Merci

 

[Cousinhub]

Re : copie de option bouton

Bonsoir,
étant également de la boîte, il existe également des "OPELEM", non CAT

J'ai de nouveau modifié le code :

Si le grade n'est pas renseigné, msgbox, ainsi que pour la qualif

Private Sub Cmdok_Click()
    For Each ctrl In Controls
        If TypeName(ctrl) = "TextBox" Then
            If ctrl = "" Then
                MsgBox "vous devez renseigner : " & Right(ctrl.Name, Len(ctrl.Name) - 3)
                ctrl.SetFocus
                Exit Sub
            End If
        End If
    Next
    For Each ctrl In Controls
        If TypeName(ctrl) = "OptionButton" Then
            If ctrl And ctrl.GroupName = "Groupgrades" Then
                Grades = ctrl.Caption
                Exit For
            End If
        End If
    Next
    If Grades = "" Then
        MsgBox "veuillez renseigner le grade": Exit Sub
    End If
    For Each ctrl In Controls
        If TypeName(ctrl) = "OptionButton" Then
            If ctrl And ctrl.GroupName = "qualifications" Then
                Qualif = ctrl.Caption
                Exit For
            End If
        End If
    Next
    If Qualif = "" Then
        MsgBox "Veuillez renseigner la qualification": Exit Sub
    End If
    ' Conversion du nom et prénom en NOMPRPRE   qualifications
    Nomconverti = Application.WorksheetFunction.Proper(Me.txtnom.Text)
    Prenomconverti = Application.WorksheetFunction.Proper(Me.txtprenom.Text)
    ' Mise en place des valeurs saisies
    derlig = [A65000].End(xlUp).Row + 1
    Cells(derlig, 1) = Nomconverti
    Cells(derlig, 2) = Prenomconverti
    Cells(derlig, 3) = Grades
    Cells(derlig, 4) = txtmatricule
    Cells(derlig, 5) = txtadresse
    Cells(derlig, 6) = txtcodepostal
    Cells(derlig, 7) = txtville
    Cells(derlig, 8) = txttelephone
    Cells(derlig, 9) = Qualif
    ' On décharge le formulaire
    Unload Me
End Sub

Edit, bonsoir Kjin, j'y avais pensé, mais vu qu'il avait fait tout ce travail, j'ai accepté le challenge...

 

[nrdz83]

Re : copie de option bouton

je vous remercie tous j'avais pas percuté pour les OPELEM il faut dire que ça change trop souvent lol et ou je suis il y en a pas donc desolé mais c'est top cette saisie pour ma base de données va me faciliter pas mal la vie, mais encore du pain sur la planche pour la suite mais amitiés et remerciement à tous bye

 

[Cousinhub]

Re : copie de option bouton

Re-,
je t'ai envoyé un message Privé, regarde en haut, à droite "Messages Privés"

Si tu as des soucis, reviens, pas de problèmes

 

[nrdz83]

Re : copie de option bouton

je m'aperçois que tous les codes on quasiement changés ,juste une question ce que j'avais fait étais ce correct ou il allait y avoir des bugs ? merci

 

[Cousinhub]

Re : copie de option bouton

Re-,
non, rassures-toi, tes codes étaient bons, mais ici, le challenge est de diminuer au maximum les code, qu'il y ait le moins de lignes possibles... 😎
C'est juste pour le fun 😛

Et encore, on pourrait le raccourcir encore, j'y travaille....😉

Edit : quoique, pas sûr du résultat, donc je vais le laisser en l'état

 

[nrdz83]

Re : copie de option bouton

merci pour ta réponse je vais donc examiner ces codes et bravo pour le fun alors les gars bye