Discussion :

[ftisse]

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]

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]

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]

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]

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]

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]

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



Cordialement
Florian

[Kimy_Ire]

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

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

[ftisse]

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

[Kimy_Ire]

Quand et comment est appelé cet autre UserForm ?

[ftisse]

Je joins directement mon vrai fichier ce sera plus simple.

C'est pour l'UserForm 6, ComboBox1

Fichierclients.xlsm

Merci

[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

[Kimy_Ire]

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,

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]

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]

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]

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.

[ftisse]

Bonjour,
Je ne sait pas pourquoi ce matin je me ré-ouvre sur mon fichier et miracle la valeur par défaut marche nickel, encore merci beaucoup,
Sans vouloir abuser une dernière chose je n'arrive pas a faire remplir mes textbox (surface et culture) de l'userForm 6 en fonction de la parcelle choisi.
Je remet le fichier joins pour que ce soit plus visuel.

Fichierclients.xlsm

Merci