Bonjour,

Entrer dans la cellule où le résultat doit apparaître la formule suivante:

=si(condition que vous voulez tester;"X";"")

A+

Salut manet61, je te remerci pour ta réponse mais malheureusement cela ne fonctionne pas comme je le voudrais. Merci.

Bonjour,

Passez-moi une copie de votre fichier parCjoint.com pour voir ce qu'il s'y passe.

A+

Salut tout le monde, si joint mon fichier comme Manet61 me l'a demande si cela ne marché pas. Si vous avez des idées Merci. http://cjoint.com/?lvursNBlhK.

bonjour,

Pour rester simple ! Voili une manière de voir les choses :

Private Sub cmdOK_Click()
'on teste la saisie date...'
If Me.TextBox1.Text = "" Then
MsgBox "entrer la date."
Me.TextBox1.SetFocus
Exit Sub
End If

'on test la saisie Kms...'
If Me.TextBox2.Text = "" Then
MsgBox "Entrer les Kilomètres."
Me.TextBox2.SetFocus
Exit Sub
End If

'On test la saisie nom de garage...'
If Me.TextBox3.Text = "" Then
MsgBox "Entrer le nom du garage."
Me.TextBox3.SetFocus
Exit Sub
End If

i = Range("A1").End(4).Row + 1
'Mise en place des données de l'UserForm3 dans la feuille de calcul'
With Sheets("feuil2")

.Cells(i, 1) = Me.TextBox1
.Cells(i, 2) = Me.TextBox2
.Cells(i, 3 = Me.TextBox3
.Cells(i, 4) = IIf(Me.CheckBox1, "X", "")
.Cells(i, 5) = IIf(Me.CheckBox5, "X", "")
.Cells(i, 6) = IIf(Me.CheckBox8, "X", "")
.Cells(i, 7) = IIf(Me.CheckBox6, "X", "")
.Cells(i, 8) = IIf(Me.CheckBox7, "X", "")
.Cells(i, 9) = IIf(Me.CheckBox33, "X", "")
.Cells(i, 10) = IIf(Me.CheckBox2, "X", "")
.Cells(i, 11) = IIf(Me.CheckBox11, "X", "")
.Cells(i, 12) = IIf(Me.CheckBox36, "X", "")
.Cells(i, 13) = IIf(Me.CheckBox3, "X", "")
.Cells(i, 14) = IIf(Me.CheckBox9, "X", "")
.Cells(i, 15) = IIf(Me.CheckBox4, "X", "")
.Cells(i, 16) = IIf(Me.CheckBox10, "X", "")
.Cells(i, 17) = IIf(Me.CheckBox12, "X", "")
.Cells(i, 18) = IIf(Me.CheckBox13, "X", "")
.Cells(i, 19) = IIf(Me.CheckBox22, "X", "")
.Cells(i, 20) = IIf(Me.CheckBox23, "X", "")
.Cells(i, 21) = IIf(Me.CheckBox15, "X", "")
.Cells(i, 22) = IIf(Me.CheckBox24, "X", "")
.Cells(i, 23) = IIf(Me.CheckBox16, "X", "")
.Cells(i, 24) = IIf(Me.CheckBox25, "X", "")
.Cells(i, 25) = IIf(Me.CheckBox17, "X", "")
.Cells(i, 26) = IIf(Me.CheckBox26, "X", "")
.Cells(i, 27) = IIf(Me.CheckBox18, "X", "")
.Cells(i, 28) = IIf(Me.CheckBox19, "X", "")
.Cells(i, 29) = IIf(Me.CheckBox27, "X", "")
.Cells(i, 30) = IIf(Me.CheckBox31, "X", "")
.Cells(i, 31) = IIf(Me.CheckBox20, "X", "")
.Cells(i, 32) = IIf(Me.CheckBox28, "X", "")
.Cells(i, 33) = IIf(Me.CheckBox21, "X", "")
.Cells(i, 34) = IIf(Me.CheckBox36, "X", "")
.Cells(i, 35) = IIf(Me.CheckBox29, "X", "")
.Cells(i, 36) = IIf(Me.CheckBox30, "X", "")
.Cells(i, 37) = IIf(Me.CheckBox34, "X", "")
.Cells(i, 38) = IIf(Me.CheckBox35, "X", "")
.Cells(i, 39) = Me.TextBox12
.Cells(i, 41) = Me.TextBox13
.Cells(i, 41) = Me.TextBox14
.Cells(i, 42) = Me.TextBox15
.Cells(i, 43) = Me.TextBox16
.Cells(i, 44) = Me.TextBox17
.Cells(i, 45) = Me.TextBox18
End With
Unload Me
End Sub

Voilou...

A+

salut, Galopin01 je te remerci pout ta réponse. Un grand merci A+