Charger usf

[MASSJIPE]

Bonjour
J'ai un USF avec bouceaup de optionbutton mais je voudrai qui reste charger a chaque fois que j'ouvre mon USF voici une ligne
Private Sub cmdValider_Click()
Sheets("Compte rendu d'analyse N1").Range("A67").Value = IIf(OptionButton1, "Opérateur titulaire OUI", IIf(OptionButton2, "Opérateur titulaire NON", ""))
merci

 

[skoobi]

Re : Charger usf

Bonjour,

C'est pas très clair tout ça...

 

[Cousinhub]

Re : Charger usf

Bonsoir,

Skooobi.....

J'osais pas le dire....

72 OptionsButtons

Mais qui reste....

avec une seule ligne...

PS, en général, je ne fais pas de fôtes....

 

[BOCARAMEL]

Re : Charger usf

Bonsoir a tous

Effectivement pas trés clair

peux être comme ça
dans le fichier joint

bon forum a tous
bocaramel

 

[MASSJIPE]

Re : Charger usf

Bonjour
Ci joint une image du USF
A chaque fois que j'ouvre le classeur et que j'appel mon USF celui ne ce charge pas il reste vide des que je valide les données il efface tout je reste

il y a bien
userform1.hide
mais ca fonctionne pas
merci

 

[jeanpierre]

Re : Charger usf

Bonjour MASSJIPE, skoobi, bhbh, BOCARAMEL,

Pour pas clair, nous sommes tous d'accord,

Ton image, c'est bien (pas vu grand chose, moi), mais t'as de bon yeux.. tu sais....

Excel est un tableur, pas un gestionnaire de photos ou d'images, donc un fichier joint s'impose.

Bon après-midi.

Jean-Pierre

 

[MASSJIPE]

Re : Charger usf

Bonjour
Cijoint.fr - Service gratuit de dépôt de fichiers
merci

 

[BOCARAMEL]

Re : Charger usf

bonjour MASSJIPE

essai ça....
'a l'ouverture de l'userform si la value de (A67) est oui
coche l'optionbutton1 et décoche l'optionbutton2
sinon fait l'inverse

Private Sub UserForm_Activate()
If Sheets("Compte rendu d'analyse N1").Range("A67").Value = "Opérateur titulaire OUI" Then
OptionButton1.Value = "1"
OptionButton2.Value = "0"
Else
OptionButton1.Value = "0"
OptionButton2.Value = "1"
End If
End Sub

si cela te vas il faut mettre la condition pour tout les optionbuttons
cdmt bocaramel

 

[MASSJIPE]

Re : Charger usf

Bonjour
Si j'ai bien compris je fait ceci
Private Sub UserForm_Activate()
If Sheets("Compte rendu d'analyse N1").Range("A67").Value = "Opérateur titulaire OUI" Then
OptionButton1.Value = "1"
OptionButton2.Value = "0"
Else
OptionButton1.Value = "0"
OptionButton2.Value = "1"
End If
If Sheets("Compte rendu d'analyse N1").Range("A70").Value = "Op.connaît les points clé OUI" Then
OptionButton3.Value = "1"
OptionButton4.Value = "0"
Else
OptionButton3.Value = "0"
OptionButton4.Value = "1"
End If
End Sub
merci

 

[BOCARAMEL]

Re : Charger usf

re,
tout a fait ça

et ainsi de suite pour tout les optionbuttons
bocaramel

 

[MASSJIPE]

Re : Charger usf

Bojour à tous
Pour 3 et 4 options boutons comment faire
Sheets("Compte rendu d'analyse N1").Range("A68").Value = IIf(OptionButton5, "Niveau opérateur (I)", IIf(OptionButton6, "Niveau opérateur (L)", IIf(OptionButton7, "Niveau opérateur (U)", "")))
Sheets("Compte rendu d'analyse N1").Range("A69").Value = IIf(OptionButton8, "Niveau dextérité (1)", IIf(OptionButton9, "Niveau dextérité (2)", IIf(OptionButton10, "Niveau dextérité (3)", IIf(OptionButton11, "Niveau dextérité (4)", ""))))
merci

 

[Fo_rum]

Re : Charger usf

Salut

peut être ainsi :

Private Sub UserForm_Initialize()
    'mettre tous les boutons d'otpion à False puis
    
    OptionButton5 = (Right(Range("A68"), 3) = "(I)")
    OptionButton6 = (Right(Range("A68"), 3) = "(L)")
    OptionButton7 = (Right(Range("A68"), 3) = "(U)")
    If Right(Range("A67"), 3) = "OUI" Then OptionButton1 Else OptionButton2
    If Right(Range("A71"), 3) = "OUI" Then OptionButton12 Else OptionButton13
    'ainsi de suite
 
End Sub

Private Sub cmdValider_Click()
  With Sheets("Compte rendu d'analyse N1")
    .Range("C80").Value = Me.TextBox1.Text
    
    .Range("A69").Value = IIf(OptionButton8, "Niveau dextérité (1)", IIf(OptionButton9, "Niveau dextérité (2)", IIf(OptionButton10, "Niveau dextérité (3)", IIf(OptionButton11, "Niveau dextérité (4)", ""))))
    .Range("A80").Value = IIf(OptionButton94, "Date de derniere évolution?", "")
    'simplification
    .Range("A68").Value = Frame3.Caption & IIf(OptionButton5, (I), IIf(OptionButton6, "(L)", "(U)"))
    .Range("A67").Value = Frame2.Caption & IIf(OptionButton1, "OUI", "NON")
    .Range("A71").Value = Frame6.Caption & IIf(OptionButton12, "OUI", "NON")
    .Range("A70").Value = Frame5.Caption & IIf(OptionButton3, "OUI", "NON")

Dans la seconde partie, tu peux simplifier omme ci-dessus.
Il y aurait aussi la possibilité de raccourcir avec des boucles mais il faudrait bien connaître la numérotation des contrôles.