Discussion :

[diss10]

Bonjour a tous

Voila j'ai besoin de remplir ma textbox "N°standard" a partir de la combobox que j'ai programmeé pour sortir les derniers numéro de standard créé .
=>fonctionnement voulu : je voudrais remplir la textbox("N°standard") avec un nouveau numéro depuis le dernier créé cet a dire si le dernier numéro de ma liste est "69" , je voudrais qu'elle affiche 70


voila mon code :

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
46
Private Sub UserForm_Initialize()
    Dim Li&, LiDonnees&, ColDonnees&, I& 'long
    Dim ValeurCherchee$ ' string
    Dim Doublon As Boolean
 
    Li = 0: LiDonnees = 4: ColDonnees = 1
    ComboBox1.Clear
        Do Until Cells(LiDonnees, ColDonnees).Value = Empty
            'Tester doublon
            Doublon = False
            ValeurCherchee = Cells(LiDonnees, ColDonnees).Value
                For I = 0 To ComboBox1.ListCount - 1
                        If ComboBox1.List(I, 0) = ValeurCherchee Then
                            ComboBox1.List(I, 1) = Cells(LiDonnees, ColDonnees + 4).Value
                            Doublon = True
                            Exit For
                        End If
                Next
                If Not Doublon Then
                    ComboBox1.AddItem Cells(LiDonnees, ColDonnees).Value
                    ComboBox1.List(ComboBox1.ListCount - 1, 1) = Cells(LiDonnees, ColDonnees + 4).Value
                End If
            LiDonnees = LiDonnees + 1
        Loop
 
   TextBox1.Value = ""
   TextBox2.Value = ""
   'ComboBox1.Clear
   ComboBox2.Clear
 
   'Ajouter les items dans les combobox
'   With ComboBox1
'
'   .AddItem "5S"
'   .AddItem "EHS"
'   .AddItem "MA"
'   .AddItem "PI"
'   .AddItem "Q"
'
'   End With
 
   With ComboBox2
   For I = 1 To 12
        .AddItem I
    Next
End with

Merci beaucoup pour l'aide

[Quentin77170]

Bonjour à toi,

Personnellement, je n'ai pas compris grand chose du besoin.

Tu souhaites qu'en fonction de ce qui est sélectionné dans ta liste "Pilliers" donc "ComboBox1" si je ne m'abuse, la N°Standard vaille le nombre écrit en 2ème colonne + 1 ?

Si c'est le cas, tu te places dans l'événement ComboBox1_Change(), tu vérifies que le ListIndex soit supérieur à -1 (-1 = aucune sélection) puis tu lis la deuxième colonne :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub ComboBox1_Change()
 
With ComboBox1
    If .ListIndex = -1 Then
        '[...] 'éventuellement un code à passer si rien n'est sélectionné, ex : désactiver le bouton "Valider"
    Else
        N°Standard.Text = CInt(.List(.ListIndex,1)) + 1 'CInt par exemple pour être certain qu'il soit bien compris comme un nombre
    End If
End With
 
End Sub

Après, j'ai probablement mal compris le besoin

[diss10]

Ta tout compris Merci bcp

Comment je pourrais désactiver le Bouton valider ? Cet une bone idée car mon userforme gère une base de données du coup possibilité de faire des oublis de saisi sur la combobox1 .

Mercii

[Quentin77170]

Rien de plus simple :

Code :

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

BtnValider.Enabled = False 'si ton bouton s'appelle BtnValider, sinon CommandButton1 ou peu importe comment tu l'appelles

Pour savoir comment modifier les propriétés, le plus simple est d'aller dans l'éditeur du formulaire, d'afficher la fenêtre de propriétés, et tu ce que tu peux faire manuellement, tu peux le faire également dans le code.

[diss10]

Oui c vrai , Sais tu sinon comment je pourrais Griser ou bloquer la "Textbox2" appelé standard sur mon userform quand elle est saisi .

Ça éviterai les erreurs .

Merci encore