denis

Voila les macros pour l' UserForm

Private Sub UserForm_Activate()
' Remplace la propriéte TripleState mise à True
CheckBox1.Value = False
CheckBox2.Value = False
CheckBox3.Value = False
CheckBox4.Value = False
CheckBox5.Value = False
CheckBox6.Value = False
CheckBox7.Value = False
CheckBox8.Value = False
End Sub

Private Sub OK_Click()
Dim Tv As String
Dim Mgnto As String
Dim Vidpro As String
Dim Retro As String
Dim Slconf As String
Dim Slproj As String
Dim Slbeld As String
Dim Slmouc As String
If CheckBox1.Value = False Then
Tv = "."
Else
Tv = "Oui"
End If
If CheckBox2.Value = False Then
Mgnto = "."
Else
Mgnto = "Oui"
End If
If CheckBox3 = False Then
Vidpro = "."
Else
Vidpro = "Oui"
End If
If CheckBox4 = False Then
Retro = "."
Else
Retro = "Oui"
End If
If CheckBox5 = False Then
Slconf = "."
Else
Slconf = "Oui"
End If
If CheckBox6 = False Then
Slproj = "."
Else
Slproj = "Oui"
End If
If CheckBox7 = False Then
Slbeld = "."
Else
Slbeld = "Oui"
End If
If CheckBox8 = False Then
Slmouc = "."
Else
Slmouc = "Oui"
End If
CasesACocher.Hide
Range("b7").Value = Tv
Range("c7").Value = Mgnto
Range("d7").Value = Vidpro
Range("e7").Value = Retro
Range("f7").Value = Slconf
Range("g7").Value = Slproj
Range("h7").Value = Slbeld
Range("I7").Value = Slmouc
Range("B1").Select
End Sub
Private Sub Annuler_Click()
CasesACocher.Hide
End Sub

et celle du module "programme"
Sub AfficheCaseACocher()
Range("B7:I7").Select
Selection.ClearContents
Range("B1").Select
CasesACocher.Show
End Sub

Merci pour l'aide
denis