Aide sur User Form - Case à cocher

[Kristof]

Bonjour le Forum,

Ci-joint le User Form en question.
Mes problèmes :
1- Lorsque je click sur PACK 1, je voudrais que les cases A,B,C et D se cochent automatiquement et que seules l'intitulé A/B/C/D apparaissent dans ma cellule (Colonne D).
De même pour PACK 2 avec E/F/G/H et pour PACK 3 I/J/K/L.
Et donc si je coche PACK 1 et PACK 2, s'affichera A/B/C/D/E/F/G/H dans la cellule active.

2- Peut-on remplacer le double click sur la cellule par un simple click pour faire apparaitre le USer_Form ?

Merci d'avance pour votre aide.

Kristof

 

[porcinet82]

Salut Kristof,

Ton fichier n'est pas passé, va faire un tour Lien supprimé.

Pour ta seconde question , tu peux utiliser la procédure évenementielle suivante:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Address = '$A$1' Then
        UserForm1.Show
    End If
End Sub

@+

 

[Kristof]

Ci-joint le fichier.

Merci

Kristof [file name=UserFormModel.zip size=9398]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/UserFormModel.zip[/file]

 

[Hervé]

Bonjour kristof, porcinet

a essayer :

Option Explicit
'__________________________________
Private Sub CheckBox1_Click()
cocher 1
End Sub
'__________________________________
Private Sub CheckBox11_Click()
cocher 11
End Sub
'__________________________________
Private Sub CheckBox6_Click()
cocher 6
End Sub
'__________________________________
Private Sub Ok_Click()
Dim i As Byte
Dim premier As Byte
Dim t As String

For i = 1 To 15
        Select Case i
                Case 1, 11, 6
                Case Else
                With Controls('CheckBox' & i)
                        If .Value = True Then
                                If premier = 0 Then
                                        t = .Caption: premier = 1
                                Else
                                        t = t & '/' & .Caption
                                End If
                        End If
                End With
        End Select
Next i

ActiveCell = t
Unload UserForm1
End Sub
'__________________________________
Public Sub cocher(num As Byte)
Dim tablo As Variant
Dim i As Byte

Select Case num
        Case 1: tablo = Array(2, 3, 4, 5)
        Case 6: tablo = Array(7, 8, 9, 10)
        Case 11: tablo = Array(12, 13, 14, 15)
End Select

For i = 0 To UBound(tablo)
        Controls('Checkbox' & tablo(i)) = Controls('Checkbox' & num)
Next i
End Sub

salut

 

[Hervé]

re

rassure moi kristof, j'ai pas fait tout ca pour rien.


un hervé de plus en plus désabusé.

salut

 

[Kristof]

Excuse moi Hervé, mais je viens seulement de prendre connaissance de ta réponse.

Et bien entendu je te remercie pour ta réponse.

Je n'ai pas encore regardé en détail ce que tu as écrit mais je te tiens au courant si j'ai des questions.

Merci encore,

Kristof

 

[Kristof]

Encore merci Hervé.

Je viens de tester ce que tu as écrit ! SUPER !!!

Merci,

Kristof