Charger usf

skoobi

XLDnaute Barbatruc

• 17 Juillet 2009

• #2

Re : Charger usf

Bonjour,

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

 

Vote positif 0 Vote négatif

Cousinhub

XLDnaute Barbatruc

• 17 Juillet 2009

• #3

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....

 

Vote positif 0 Vote négatif

BOCARAMEL

XLDnaute Occasionnel

• 17 Juillet 2009

• #4

Re : Charger usf

Bonsoir a tous 🙂

Effectivement pas trés clair 😕

peux être comme ça
dans le fichier joint

bon forum a tous
bocaramel 😉

 

Pièces jointes

• optionbouton.zip

  16.1 KB · Affichages: 32
• optionbouton.zip

  16.1 KB · Affichages: 33
• optionbouton.zip

  16.1 KB · Affichages: 32

Dernière édition: 17 Juillet 2009

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 17 Juillet 2009

• #5

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

 

Pièces jointes

• Sans titre.jpg

  48.1 KB · Affichages: 48
• Sans titre.jpg

  48.1 KB · Affichages: 51
• Sans titre.jpg

  48.1 KB · Affichages: 55

Vote positif 0 Vote négatif

jeanpierre

Nous a quitté

Repose en paix

• 17 Juillet 2009

• #6

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

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 17 Juillet 2009

• #7

Re : Charger usf

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

 

Vote positif 0 Vote négatif

BOCARAMEL

XLDnaute Occasionnel

• 17 Juillet 2009

• #8

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

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 17 Juillet 2009

• #9

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

 

Vote positif 0 Vote négatif

BOCARAMEL

XLDnaute Occasionnel

• 17 Juillet 2009

• #10

Re : Charger usf

re,
tout a fait ça

et ainsi de suite pour tout les optionbuttons
bocaramel🙂

 

Vote positif 0 Vote négatif

MASSJIPE

XLDnaute Impliqué

• 3 Novembre 2009

• #11

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

 

Vote positif 0 Vote négatif

F

Fo_rum

XLDnaute Accro

• 3 Novembre 2009

• #12

Re : Charger usf

Salut

peut être ainsi :

Code:

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.

 

Vote positif 0 Vote négatif