Bonjour
Zut j'y avais pensé et vite oublié
Modifies les lignes correspondantes (partie surlignée)
Dans le module de classe "ClasseCheckBox" procédure "Private Sub Kase_Click"
Set Cel = Sheets("Usagers").Columns("A").Find(what:=.TextBox1, LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
Sheets("Récap activités").Cells(Cel.Row+ 1, Numero) = IIf(Kase = True, .TextBox1, "")
Else
MsgBox "Erreur critique " & .TextBox1
End If
Else
Kase = False
MsgBox "L'activité " & Kase.Caption & " est introuvable dans la page ""Activités"""
End If
End If
End With
Encours = False
End Sub
Ensuite dans le module de l'Userform2 procédure "Private Sub Image1_Click()"
' Efface la ligne dans la page "Récap activités"
Set Cel = Sheets("Usagers").Columns("A").Find(what:=Me.TextBox1, LookIn:=xlValues, lookat:=xlWhole)
If Not Cel Is Nothing Then
Sheets("Récap activités").Rows(Cel.Row+ 1).ClearContents
Else
MsgBox "Erreur critique " & Me.TextBox1
End If
Encours = False
Application.ScreenUpdating = True
End Sub