Discussion :

[Invité]

Bonsoir,

Grâce à l'aide de Mercatog, je suis parvenu à ce code qui me permet via des checkboxs à inscrire le caption sur les lignes correspondantes en feuille BD.
Ces chexkboxs représentent des appareils répertoriés en feuille "App".

Je voudrais vérifier l'existence de la checkbox sur la feuille "App" (car j'ai 2 checkboxs TT01a et TT01b).
Donc si on clique sur une checkbox qui n'est pas répertoriée, un message s'affiche et checkbox est décochée.

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
31
32
33
34
35
Option Explicit
 
Sub TestOnOff(ByVal App As String, ByVal Etat As Boolean)
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim LastLigD As Long, LastLigB As Long, i As Long, j As Long
Dim Tb, Td
 
With Worksheets("app")
    LastLigD = .Cells(.Rows.Count, "A").End(xlUp).Row
    Td = .Range("A2:F" & LastLigD)
End With
 
With Worksheets("BD")
    LastLigB = .Cells(.Rows.Count, "B").End(xlUp).Row
    Tb = .Range("B2:G" & LastLigB)
    For i = 1 To LastLigD - 1  'boucle sur Td (App)
        For j = 1 To LastLigB - 1   'boucle sur Tb (BD)
 
        If Not Etat Then
            If Tb(j, 6) = App Then Tb(j, 6) = ""
                Else
 
                If Tb(j, 6) = "" Then
 
          If Td(i, 6) = App And Td(i, 1) & "|" & Td(i, 2) & "|" & Td(i, 3) & "|" & Int(Td(i, 4)) = _
        Tb(j, 1) & "|" & Tb(j, 2) & "|" & Tb(j, 3) & "|" & Int(Tb(j, 4)) Then Tb(j, 6) = App
 
                End If
            End If
 
        Next j
    Next i
    .Range("B2:G" & LastLigB) = Tb
End With
End Sub

module de classe

Code :

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

1
2
3
4
5
6
7
8
Option Explicit
 
Public WithEvents Chk As MsForms.CheckBox
 
Private Sub Chk_Click()
 
TestOnOff Chk.Caption, Chk.Value
End Sub

En vous remerciant beaucoup pour votre précieuse aide et je tiens à remercier encore une fois Mercatog.

Cordialement,