Discussion :

[Mél3790]

Bonjour Le Forum !

J'ai crée un formulaire avec des cases à cocher.
Lorsque je coche une case, son caption s'inscrit dans ma cellule active. Lorsque je décoche une case, la cellule s'efface.

Ce que je souhaiterai faire :

Si plusieurs cases sont cochées, leurs captions doivent tous s'inscrire dans ma cellule active, séparées par un " / ".
Si je décoche une case, son caption dans ma cellule doit s'effacer.

J'espère que vous me comprenez

Je joins mon fichier. J'ai fait des macros juste pour les 2 premières cases à cocher.

Merci d'avance pour votre aide !

[lucasgaetan]

Bonjour Mél,

Si j'ai bien compris:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub CheckBox1_Click()
    If CheckBox1.Value = True Then
        Call Incremente("ALIMENTAIRES")
    Else
        Call DesIncremente("ALIMENTAIRES")
    End If
End Sub
Private Sub CheckBox2_Click()
    If CheckBox2.Value = True Then
        Call Incremente("CARBURANT")
    Else
        Call DesIncremente("CARBURANT")
    End If
End Sub
Private Function Incremente(MaVal As String)
    If ActiveCell.Value = "" Then
        ActiveCell.Value = MaVal
    ElseIf InStr(ActiveCell.Value, MaVal) <> 0 Then
 
    Else
        ActiveCell.Value = ActiveCell.Value & "/" & MaVal
    End If
End Function
Private Function DesIncremente(MaVal As String)
    If InStr(ActiveCell.Value, MaVal) = 1 Then
        ActiveCell.Value = Replace(ActiveCell, MaVal & "/", "")
    ElseIf InStr(ActiveCell.Value, MaVal) <> 0 Then
        ActiveCell.Value = Replace(ActiveCell, "/" & MaVal, "")
    End If
End Function

bonne journée

[lucasgaetan]

un petit plus pour remplir ton formulaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
Private Sub UserForm_Activate()
Dim Ctrl As Control
    For Each Ctrl In UserForm1.Controls
        If TypeOf Ctrl Is MSForms.CheckBox Then
            If InStr(ActiveCell.Value, Ctrl.Caption) <> 0 Then
                Ctrl.Value = True
            End If
        End If
    Next Ctrl
End Sub

[Mél3790]

Bonjour lucasgaetan

Trop fort c'est exactement ce que je voulais !!

Grand merci !

A bientôt