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

[Toubabou]

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

 

[ChTi160]

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

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]

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

 

[Toubabou]

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]

Bonjour Toubabou le forum
ajoute cette petite macro dans un module et lance la macro cacher

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

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

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

 

[Toubabou]

Bonjour Paritec,
Un grand Merci à toi, je vais mettre ce post en résolu.
Amicalement,
Jean-Marie

 

[Paritec]

Re Jean Marie le forum

Est-il possible de centrer les étoile de DIFFICULTE?

elles sont ou les étoiles je ne les ai pas vu
a+
Papou

 

[Toubabou]

Oups pardon sur la feuille d'impression elle sont activée par TextBox2 du formulaire
Amicalement,
Jean-Marie

 

[Paritec]

Bonjour Jean Marie le forum
si j'ai compris tu regardes et tu me redis
a+
Papou

 

[Toubabou]

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

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

 

[job75]

Bonsoir Toubabou, Papou,

Sheets("IMPRESSION").Visible = xlSheetVisible
Sheets("IMPRESSION").Select

A+

 

[Toubabou]

Re bonsoir Job75, Papou,
Un grand merci à vous deux pour votre travail, tout fonctionne parfaitement.
Merci beaucoup.
Amicalement,

Jean-Marie

 

[Toubabou]

Ré à tous,
Petit bug, je n'arrive plus à utiliser le CommandButton "MODIFIER", sans de clan cher une erreur debogage?

Amicalement,
Jean-Marie

 

[Paritec]

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]

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