Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2010 [RESOLU] - Mémoriser la sélection d'un OptionButton

Toubabou

XLDnaute Impliqué
J’aurais besoin de votre aide. Dans le fichier joint à l’ouverture cliquez sur

==> "RECETTES »

==> Saisissez « Desserts » en-dessous de « TYPE DE RECETTE» ‘’ComboBox1’’

==> Sélectionnez « Bûche de Noël crème de marrons chantilly », en-dessous de « SELECTION DE LA RECETTES » ‘’ComboBox2’’

La recette s’affiche.

Au-dessus de « SELECTION DE LA RECETTE », quatre OptionButton qui permettent une sélection. J’aimerai que lors de la création d’une nouvelle recette, la sélection soit mémorisée afin de la retrouver lors d’une prochaine consultation.

Pourriez-vous m’aider à nouveau ?

Merci par avance.

Toubabou
 

Pièces jointes

  • TEST.zip
    1.8 MB · Affichages: 26

ChTi160

XLDnaute Barbatruc
Bonsoir Toubabou
Pas evident , toutes les feuilles sont masquees.
Tu devrais pour le forum mettre un fichier simple .
Pour ce qui est des optionButton peut etre via une boucle
VB:
For i = 1 to 4
If .Controls(”OptionButton” & i) =True Then
.Cells(Derlgn,?)= i 'Ou le Caption de l OptionButton
End if
Next i
Dans l attente
Jean marie
 

Paritec

XLDnaute Barbatruc
Bonjour Toubabou Jean Marie le forum
ton fichier en retour, avec les modifs pour la mémorisation et la restitution
Par contre le fait de pouvoir enregistrer 3 fois la même recette ma paraît une bêtise, mais bon.
a+
papou
 

Pièces jointes

  • Toubabou V1.xlsm
    1.1 MB · Affichages: 22

Toubabou

XLDnaute Impliqué
Bonjour à tous,
Merci PAPOU, toujours aussi professionnel, juste encore quelques questions:
- Pourquoi parler d'enregistrer trois fois a même recette?
- Est-il possible de centrer les étoile de DIFFICULTE?
- Pour mon informations quels sont les modification apportées.
- Je ne me souviens plus comment l'on rends les onglets invisible.
Encore merci pour ta compréhension.
Jean-Marie
 

Paritec

XLDnaute Barbatruc
Bonjour Toubabou le forum
ajoute cette petite macro dans un module et lance la macro cacher
VB:
Sub cacher()
  Dim sh As Worksheet
  For Each sh In Worksheets
  If sh.Name <> "Menu" Then
  sh.Visible = 2
  End If
  Next sh
End Sub
les modifications dans le code du bouton CommandButton3_Click pour la mémorisation
VB:
For I = 1 To 4
                If Controls("Optionbutton" & I) Then .Cells(L, 15) = I: Exit For
            Next I

et dans le combobox2_change pour la restitution
VB:
If Ws.Cells(Ligne, 15) <> "" Then Controls("optionbutton" & Ws.Cells(Ligne, 15)) = 1
Voilà j'espère que c'est bon pour toi maintenant, si non tu le redis.
a+
Papou
 
Dernière édition:

Toubabou

XLDnaute Impliqué
Bonsoir Papou, bonsoir à tous,
JE reçois maintenant ce message d'erreur:
"Sheets("IMPRESSION").Select" étant surligné en jaune

Code:
Private Sub CommandButton5_Click()    'Envoi feuille Impression
    Dim s As Shape, Tablo, I&
    Application.ScreenUpdating = False
    Sheets("IMPRESSION").Select
    For Each s In ActiveSheet.Shapes
        If Not Intersect(s.TopLeftCell, [A4:B4]) Is Nothing Then s.Delete
    Next
    [B16:B400].ClearContents
    [A2] = ComboBox1: [A3] = ComboBox2
    [A6] = Textbox2: [B6] = Textbox4
    [A8] = Textbox1: [B8] = Textbox5
    [A10] = Textbox3: [B10] = TextBox8
    [A12] = Textbox9: [B12] = TextBox11
    [A14] = TextBox10: [A16] = TextBox6
    Tablo = Split(TextBox7.Text, Chr(10))
    For I = LBound(Tablo) To UBound(Tablo)
        Cells(I + 16, 2) = Trim(Replace(Tablo(I), Chr(10), ""))
    Next I
    Rows("16:400").EntireRow.AutoFit
    Call InsImage(Image1.Tag, [A4], 1)
    Call InsImage(Image2.Tag, [B4], 2)
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    ''''Macro faite par JOB75 le 02/10/2018, affiche automatiuement l'image de OptionButton4 en cas de non sélection d'un OptionButton''''
    ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
    If Image3.Tag = "" Then OptionButton4 = True    'lance OptionButton_Click
    Call InsImage(Image3.Tag, [B4], 3)
    'If CheckBox1.Value = True Then
    '   ActiveSheet.Shapes("Image3").Visible = True
    'Else
    '   ActiveSheet.Shapes("Image3").Visible = False
    'End If
    Application.GoTo [A1], True
    '  [A1].Activate
    Unload Me
End Sub

A plus Jean-Marie
 

Paritec

XLDnaute Barbatruc
Bonjour Job JeanMarie le forum
bah oui dans ta procèdure tu fais appel à CheckBox1 qui n'existe pas dans l'userform !!!!
je suppose que c'est quand tu as ajouté les boutons d'option ??? enfin je dis cela car la seule chose que je vois à cocher c'est cela
redis moi et je modifie
a+
Papou
 

Paritec

XLDnaute Barbatruc
Bonjour Job Jean Marie le forum
ton fichier en retour avec les modifs, car je suis sur et certain que tu as retiré le checkbox1 quand tu as ajouté les options button
a+
Papou
 

Pièces jointes

  • Toubabou V4.xlsm
    1.1 MB · Affichages: 16
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…