aide sur user form

[nic81]

Bonsoir

j'ai utilisé un user form que j'ai trouvé sur le forum, je l'ai modifié (bien que ne connaissant pas le VBA)

j'ai fait une grande case pour dates et je souhaiterais un retour ligne automatique chaque fois que l' on arrive à la limite de la case

Merci si vous pouvez m'aider

je vous joint le fichier

bonne soirée

 

[Regueiro]

Re : aide sur user form

Bonsoir nic81
Tu vas dans visual basic, sur ton Userform nommée "Frmnath"
Ensuite tu sélectionnes ton TexBox15.
Dans la fenêtre propriété tu changes Multigne = True.
Et c'est Ok
A+

 

[Regueiro]

Re : aide sur user form

Re
En PJ ton fichier avec une modification. ( Amélioration ??)
Dans ton USF lorsque tu saisie le sexe ( Féminin ou Masculin ).
Celui-ci vient directement se mettre en colonne P
Bonne Soirée

    '.Cells(K, "p").Offset(1).Value = Me.féminin.Value * -1
    '********************************
    Dim Ctrl As Control
    
    For Each Ctrl In FrameSexe.Controls
        If Ctrl.Object.Value = True Then
            MsgBox Ctrl.Object.Caption
            .Cells(K, "p").Offset(1).Value = Ctrl.Object.Caption
            Exit For
        End If
    Next Ctrl
    '*******************************

 

[nic81]

Re : aide sur user form

Bonsoir Regueiro

Je te remercie beaucoup pour ton aide ainsi que d'avoir regardé mon fichier afin de me proposer une amélioration qui est super

c'est parfait pour moi

Encore merci

Bonne après-midi et bon WE

 

[Regueiro]

Re : aide sur user form

Bonjour nic81,
De rien.
Cela m'a fait plaisir de transmettre également le peu de savoir-faire que je connais sur VBA.
J'ai tellement reçu d'aide sur ce Forum, alors dès que l'occasion se présente je partage.
A la prochaine.
Bon Week-End

 

[nic81]

Re : aide sur user form

bonsoir

Regueiro si tu es en ligne, j'ai un petit problème, quand on recherche une fiche patient avec l'user form le sexe coché est toujours masculin, j'aimerais que ce soit la vérité qui s"affiche.

j 'adresse le fichier

merci de ton aide ou de celle d'une autre personne du forum

bonne après-midi

cordialement

 

[Regueiro]

Re : aide sur user form

Bonsoir nic81
Tu n'as pas ton fichier en PJ ( Pièces Jointe )
Mais pas grave.
Voilà le code que j'ai modifié et fonctionne chez moi.

'Bouton radio sur le sexe des patients
'1 = Homme, 0 = Femme
'If Rg(MonIndex, 16) = 1 Then
'****************************************
If Rg(MonIndex, 16) = "Féminin" Then
    Me.féminin.Value = True
    Me.masculin.Value = False
End If
    
If Rg(MonIndex, 16) = "Masculin" Then
    Me.féminin.Value = False
    Me.masculin.Value = True
End If

If Rg(MonIndex, 16) = "" Then
    Me.féminin.Value = False
    Me.masculin.Value = False
End If

Je te joins mon fichier.
A+
Bonne soirée

 

[nic81]

Re : aide sur user form

Bonjour Regueiro

Merci beaucoup de ton aide cela fonctionne très bien

Bonne journée

Cordialement