Discussion :

[Spurius]

Bonjour à tous,


Ma boucle FOR :

Code :

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

1
2
3
4
5
6
7
8
9
For lngnombreligne = 0 To Intligne Step 1
 
        lngniveau = Me!Liste351.Column(IndiceColonne + 0, lngnombreligne + 0)
        opgChoix.Value = (lngniveau)
        opgChoix2.Value = (lngniveau)
        Print "Intligne"
        Print lngnombreligne
 
    Next

Intligne est calculée par : Intligne = Liste351.ListCount

Alors cette boucle fonctionne mais pas comme je le voudrait ! Donc le problème se situe sur opgChoix2 :

1)Pour l'instant dans je lance mon code le nombre de ligne afficher sur mon tableau est calculée est sert de fin a ma boucle

2) lngniveau va récupère la valeur de la colonne 0, ligne 0 (Valeur = 1,4,5,6,7) est un groupe d'option opgChoix récupère la valeur de lngniveau (pour coché la case désiré)

Mon probleme est que opgChoix2 récupère la valeur destinée a opgChoix !


Mon souhait serait que lorsque lngnombreligne est incrémenté, que ce soit opgChoix2 qui récupère la nouvelle valeur de lngniveau.

Merci, bonne journée a tous.

[christophe31]

Salut,

Mon probleme est que opgChoix2 récupère la valeur destinée a opgChoix !

C'est normal, car opgChoix et opgChoix2 pointe sur la même variable lngniveau.

Code :

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

1
2
        opgChoix.Value = (lngniveau)
        opgChoix2.Value = (lngniveau)

Est ce que tu peux donner un exemple du fonctionnement que tu voudrais ? ça m'aiderais peut être plus pour ta solution. Merci

A+

[Spurius]

Bonjour à tous,

Sur un onglet de mon formulaire :
J’ai un contrôle liste déroulante qui me permet de sélectionné une personne (Nom). Lorsque une personne est sélectionnée un bouton (Niveau) permet de lancé mon code VBA. Celui-ci va récupérer la valeur du nom et lancé la requete SQL qui va afficher les niveau, le matériels, le fabricants dans un contrôle type liste.

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
Dim SQL15 As String
Dim lngrecherchenomnivo As Long
Dim lngniv As String
strrecherchenomnivo As String
lngnombreligne As Long
Intligne As Integer
 
'' SELECTION PAR NOM
Private Sub Commande317_Click()
 
'' Vérifie que l'on a cliqué sur un NOM pour éviter le NULL
  If Not IsNumeric(Me!SelectNomnivo) Then Exit Sub
 
'' Affecte la valeur IDemp à la variable lngrecherchenm
 
strrecherchenomnivo = SelectNomnivo.Column(IndiceColonne + 1)
 
 
  SQL15 = "SELECT(SELECT IDniv FROM TBLnivmaitrise N WHERE N.IDniv=A.IDniv), (SELECT Api FROM TBLapi Z WHERE Z.IDapi=A.IDapi), (SELECT(select Fabricant from TBLfabricantapi WHERE CodeFabricant=Z.CodeFabricant) FROM TBLapi Z WHERE Z.IDapi=A.IDapi) FROM TBLcompetence AS A WHERE A.IDemp=(SELECT IDemp FROM TBLemploye WHERE Nom='" & strrecherchenomnivo & "');"
 
  '' Affecte la chaîne SQL à la liste recherche nom
  Liste351.RowSource = SQL15
 
  '' Déverrouille la liste des Api
  Liste351.Enabled = True
 
  '' Donne le focus la liste des Api
  Liste351.SetFocus
 
 
Intligne = Liste351.ListCount
 
 
    For lngnombreligne = 0 To Intligne Step 1
 
        lngniveau = Me!Liste351.Column(IndiceColonne + 0, lngnombreligne )
        opgChoix.Value = (lngniveau)
        opgChoix.Value = (lngniveau)
        Print Intligne
        Print lngnombreligne
 
    Next
 
 
 
End Sub

Liste351 est une liste qui affiche Niveau, Api(materiel), Fabricant
Intligne est calculer par : Intligne = Liste351.ListCount
lngnombreligne va permettre d’incrémenter la ligne de sélection sur le tableau
lngniveau est la valeur présente dans le tableau colonne 0, ligneX
opgChoix et opgChoix2 sont des contrôles type Option de groupe (5 option = Débutant, Moyen, Maitrise, Expert) qui sont des niveau

