Discussion :

[Lost_in_VBA]

Bonjour Forum,
J'aurais besoin d'un petit coup de main niveau synthaxe svp
Je cherche à récupérer dans des listes les données nécessaires pr mettre en place un graphique.
Mais avant il faut les constituer...donc la première consiste à récupérer les noms cochés dans une listBox, et les suivantes doivent contenir des infos selon l'information récupérée dans la première.
C'est au niveau du code en gras que je ne trouve pas comment exprimer mon besoin.(en gros récupérer la donnée de la colonne "Actions planifiées" selon la ligne, dans le même tableau, du nom récupéré dans la listbox)

Voici 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
Dim i As Integer
Dim str() As String 'liste des noms d'opérateurs cochés
Dim plan() As Integer ' liste du nbr d'actions planifiées selon opérateur coché
Dim real() As Integer ' liste du nbr d'actions réalisées selon opérateur coché
Dim iIndex As Integer ' nombre d'élements selectionnés

'Initialisation: aucun éléement n'est selectionné
iIndex = 0

'Boucle sur les élements de la listBox; Les index des Listbox commencent par zéro
For i = 0 To Choix_operateur.ListBox1.ListCount - 1

'Test: élement coché
    If Choix_operateur.ListBox1.Selected(i) = True Then

'Ajouter un élement à chaque liste selon le nom coché
       iIndex = iIndex + 1
       ReDim Preserve str(iIndex)
       ReDim Preserve plan(iIndex)
       ReDim Preserve real(iIndex)
       str(UBound(str)) = Choix_operateur.ListBox1.List(i)
              
'       plan(UBound(plan)) = 
'       real(UBound(real)) = 
       
   End If
Next i

J'ose ésperer qu'il existe parmi vous des gens plus habiles que moi en VBA (ça ne devrait pas êtr dûr ça), ou qui ont déjà vu pareil chose...
Merci d'avance.

[jfontaine]

Bonjour,

Tu peux utiliser l'instruction Find (F1 sur l'instruction pour exemple) sur la plage de recherche pour trouver la ligne et ainsi retourner la valeur de la colonne "Actions planifiées"

[Lost_in_VBA]

Merci pr ta réactivité...

Mais justement ce que je n'arrive pas à enchainer c'est la synthaxe:
ce serait genre

Code :

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

1
2
plan(UBound(plan)) = (Worksheets("PMmain").Range("Actions_planifiées").Row(Worksheets("PMmain").Range
("Nom").Find(Choix_operateur.ListBox1.List(i)).Row.value)).value

Je ne pense pas que je caractérise les colonnes de tableau correctement...t'en penses quoi?

[jfontaine]

Tu ne peux pas avoir la valeur de ta colonne en une seule ligne de code
Tu recherches la valeur de la listbox dans la colonne de recherche (dans ton code, je ne comprend pas ou tu recherches)

Ca donne quelque chose comme cela. (Attention, code non testé car tapé directement)

Code :

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

1
2
3
4
5
dim rg as range
set rg = sheets("FeuilRecherche").range("A:A").find(Selection Listbox)
if not rg is nothing then
   plan(UBound(plan)) = Sheets("FeuilleDonnees").Cells(rg.row,NumColonneActionsPlannifiees).value
End if

[Lost_in_VBA]

OK!
Du coup ça devrait passer avec ça non?

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
Dim i As Integer
Dim str() As String
Dim plan() As Integer
Dim real() As Integer
Dim rg As Range
Dim iIndex As Integer ' nombre d'élements selectionnés
 
'Initialisation: aucun éléement n'est selectionné
iIndex = 0
 
'Boucle sur les élements de la listBox; Les index des Listbox commencent par zéro
For i = 0 To Choix_operateur.ListBox1.ListCount - 1
 
'Test: élement coché
    If Choix_operateur.ListBox1.Selected(i) = True Then
 
'Ajouter un élement à la liste des noms cochés
       iIndex = iIndex + 1
       ReDim Preserve str(iIndex)
       ReDim Preserve plan(iIndex)
       ReDim Preserve real(iIndex)
       str(UBound(str)) = Choix_operateur.ListBox1.List(i) 'On récupère l'élement coché et on l'insère à la fin de la liste
 
 
       Set rg = Sheets("PMmain").Range("H16:H24").Find(Choix_operateur.ListBox1.List(i))
       If Not rg Is Nothing Then
       plan(UBound(plan)) = Sheets("PMmain").Cells(rg.Row, 23).Value
       real(UBound(real)) = Sheets("PMmain").Cells(rg.Row, 24).Value
       End If
 
   End If
Next i

Il n'y aurait pas un moyen sur VBA pr tester les données que je calcule là?

[jfontaine]

Tu peux mettre un point d'arret dans ta boucle (Clic gauche sur la marge grise a gauche du code) et avancer en pas a pas avec la touche F8

[Lost_in_VBA]

Ok merci Bcp!! Jvé essayer tt ça
Juste une dernière petite question est ce que tu pourrais m'expliquais cette petite ligne là??? (en français stp... )

Code :

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

If Not rg Is Nothing Then

[jfontaine]

c'est dans le cas ou il ne trouve pas la données dans la matrice de recherche

[Lost_in_VBA]

D'accord!
G essayé ton astuce mm si ça naffiche rien ça parcourt les instructions de la boucle correctement selon les noms que je selectionne donc ça doit etre bon!!
Merci beaucoup Jérôme!!!