lNouveau venulragInscrit le :16/03/2016Dernière activité :17/03/2016 à 13:23Version d'Excel :2003Messages2Votes0Fichiers0Téléchargements0SujetsMessagesStatistiquesVotes reçus Messages postés par lragDateAuteur du sujetSujetExtrait du message17/03/2016 à 13:23lragCheckBoxJ et TextBoxJC'est justement ce que j’essaie de concrétiser. Cette petite ligne.....16/03/2016 à 14:16lragCheckBoxJ et TextBoxJJ'ai une bonne centaine de CheckBox et TextBox qui fonctionne sur ce code. Private Sub CheckBox1_Click() If Me.CheckBox1 = True Then Me.TextBox1.Value = "1" Else Me.TextBox1.Value = "" End If End Sub j'ai tenté dans le UserForm_Initialize() pour raccourcir mon code Dim j As String For J = 1 To 158 I...Forums