Répondre à la discussion

Message

<blockquote data-quote="gothc" data-source="post: 20406755" data-attributes="member: 193937">Bonsoir le forumj'ai une macro ci joint&nbsp;&nbsp; je cherche comment décocher ma checkbox si ma combobox est videj'ai trouvé comment avoir un message si ma combobox est vide mais la case reste cochermerci de votre aide pour info je travaille sur la feuil[CODE=vb]Private Sub CheckBox1_Click()If ComboBox1.Value = &quot;&quot; Or ComboBox1.Value = &quot;&quot; Then MsgBox (&quot;Vous devez sélectionner votre Nom dans la Liste déroulante.&quot;) ': Exit SubWorksheets(&quot;Paramètres_Application&quot;).Range(&quot;r2&quot;) = Abs(Me.CheckBox1)CheckBox1.Caption = Worksheets(&quot;Paramètres_Application&quot;).Range(&quot;s2&quot;)If CheckBox1.Value = True Then&nbsp;&nbsp; Worksheets(&quot;Paramètres_Application&quot;).Range(&quot;u2&quot;) = DateElse&nbsp; &nbsp;&nbsp; Worksheets(&quot;Paramètres_Application&quot;).Range(&quot;u2&quot;) = &quot;&quot;End IfEnd Sub[/CODE]</blockquote>

[QUOTE="gothc, post: 20406755, member: 193937"] Bonsoir le forum j'ai une macro ci joint je cherche comment décocher ma checkbox si ma combobox est vide j'ai trouvé comment avoir un message si ma combobox est vide mais la case reste cocher merci de votre aide pour info je travaille sur la feuil [CODE=vb]Private Sub CheckBox1_Click() If ComboBox1.Value = "" Or ComboBox1.Value = "" Then MsgBox ("Vous devez sélectionner votre Nom dans la Liste déroulante.") ': Exit Sub Worksheets("Paramètres_Application").Range("r2") = Abs(Me.CheckBox1) CheckBox1.Caption = Worksheets("Paramètres_Application").Range("s2") If CheckBox1.Value = True Then Worksheets("Paramètres_Application").Range("u2") = Date Else Worksheets("Paramètres_Application").Range("u2") = "" End If End Sub[/CODE] [/QUOTE]

Vérification