groupe d'option dans userform

Bonjour à tous,

J'ai créé un Userform multipage avec textbox combobox et optionButton avec frame.

Je saisi plusieurs fiches, les infos vont bien renseigner les différentes colonnes de ma feuille jusque là tout est ok.

Le problème est le suivant, lorsque je lance mon userform et que je fais défiler les enregistrements toutes les infos s'affichent sauf celles saisies en cochant les cases options. Exemple sur la fiche de Monsieur Martin je peux lire son nom prénom…. mais en ce qui concerne l'info Sexe si case Homme cochée à la saisie à la lecture de la fiche les deux options sont cochées et grisées. Je ne vois pas où est l'erreur. Merci pour votre aide et bonne journée.

Voici une partie du code du bouton valider

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72

Private Sub btnValider_Click() Dim sSexe As String Dim sOuiNon As String Dim sTutelle As String Dim sRefMed As String Dim sTempsVieRue As String Dim sCouvSoc As String Dim sMutuelle As String Dim sHeberg As String   'teste la valeur de l'option Sexe If OptionFemme.Value = True Then   'choix de l'option femme sSexe = "Femme" Else 'choix de l'option Homme sSexe = "Homme" End If   'Tester le bouton d'origine If gfboNouveau = True Then   'Affecter la nouvelle valeur à gfiligne. 'gfiLigne = gfiLigne + 1   'Se positionner dans la première ligne vide. ActiveCell.Offset(gfiLigne, 0).Value = libCode.Caption ActiveCell.Offset(gfiLigne, 1).Value = txtCreateur ActiveCell.Offset(gfiLigne, 2).Value = txtDateCreation ActiveCell.Offset(gfiLigne, 3).Value = cmbOriente ActiveCell.Offset(gfiLigne, 4).Value = txtNom ActiveCell.Offset(gfiLigne, 5).Value = txtPrenom ActiveCell.Offset(gfiLigne, 6).Value = sSexe ActiveCell.Offset(gfiLigne, 7).Value = txtDateNaiss ActiveCell.Offset(gfiLigne, 8).Value = txtAge   'Mémo de la nouvelle position gfiLigne = gfiLigne + 1 iPos = gfiLigne - 1   'Gestion affichage navigation. Call p_Nav   'Mise à jour du compteur. Range("AT1").Value = Range("AT1").Value + 1   Else   'Se repositionner dans la ligne en cours de modification. ActiveCell.Offset(iPos, 0).Value = libCode.Caption ActiveCell.Offset(iPos, 1).Value = txtCreateur ActiveCell.Offset(iPos, 2).Value = txtDateCreation ActiveCell.Offset(iPos, 3).Value = cmbOriente ActiveCell.Offset(iPos, 4).Value = txtNom ActiveCell.Offset(iPos, 5).Value = txtPrenom ActiveCell.Offset(iPos, 6).Value = sSexe ActiveCell.Offset(iPos, 7).Value = txtDateNaiss ActiveCell.Offset(iPos, 8).Value = txtAge   End If   'Appel de la procédure de blocage. Call p_Bloque   'Rénitialisation du Boleen. gfboNouveau = False   'Gestion de l'état des boutons. Call p_Ouverture   End Sub

---

Voici une partie du code du bouton lecture

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67

