Problème avec CheckBox

**ftisse** · 18/12/2014, 16h08

Bonjour,

Je souhaiterais savoir si il et possible grâce a un formulaire qui contient une textbox et une CheckBox de remplir un tableau avec du texte (colonne P) par le combobox et un chiffre 1 si cocher (colonne Q), de plus il faudrait que cela mette un 0 dans les autre ligne de la colonne Q du tableau ou il y a une donner dans la colonne P. C'est pas trop évident a explique je peux préparer un exemple si il faut...

Je coince au niveau de la CheckBox. (Le bouton de lancement de l'userform et sur la feuil1 et les données vont dans la feuille "BASE")
Mon code actuel :

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
'Pour le bouton Nouvelle campagne
Private Sub CommandButton2_Click()
    Dim L As Integer
    If MsgBox("Confirmez-vous l’insertion de cette nouvelle campagne ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then
    L = Sheets("Base").Activate
    L = Range("p65536").End(xlUp).Row + 1 'Pour placer le nouvelenregistrement à la première ligne de tableau non vide
 
        Range("p" & L).Value = TextBox1
    Sheets("Feuil1").Activate
    End If
    Unload Me
 
End Sub
 
'Pour le bouton Quitter
Private Sub CommandButton1_Click()
Unload Me
End Sub

Merci

**Kimy_Ire** · 18/12/2014, 16h17

Bonjour ftisse,

Au vu de l'explicité de ce que tu demandes, je te propose, en effet, de faire un fichier exemple... explicite, peut-être, cette fois...
Ceci n'est que mon humble avis.
Chapeau à celui qui te réalisera une solution fonctionnelle avec cette explication !

Cordialement,
Kimy

**ftisse** · 18/12/2014, 16h30

Oui je me doute bien mais j'ai lue que il faut essayer sans fichier exemple.

Je pense que ce sera plus simple.

Checkbox.xlsm

**COCONUT2** · 18/12/2014, 16h48

Il faut aussi essayer de s'exprimer avec clarté (et si possible avec moins de fautes)

on sait que ton probleme est lié à la Check Box
mais quel est il?

Tu veux rentrer des valeurs dans la checkbox pour qu'elles puissent etre selectionnées?

**ftisse** · 18/12/2014, 17h03

Bonjour COCONUT2

Oui je c'est l'orthographe n'est pas mon point fort...

Non je veut que quand on la coche cela remplisse la colonne Q automatiquement et non pas manuelle comme j'ai fait avec les 0 et le 1.

Quand je crée ma nouvelle campagne et que je la déclare par défaut en cochant la checkbox, il faut un 1 dans la colonne Q en face de la campagne que l'on vient de crée et un 0 dans toutes les autres campagnes.

J’espère que je suis assez clair.

Cordialement

**Kimy_Ire** · 18/12/2014, 17h12

En passant, il y a quand même des limites !

Envoyé par ftisse

Bonjour COCONUT2

Oui, je sais... L'orthographe n'est pas mon point fort...

Non, je veux que lorsque l'on coche la CheckBox, la colonne Q se remplisse automatiquement et non pas manuellement comme j'ai fait avec les 0 et le 1.

Quand je crée ma nouvelle campagne et la déclare par défaut en cochant la checkbox, un 1 se place dans la colonne Q correspondante. Ainsi, logiquement, des 0 sont placés en colonne Q sur toutes les autres campagnes.

J’espère avoir été plus explicite, cette fois-ci.

Cordialement

Et il est probable, étant nul en orthographe également et le Français n'étant pas ma langue natale, d'avoir laissé des fautes.

Cordialement,
Kimy

**Kimy_Ire** · 18/12/2014, 17h05

ftisse,

Dis-moi si ceci te convient :

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
36
37
38
39
40
41
42
43
44
45
Private Sub CommandButton2_Click()
Dim i As Integer, j As Integer
Dim rng As Range
Dim bool As Boolean
 
With Worksheets("Base")
    If MsgBox("Confirmez-vous l’insertion de cette nouvelle campagne ?", vbYesNo, "Demande de confirmation d’ajout") = vbYes Then
        Set rng = .Columns(16).Find("*", , , , , xlPrevious)
        bool = True
 
        For i = 1 To rng.Row
            If .Range("P1").Offset(i, 0) = Me.TextBox1 Then
                If Me.CheckBox1 Then
                    For j = 1 To rng.Row - 1
                        .Range("Q1").Offset(j, 0) = 0
                    Next j
 
                    .Range("P1").Offset(i, 1) = 1
                    bool = False
                    Exit For
                Else
                    MsgBox "Campagne déjà insérée"
                End If
            End If
        Next i
 
        If bool Then
            rng.Offset(1, 0) = Me.TextBox1
 
            If Me.CheckBox1 Then
                rng.Offset(1, 1) = 1
                For j = 1 To rng.Row - 1
                    .Range("Q1").Offset(j, 0) = 0
                Next j
            Else
                rng.Offset(1, 1) = 0
            End If
        End If
 
    End If
 
End With
Unload Me
 
End Sub

Cordialement,
Kimy

**ftisse** · 18/12/2014, 17h12

Nickel !!! merci beaucoup, un problème de moins sur mon fichier.

Cordialement
Florian

**ftisse** · 18/12/2014, 17h18

Maintenant j'ai un autre Userform ou j'ai le choix des campagnes (que l'on vient de crée) est ce que je peut mettre la campagne en cour (donc celle qui a le 1 en colonne Q) dans le combobox quand l'userform s'initialise ?

Merci

**casefayere** · 18/12/2014, 17h29

Bonjour Kimy_Ire, ftisse,

A ftisse,

Même si tu n'es pas fort en orthographe malgré ton statut d'étudiant (excuses-moi, je suis un vieux c..), pour ne pas décourager Kimy, tu pourrais lui attribuer (par reconnaissance) un

dans ses interventions, il le mérite

**Kimy_Ire** · 18/12/2014, 17h55

ftisse,

La vaaaache ! C'est quoi ce code torduuuuu ?!

Il n'y a pas de logique dans ce que tu fais j'ai l'impression...

Bref, dans ton UserForm_Initialize(), je te propose de remplacer la ligne suivante : ComboBox1.ListIndex = 0 par ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
    With Worksheets("Base")
        Set rng = .Columns(17).Find("1", , xlValues, xlWhole)
 
        If Not rng Is Nothing Then
            For i = LBound(ComboBox1.List) To UBound(ComboBox1.List)
                If ComboBox1.List(i) = rng.Offset(0, -1) Then
                    ComboBox1.ListIndex = i
                    Exit For
                End If
            Next i
        Else
            ComboBox1.ListIndex = 0
        End If
    End With

Il me semble que cela répond à ton besoin ! ^^

@casefayere,

Envoyé par casefayere

Bonjour Kimy_Ire, ftisse,

A ftisse,

Même si tu n'es pas fort en orthographe malgré ton statut d'étudiant (excuses-moi, je suis un vieux c..), pour ne pas décourager Kimy, tu pourrais lui attribuer (par reconnaissance) un

dans ses interventions, il le mérite

Je ne mérite pas tant de reconnaissance !

Cependant, je te remercie pour cette note touchante.

Cordialement,
Kimy

**ftisse** · 18/12/2014, 18h10

Oui je c'est, déjà je suis un amateur et en plus j'ai rajouter morceau par morceau pour arriver a mon but et c'est pas encore parfait...

Je vient d'essayer ça ne marche pas, j'ai un message d'erreur "erreur de compilation: variable non définie "

**Kimy_Ire** · 18/12/2014, 18h13

Code :

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

1
2
    Dim rng As Range
    Dim i As Integer

au début de ton UserForm_Initialize().

**ftisse** · 18/12/2014, 18h41

L'userForm ce lance et marche bien mais le comboBox et toujours vide.

Il y a un lien entre le combo box 1, 2 et 3, les donner disponible du 2eme sont en fonction du premier etc... sa ne peut pas venir de ça le problème ?

En effet j'ai le même combobox dans l'userform Nouvelle parcelle, en entrant ce code cela marche bien.

Problème avec CheckBox [XL-2013]

Macros et VBA Excel

Vue hybride

Discussions similaires

Partager

Partager