Code checkbox à vérifier

[Rubis57]

Bonjour tout le monde,

dans le fichier ci-joint, j’ai réalisé un userform avec des checkbox et ces checkbox me servent chaque mois à remplir le tableau situé en Feuil3 .

Alors après de multiples essais, je crois avoir trouvé le bon code. Mais je serai rassuré si quelqu’un voudrait bien vérifié cela et me le confirmé SVP.

Je vous Remercie d’avance.
Amicalement Rubis

TEST RUBIS.xlsm (48,9 Ko)

[Mimimathy]

Bonjour Rubis,
Rien à dire de spécial, c’est du bon boulot
J’ai rajouté un ELSE pour ôter le « X » si le checkbox n’est pas coché
et une autre version pour indo pour la colonne de date

Private Sub CommandButton1_Click() 'valider

  Dim col As Integer, lig1 As Integer, Ind As Integer
  If Me.TextBox1.Value = "" Then MsgBox ("Vous n'avez pas saisie la date"): Me.TextBox1.SetFocus: Exit Sub
  Application.ScreenUpdating = False
  With Sheets("Feuil3")
    col = Day(CDate(Me.TextBox1.Value)) + 4
    lig1 = 7
      For Ind = 1 To 11
        If Me.Controls("CheckBox" & Ind).Value = True Then
          .Cells(lig1 + Ind, col).Value = "x"
        Else
          .Cells(lig1 + Ind, col).Value = ""
        End If
      Next Ind
   End With
  Application.ScreenUpdating = True
  Unload Me
End Sub

[Rubis57]

Bonjour Mimimathy,

Merci pour la vérif et ta correction.
Je suis content, je commence à prendre goût à tout cela.
Une question :
Peut-on faire le même travail avec des optionbuttons ?

[Mimimathy]

Re,
Sauf qu’il faut en placer deux pour une ligne et les placer dans un FRAME
sinon dés que tu vas cliquer sur un bouton pour le sélectionner,tous les autres vont se déselectionner
et il faut mettre depuis les propriétés des Boutons d’options à TRUE les uns et à FALSE les autres
Si tu veux je peut te faire une démo

[Rubis57]

Re,

Oui , si cela ne te dérange pas, cela m’intéresserai beaucoup de voir le fonctionnement.

Merci

[Mimimathy]

Ok, je vais te regarder cela

[Mimimathy]

Re,
Vite fait pour exemple
TEST RUBIS (4).xlsm (45,6 Ko)

[Rubis57]

OK

Merci pour cette démo,je pense que pour mon fichier les checkbox vont très bien, mais je ne sais pas ce que toi tu en pense !

Merci encore et A+

[Mimimathy]

Le principe des boutons options ce n’est pas pour un OUI/NON,
en principe, on s’en sert pour 3/4 ou plus options sur des réponses et on affiche la réponse par rapport à la sélection

[Rubis57]

Re,

oui, depuis ta démo tout à l’heure, j’ai bien regardé pour comprendre le fonctionnement, donc c’est OK pour moi.(ça commence à bien se placer entre mes neurones)

Merci à toi Mimimathy.

A bientôt