Public Sub p_Lecture_Ligne1()   'Lecture des données. libCode.Caption = ActiveCell.Offset(1, 0).Value txtCreateur = ActiveCell.Offset(1, 1).Value txtDateCreation = ActiveCell.Offset(1, 2).Value cmbOriente = ActiveCell.Offset(1, 3).Value txtNom = ActiveCell.Offset(1, 4).Value txtPrenom = ActiveCell.Offset(1, 5).Value OptionFemme = ActiveCell.Offset(1, 6).Value OptionHomme = ActiveCell.Offset(1, 6).Value txtDateNaiss = ActiveCell.Offset(1, 7).Value txtAge = ActiveCell.Offset(1, 8).Value txtLieuNaiss = ActiveCell.Offset(1, 9).Value cmbNationalite = ActiveCell.Offset(1, 10).Value txtPays = ActiveCell.Offset(1, 11).Value txtNSS = ActiveCell.Offset(1, 12).Value CmbSituationFamille = ActiveCell.Offset(1, 13).Value txtMemo1 = ActiveCell.Offset(1, 14).Value txtNomRef = ActiveCell.Offset(1, 15).Value cmbOrganismeR = ActiveCell.Offset(1, 16).Value txtPhone1 = ActiveCell.Offset(1, 17).Value txtNomRef2 = ActiveCell.Offset(1, 18).Value cmbOrganismeR2 = ActiveCell.Offset(1, 19).Value txtPhone2 = ActiveCell.Offset(1, 20).Value cmbRevenu = ActiveCell.Offset(1, 21).Value OptionOui = ActiveCell.Offset(1, 22).Value OptionNon = ActiveCell.Offset(1, 22).Value cmbdomiciliation = ActiveCell.Offset(1, 23).Value Txtmemo2 = ActiveCell.Offset(1, 24).Value txtNomProt = ActiveCell.Offset(1, 25).Value cmbOrganismeProt = ActiveCell.Offset(1, 26).Value txtPhone3 = ActiveCell.Offset(1, 27).Value Optiontutelle = ActiveCell.Offset(1, 28).Value Optioncuratelle = ActiveCell.Offset(1, 28).Value OptionMedoui = ActiveCell.Offset(1, 29).Value OptionMednon = ActiveCell.Offset(1, 29).Value txtmemo3 = ActiveCell.Offset(1, 30).Value cmbOrientationMed = ActiveCell.Offset(1, 31).Value CmbProvenance = ActiveCell.Offset(1, 32).Value CmbsituationErrance = ActiveCell.Offset(1, 33).Value Optionmoins1S = ActiveCell.Offset(1, 34).Value Optionmoins1M = ActiveCell.Offset(1, 34).Value Option1a6M = ActiveCell.Offset(1, 34).Value Option6M1A = ActiveCell.Offset(1, 34).Value Option1a2A = ActiveCell.Offset(1, 34).Value Option2a5A = ActiveCell.Offset(1, 34).Value Option5APlus = ActiveCell.Offset(1, 34).Value OptionNSP = ActiveCell.Offset(1, 34).Value TxtParcoursA = ActiveCell.Offset(1, 35).Value TxtObjectifEx = ActiveCell.Offset(1, 36).Value CmbPieceIdentite = ActiveCell.Offset(1, 37).Value TxtDateExpi = ActiveCell.Offset(1, 38).Value OptionNul = ActiveCell.Offset(1, 39).Value OptionRegG = ActiveCell.Offset(1, 39).Value Optioname = ActiveCell.Offset(1, 39).Value OptionRien = ActiveCell.Offset(1, 40).Value Optioncmuc = ActiveCell.Offset(1, 40).Value OptionNC = ActiveCell.Offset(1, 40).Value OptionAvert = ActiveCell.Offset(1, 41).Value OptionExclu = ActiveCell.Offset(1, 41).Value OptionFinSejour = ActiveCell.Offset(1, 41).Value TxtMemo4 = ActiveCell.Offset(1, 42).Value CmbOrientation = ActiveCell.Offset(1, 43).Value CmbSiteAccueil = ActiveCell.Offset(1, 44).Value   End Sub

---

Je ne travaille pas avec les activecell, mais bon, tes optionbutton doivent récupérer une valeur booléen (True, False, Null)
Essaie ceci

Code:

---

1 2	OptionFemme = ActiveCell.Offset(1, 6).Value="Femme" OptionHomme = ActiveCell.Offset(1, 6).Value="Homme"

---

Merci beaucoup. J'ai modifié la ligne de code et cela ne fonctionne pas mes options "sexe" restent cochées et grisées en mode lecture
encore merci

Après test, j'ai ré édité le code et ça fonctionne du moment que la colonne et la donnée de cette colonne sont soit "Femme", Soit "Homme"
sinon tu peux réessayer le code (après vérification de ta colonne et tes données)
l'activecell reste très abstraite

Code:

---

1 2	Me.OptionFemme.Value = UCase(Trim(ActiveCell.Offset(1, 6).Value)) = "HOMME" Me.OptionHomme.Value = UCase(Trim(ActiveCell.Offset(1, 6).Value)) = "FEMME"

---

Merci cela fonctionne maintenant. J'avais oublié de modifier le code de mes boutons de déplacement :

Mille mercis et bon week-end !

bout de code bouton Prev :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

Private Sub btnPrev_Click()   'Se positionne sur l'enregistrement précedent. If iPos = 1 Then MsgBox "Premier enregistrement", vbInformation, "Navigation" Else 'Lecture des données libCode.Caption = ActiveCell.Offset(iPos - 1, 0).Value txtCreateur = ActiveCell.Offset(iPos - 1, 1).Value txtDateCreation = ActiveCell.Offset(iPos - 1, 2).Value cmbOriente = ActiveCell.Offset(iPos - 1, 3).Value txtNom = ActiveCell.Offset(iPos - 1, 4).Value txtPrenom = ActiveCell.Offset(iPos - 1, 5).Value OptionFemme = ActiveCell.Offset(iPos - 1, 6).Value = "Femme" OptionHomme = ActiveCell.Offset(iPos - 1, 6).Value = "Homme"

---