Ecrire en colonne L en fonction de la checkbox cochée

Question

Je crée un formulaire de saisie et je n'arrive pas à insérer du texte en colonne L selon la checkbox cochée. Je m'explique : Si je coche la ChecBox1 je désir que s'inscrive en colonne L Particulier Si je coche la ChecBox2 je désir que s'inscrive en colonne L Professionnel Si je coche la ChecBox3 je désir que s'inscrive en colonne L Commerçant Voici mon code : Private Sub CommandButton2_Click() Dim ligne As Integer If MsgBox("confirmez-vous l'ajout des données?", vbYesNo, "confirmation") = vbYes Then Worksheets("Inscriptions").Select ligne = Sheets("Inscriptions").Range("B456541").End(xlUp).Row + 1 Cells(ligne, 2) = TextBox1.Value ' Nom Cells(ligne, 4) = TextBox2.Value ' Prénom Cells(ligne, 5) = TextBox3.Value ' Adresse Cells(ligne, 6) = TextBox4.Value ' Code postal Cells(ligne, 8) = TextBox5.Value ' Ville Cells(ligne, 9) = TextBox6.Value ' Tel fixe Cells(ligne, 10) = TextBox7.Value ' Tel portable Cells(ligne, 11) = TextBox8.Value ' Email Cells(ligne, 12) = checkBox1 = "Particulier" ' Ecrit Particulier Else End If End Sub Merci pour votre aide Robert...

AlgoPlus · Accepted Answer

En supposant qu'il n'y a qu'une checkbox cochée, a priori : If ChecBox1 Then 'si ChecBox1 est vrai (donc cochée) Cells(ligne, 12) = "Particulier" ' Ecrit Particulier ElseIf ChecBox2 Then 'si ChecBox2 est vrai (donc cochée) Cells(ligne, 12) = "Professionnel" ' Ecrit Professionnel ElseIf ChecBox3 Then 'si ChecBox3 est vrai (donc cochée) Cells(ligne, 12) = "Commerçant" ' Ecrit Commerçant End If en remplacement de la ligne: Cells(ligne, 12) = checkBox1 = "Particulier" ' Ecrit Particulier A+ Edit: Bonjour LouReeD , il faut bien sûr écrire CheckBox et non ChecBox...

LouReeD · Accepted Answer

Normal il manque le k aux checKbox.... @ bientôt LouReeD...

LouReeD · Answer

Pour aller dans le sens de AlgoPlus, si c'edt un choix "unique" alors le bouton radio est préférable aux CheckBox. @ bientôt LouReeD...