Discussion :

[tophessa]

Bonjour,

Débutant en vba, je me retrouve bloqué dans la création de mon formulaire.

Je vais essayer de vous expliquer simplement mon problème pour que vous puissiez comprendre. J'ai donc un userform qui me permet de gérer des patients (Nom, prénom..). Ce userform contient 3 boutons de commande qui sont nouveau, modifier et quitter.
Mon problème se situe avec des optionbuttons qui sont insérés dans des frames (J'en ai 4 avec par exemple fiche de renseignements signée ou non signée etc). Quand j'insère un nouveau patient, j'ai trouvé la programmation à mettre en place pour qu'il ajoute à ma feuille excel les valeurs entrées dans les optionbutton. Par contre, si je souhaite modifier la fiche d'un patient, les optionbutton sont vides car je n'arrive pas à récupérer la valeur de ma feuille excel. Je ne sais pas si je suis très clair. Ensuite, une fois que cette fonction sera fonctionnelle, j'aimerai pouvoir modifier la valeur et la récupérer dans ma feuille.

Merci par avance pour votre aide
Je vous joints mon fichier pour que ça vous parle un peu plus.

[Philippe Tulliez]

Bonjour,
Une réponse peut-être dans cette contribution USERFORM - Créer, Consulter, Modifier et Supprimer des enregistrements à l'aide d'un formulaire

Voir notamment comment sont initialisés dans la procédure de lecture des enregistrements et à l'inverse à l'écriture de ceux-ci, les contrôles OptionButton nommés respectivement optFemale et optMale.

[gnain]

Bonjour.
Pour trouvé et modifier la ligne trouvé

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
For i = 3 To Range("A" & Rows.Count).End(xlUp).Value
    If ComboBox1.Text = Cells(i, 1).Value And TB35.Text = Cells(i, 2).Value Then
        Range("A" & i).Value = TB34 'Insère la donnée de la liste déroulante dans la colonne A
        Range("B" & i).Value = TB35 'Insère la donnée de la ComboBox2 dans la colonne B
        Range("C" & i).Value = TB7 'Correspond à la liste déroulant "Maison d'arrêt"
        Range("D" & i).Value = CNIL
        '.......
 
        Exit For
    End If
Next

[Invité]

Bojour regarde ton fichier joint, c'est juste une piste que tu peux creusé!

[tophessa]

Merci à tous pour vos réponses.
Je regarde ça dès que j'ai un peu de temps.