Bonjour mapomme,
je voudrai mettre un"X" dans une cellule lorsque la textbx affiche un resultat. voici le code
'PAGE 1 ENREGISTREMENT DEBUT DE TP Page 1
Private Sub CommandButton3_Click()
If ComboBox1.Value = "" Then MsgBox ("Définir une Classe")
Feuil10.Select
Rows("4:4").Select
Selection.Copy
Selection.Insert Shift:=xlDown
ActiveSheet.Paste
Application.CutCopyMode = False
Range("B4").Value = ComboBox2.Value
Range("C4").Value = ComboBox1.Value
Range("D4").Value = ComboBox3.Value
Range("E4").Value = TextBox3.Value
Range("F4").Value = TextBox5.Value
If Me.TextBox97.Value = True Then Cells(4, 7).Value = "X"
If Me.TextBox98.Value = True Then Cells(4, 8).Value = "X"
If Me.TextBox99.Value = True Then Cells(4, 9).Value = "X"
If Me.TextBox100.Value = True Then Cells(4, 10).Value = "X"
If Me.TextBox101.Value = True Then Cells(4, 11).Value = "X"
If Me.TextBox102.Value = True Then Cells(4, 12).Value = "X"
If Me.TextBox103.Value = True Then Cells(4, 13).Value = "X"
If Me.TextBox104.Value = True Then Cells(4, 14).Value = "X"
If Me.TextBox105.Value = True Then Cells(4, 15).Value = "X"
If Me.TextBox106.Value = True Then Cells(4, 16).Value = "X"
If Me.TextBox107.Value = True Then Cells(4, 17).Value = "X"
End Sub