Donc le problème se situe sur opgChoix2 dans la boucle FOR :

1) Pour l'instant dans je lance mon code, le nombre de ligne afficher sur mon tableau est calculer par Intligne et sert de fin à ma boucle.
2) lngniveau va récupérer la valeur de la colonne 0, ligne 0 (Valeur = 1, 4, 5, 6, 7) et un groupe d'option (opgChoix) récupère la valeur de lngniveau (pour coché la case désiré)

Mon souhait serait que ma boucle vérifie sur le tableau toutes les lignes de la colonne 0 et que le résultat (lngniveau) soit renvoyé sur des contrôles type option de groupe (opgChoix, opgChoix2, opgChoixX)

Donc pour la valeur de la colonne 0 ligne 0 (lngniveau)
EX : Valeur = 1
Va activé la case Débutant de mon groupe d’option (opgChoix.Value = 1 )
Mais opgChoix2 devrait prendre la valeur Colonne 0, ligne 1
EX : Valeur =4
Mais va activé la case débutant alors que sa devrait être la case Moyen



Merci, bonne journée a tous. Et j'espère avoir réussie à me faire comprendre.

[Tofalu]

Ce n'est vraiment pas clair.

[Spurius]

Ceci est le code qui me permet grâce a un bouton Commande317 d'afficher une liste de matériaux et de niveaux !

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
47
48
49
50
'' SELECTION PAR NOM
Private Sub Commande317_Click()
 
 
'' Vérifie que l'on a cliqué sur un NOM pour éviter le NULL
  If Not IsNumeric(Me!SelectNomnivo) Then Exit Sub
 
'' Affecte la valeur IDemp à la variable lngrecherchenm
 
strrecherchenomnivo = SelectNomnivo.Column(IndiceColonne + 1)
 
 
  SQL15 = "SELECT(SELECT IDniv FROM TBLnivmaitrise N WHERE N.IDniv=A.IDniv), (SELECT Api FROM TBLapi Z WHERE Z.IDapi=A.IDapi), (SELECT(select Fabricant from TBLfabricantapi WHERE CodeFabricant=Z.CodeFabricant) FROM TBLapi Z WHERE Z.IDapi=A.IDapi) FROM TBLcompetence AS A WHERE A.IDemp=(SELECT IDemp FROM TBLemploye WHERE Nom='" & strrecherchenomnivo & "');"
 
  '' Affecte la chaîne SQL à la liste recherche nom
  Liste351.RowSource = SQL15
 
  '' Déverrouille la liste des Api
  Liste351.Enabled = True
 
  '' Donne le focus la liste des Api
  Liste351.SetFocus
 
 ''création variable lngniveau plusieur ligne
 
Intligne = Liste351.ListCount
 
 
    For Intnombreligne = 0 To Intligne
 
       lngniveau = Me!Liste351.Column(IndiceColonne + 0, Intnombreligne + 0)
        opgChoix0.Value = (lngniveau)
 
        MsgBox (Intligne)
        MsgBox (lngniveau)
        MsgBox (Intnombreligne)
        Print Intligne
        Print Intnombreligne
 
    If lngnombreligne = (Intligne - 1) Then Exit For
 
    Next
 
    lngniveau = Me!Liste351.Column(IndiceColonne + 0, Intnombreligne + 0)
        opgChoix2.Value = (lngniveau)
    Print Intligne
        Print Intnombreligne
 
 
End Sub

Ce code est lié a un formulaire, dans ce formulaire il y a :

--> Un contrôle liste déroulante "SelectNomnivo" qui affiche le prénom et le nom de l'employé.

--> Un contrôle Bouton "Command317" qui permet d'exécuter le code VBA.

--> Un contrôle Liste "Liste351" qui affiche IDniveau Fabricant API après clic sur "Commande317"

--> Un ou plusieurs groupes d'options "OpgChoix, OpgChoix2, OpgChoixX ..." qui est censé récupéré L'idniveau dans liste351.


Ce code a l'heure actuelle récupère bien la valeur du niveau de la première ligne de liste351, mais comment faire pour que tous les niveaux de mon tableau soit tous afficher dans des groupes d'option ?

Type : Ligne 0 -----> OpgChoix
Ligne 1 ----->OpgChoix2


Est ce claire ou toujours pas ?