Remplire ma Textbox a l'aide a partir de mon userforme et faire I+1

Version imprimable

1 pièce(s) jointe(s)

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
Pièce jointe 216486

voila mon code :

Code:

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 :)

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:

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 :)

27/07/2016, 14h23
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 :)
27/07/2016, 14h26
Quentin77170

Rien de plus simple :

Code:

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.
27/07/2016, 15h35
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 :)