Discussion :

[chrisdu86]

Bonjour à tous,

En fait ma demande va être simple pour tous sauf moi, voici mon souhait :

J'ai un classeur composé de plusieurs feuille correspondant aux atelier (chacune contenant un tableau "Base de données" de ces ateliers), chaque ligne correspondent quant à elle à une fiche de défaut.

Je possède un code permettant de mettre en rapport chaque ligne de ce tableau mais ce que je voudrais, c'est choisir via une listbox l'atelier concerné et sortir les rapport de cet atelier, j'ai créer l'userform comme suit :

un contrôle listbox et 2 boutons, 1 valider et 1 annuler

Auriez vous un bout de code me permettant de réaliser ceci ?

Merci a tous pour votre aide

chrisdu86

[mjpmjp]

bonjour,
voila de quoi remplir la liste des ateliers

Code :

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

1
2
3
4
5
6
 
    'liste de tous les onglet
    ObjetListe.Clear
    For i = 1 To Sheets.Count
         ObjetListe.AddItem (Sheets(i).Name)
    Next

[joe.levrai]

Bonjour,

suggestion récurrente du père Joe : pourquoi une feuille par atelier ?

Si tu ajoutes une colonnes qui portera le nom de ton atelier, tu peux rassembler toutes tes feuilles en une seule.

Et là, tu te simplifies grandement la vie, puisque choisir un atelier revient grosso modo à faire un filtrage (automatique ou avancé) sur une unique feuille

[chrisdu86]

Bonjour mjpmjp,

Merci pour ta réponse, j'avais trouvé un truc similaire que voici :

Code :

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

1
2
3
4
5
6
7
Private Sub UserForm_Initialize()
Dim i As Byte
For i = 1 To Sheets.Count
    Me.ListBox1.AddItem Sheets(i).Name
Next i
 
End Sub

Cela fonctionne aussi , cependant maintenant il va falloir que je lui dise qu'à la sélection de l'item dans la listbox il me sorte les rapports, je cherche et reviens en cas de problème (hors de question de me mâcher le travail)

Merci encore

[chrisdu86]

Re,

Bon beh je reviens

Alors je suis maintenant à l'étape de création des fiches mais le code que j'ai écris ne remplis pas son rôle (j'essaie d'apprendre )

Voici le code en question :

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
Private Sub CommandButton1_Click()
Dim BDD As Workbook                                         'Correspond au classeur sources (bdd fiches)
Dim rapport As Workbook                                     'Correspond a la trame des rapports
Dim rep As String                                           'Variable du dossier racine (user)
Dim classeurpath As String                                  'Variable definissant le chemin des classeurs
Dim classeurphoto As String                                 'Variable definissant le chemin des photos
Dim nfiche As Integer
 
 
    rep = Environ("USERPROFILE") & "\"
    classeurpath = rep & "Documents\EIPinspection-final\RAPPORTS\rapfinal_C.xlsm"
    classeurphoto = rep & "Documents\EIPinspection\PHOTOS"
 
Set BDD = ThisWorkbook
Set rapport = Workbooks.Open(classeurpath)
nbToGo = ListBox1.ListCount
 
        For i = 0 To nbToGo - 1
'Application.ScreenUpdating = False
            'If ListBox1.Selected(i) = True Then
            If ListBox1.Selected(i) Then
                nfiche = BDD.Worksheets(i).Range("BN" & i)                                               'Alors ici je voudrais qu'il nomme la feuille en fonction de la valeur stocker dans la colonne BN de la feuille selectionné (atelier)
                rapport.Worksheets("R117C").Copy Before:=rapport.Worksheets("R117C")
                ActiveSheet.Name = nfiche
 
 
            End If
 
 
            Next
 
End Sub

et resultat... la feuille s'appel 0, une idée ?

Merci à tous

chrisdu86

[joe.levrai]

une idée ?

Une réponse ?
==> #3

[chrisdu86]

Bonjour,

suggestion récurrente du père Joe : pourquoi une feuille par atelier ?

Si tu ajoutes une colonnes qui portera le nom de ton atelier, tu peux rassembler toutes tes feuilles en une seule.

Et là, tu te simplifies grandement la vie, puisque choisir un atelier revient grosso modo à faire un filtrage (automatique ou avancé) sur une unique feuille

Bonjour,

A cette heure, le classeur est composé d'une feuille par atelier sur demande du client, on ne peut donc pas changer, c'est sur que cela aurait été certainement plus simple

[joe.levrai]

Alors,

regarde bien ta ligne 18 : la boucle commence à quelle valeur ?

ensuite, regarde ta ligne 22 : que va-t-il se passer si ton premier élément de ListBox est sélectionné ? Le code va faire référence à la feuille numéro combien ? Et la ligne numéro combien ?

Déjà rien que ça ne permet pas d'aller plus loin dans l'étude de ton code, c'est une erreur totalement rédhibitoire

[chrisdu86]

Si je comprend bien, la boucle commence à la valeur i, je sélectionne une feuille ? cependant ma BDD commence elle à la ligne 2

La référence de la feuille est en fonction de ma sélection dans la listbox

J'ai du mal avec ça, cela à pourtant l'air simple, le souhait étant sélectionner l'atelier, et créer toutes les fiches de cette atelier a partir de la ligne 2, grrrr...

Merci de me faire chercher c'est un bon moyen d'apprendre et de trouver ces erreurs...

[chrisdu86]

Bon j'essaye de répondre avec plus de réflexion !!

Ma ligne 18 : elle commence à la valeur 0, mais ce que je ne comprend pas c'est i, est ce que "i" prend la valeur de la selection de la listbox, c'est a dire l'atelier (la feuille) ou de la ligne de la feuille selectionnée via la listbox ?

Ma ligne 22: je bug la dessus...rhooo compliqué cette histoire


Merci encore

[chrisdu86]

Bon je doit être vraiment mauvais,

La boucle commence à 0, quand mon premier élément de la listbox est sélectionné il fait référence à la feuille 0 ! et pour la ligne ? je ne sais pas ce code m'a tout simplement l'air faux

et pourtant lorsque j'écris 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
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub CommandButton1_Click()
Dim BDD As Workbook                                         'Correspond au classeur sources (bdd fiches)
Dim rapport As Workbook                                     'Correspond a la trame des rapports
Dim rep As String                                           'Variable du dossier racine (user)
Dim classeurpath As String                                  'Variable definissant le chemin des classeurs
Dim classeurphoto As String                                 'Variable definissant le chemin des photos
Dim nfiche As Integer
Dim i
    rep = Environ("USERPROFILE") & "\"
    classeurpath = rep & "Documents\EIPinspection-final\RAPPORTS\rapfinal_C.xlsm"
    classeurphoto = rep & "Documents\EIPinspection-final\PHOTOS"
 
Set BDD = ThisWorkbook
Set rapport = Workbooks.Open(classeurpath)
nbToGo = ListBox1.ListCount
 
        For i = 0 To ListBox1.ListCount - 1
 
            If ListBox1.Selected(i) = True Then MsgBox ListBox1.List(i)     ' il me renvoi bien l'atelier en question donc i c'est la feuille ?
 
 
 
                'nfiche = BDD.Worksheets(i).Range("BN" & i + 2)               ' et la je fais n'importe quoi car si i correspond à la feuille ce n'est effectivement pas une ligne !!!
                'rapport.Worksheets("R117C").Copy Before:=rapport.Worksheets("R117C")
                'ActiveSheet.Name = nfiche
 
 
 
            'End With
 
             'End If
 
 
 
            Next i
 
End Sub

j'ai commenté mais je ne comprend pas comment je devrais écrire ce code... grrr
je manque de logique surement

Merci

[unparia]

Bonjour

...ce que je ne comprend pas c'est i, est ce que "i" ...

Je ne comprends pas que l'on puisse se poser une telle question sur l'utilisation de la valeur de i dans la boucle for i
commence s'il te plait (ce sera un 1er pas) à t'interroger (entre autres) sur le sens de

Code :

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

 nfiche = BDD.Worksheets(i).Range("BN" & i)

Lorsque i = 0, que serait la cellule BN0 ??? A quelle ligne 0 pourrait-elle correspondre ? La ligne 0 n'existe pas.
Juste un peu de réflexion ne fera pas de mal....

[chrisdu86]

Bonjour unparia

Merci pour tes remarques, j'ai bien ciblé l'erreur comme dis en commentaire dans mon code

Sache que je suis novice et n'est pas encore toutes les ficelles en VBA,

Je planche depuis hier sur ce problème, alors la réflexion je l'ai mais pas la bonne effectivement... d'où je demande de l'aide

si je m'interroge sur nfiche = BDD.Worksheets(i).Range("BN" & i)

je lui demande de me nommer la feuille avec la valeur contenu dans la colonne BN , ce que je n'arrive pas a comprendre c'est comment lui dire que c'est la ligne x, il y a plusieurs ligne dans cette feuille donc plusieurs rapport... et chaque rapport a SON numéro de fiche dans cette colonne BN

Si je dis verbalement ce que je veux (ça c'est facile), c'est : je sélectionne mon atelier dans la listbox, lui reconnait que c'est la feuille concernée par cet atelier, ensuite il me sort tous les rapports de cet atelier

Mis pour moi mettre ça en VBA n'est pas si simple comparé a vous les addictes

Si je comprend mon erreur ne serait elle pas ici : BDD.WorkSheets(i) ?

[chrisdu86]

Bon beh je sèche là...

C'est surement tout bête comme solution, mais pour un débutant comme moi c'est tendu l'histoire...

i est à priori al valeur de la ligne donc ma boucle for devrait être

Code :

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

for i = 2 to ListBox1.listcount -1

, mais rien non plus... serais-je beta ?

Merci mais si vous pouviez approfondir cette piste, car là ça va finir au doliprane

Merci a tous

[chrisdu86]

Bonjour a tous

Donc rien que pour montrer à certain que oui je cherche une solution voici mon avancement.

J'arrive maintenant a nommer la feuille avec la valeur de la colonne BN. Voici le 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
Private Sub CommandButton1_Click()
 
    rep = Environ("USERPROFILE") & "\"
    classeurpath = rep & "Documents\EIPinspection-final\RAPPORTS\rapfinal_C.xlsm"
    classeurphoto = rep & "Documents\EIPinspection-final\PHOTOS"
 
Set BDD = ThisWorkbook
Set rapport = Workbooks.Open(classeurpath)
 
nbtogo = ListBox1.ListCount
 
 
 
        For i = 0 To nbtogo - 1
 
            If ListBox1.Selected(i) = True Then
                nfiche = BDD.Worksheets(ListBox1.List(i)).Range("BN" & i + 2)                          'Il me nomme ma feuille comme je le veux
                rapport.Worksheets("R117C").Copy Before:=rapport.Worksheets("R117C")
                ActiveSheet.Name = nfiche
                ' le reste du code est en ma possession pour les rapports
 
             End If
         Next i
 
End Sub

Mais ma BDD a plusieurs ligne donc plusieurs fiches, cependant ma boucle s'arrête, donc je cherche pour le reste une aide est la bienvenue

Ne faudrait il pas une autre boucle For Each ... pour qu'il puisse boucler sur les lignes de la feuille selectionnée ?

Merci a tous

[pijaku]

Bonjour,

Le i de ta ligne : For i = 0 To ListBox1.ListCount - 1 ne représente pas un numéro de ligne dans ta feuille, ni un numéro de feuille.
Il s'agit simplement d'une variable d'incrémentation de ta boucle.
Cela te permet entre autre, de déterminer si :
ListBox1.Selected(i) ==> cet élément est sélectionné
ListBox1.List(i) ==> d'en extraire le contenu (de l'élément)

Donc i est, en quelque sorte, une "ligne" de ta ListBox1.

Si ta listbox contient effectivement les noms des feuilles de ton classeur, la syntaxe : BDD.Worksheets(ListBox1.List(i)) représentera bien une feuille du classeur BDD.

Quand au reste, tu n'es pas assez explicite pour pouvoir t'aider.
Tu cherches à atteindre qu'elle ligne ? de qu'elle colonne ? de qu'elle feuille ? de quel classeur ?

[chrisdu86]

Bonjour pijaku,

Tout d'abord, merci d'avoir pris le temps de m'expliquer cette histoire de i, j'avais fini par trouver la solution sans trop comprendre pourquoi, mais maintenant c'est plus clair

Oui effectivement je ne suis pas assez clair dans ce que je souhaite, donc je vais tacher de l'être :

Je te fais part de la conception des classeurs: il y a un classeur ou sont stockées,en ligne, tous les défauts relevés par atelier, chaque atelier constitue une feuille du classeur, jusqu'ici c'est simple

ce que je souhaite, c'est que lorsque je sélectionne, dans ma listbox, l'atelier voulu, il me créé tous les rapports de cet atelier sélectionné, j'ai donc fais le code entièrement, mais il ne boucle pas sur toutes les lignes de l'atelier choisis, voici le code :

(ça va être long à manger désolé)

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
Option Explicit
Dim i As Byte
Dim j As Byte
Dim BDD As Workbook                                         'Correspond au classeur sources (bdd fiches)
Dim rapport As Workbook                                     'Correspond a la trame des rapports
Dim rep As String                                           'Variable du dossier racine (user)
Dim classeurpath As String                                  'Variable definissant le chemin des classeurs
Dim classeurphoto As String                                 'Variable definissant le chemin des photos
Dim nfiche As String                                        'Variable definissant le nom de la feuille
Dim nbtogo As Integer
Dim photo1 As String, photo2 As String, photo3 As String, photo4 As String, photo5 As String, photo6 As String, photo7 As String
Dim photo8 As String, photo9 As String, photo10 As String, photo11 As String, photo12 As String, photo13 As String, photo14 As String
Dim photo15 As String, photo16 As String, photo17 As String
 
 
 
 
Private Sub UserForm_Initialize()
 
For i = 1 To Sheets.Count
    Me.ListBox1.AddItem Sheets(i).Name
Next i
 
End Sub
 
Private Sub CommandButton1_Click()
 
rep = Environ("USERPROFILE") & "\"
classeurpath = rep & "Documents\EIPinspection-final\RAPPORTS\rapfinal_C.xlsm"
classeurphoto = rep & "Documents\EIPinspection-final\PHOTOS\IMGP"
 
Set BDD = ThisWorkbook
Set rapport = Workbooks.Open(classeurpath)
nbtogo = ListBox1.ListCount
 
        For i = 0 To nbtogo - 1
 
            If ListBox1.Selected(i) = True Then
 
 
                nfiche = BDD.Worksheets(ListBox1.List(i)).Range("BN" & i + 2).Value                 'Nomme la feuille avec la valeur de la colonne BN à i+2
 
                rapport.Worksheets("R117C").Copy Before:=rapport.Worksheets("R117C")
                ActiveSheet.Name = nfiche
 
                'Affiche la photo globale de l'EIP ainsi que son numéro
                Sheets(nfiche).Range("L17") = BDD.Worksheets(ListBox1.List(i)).Range("A" & i + 2).Value         'Inscrit le n° de la photo globale (A)
 
                photo1 = classeurphoto & Format(BDD.Worksheets(ListBox1.List(i)).Range("A" & i + 2).Value, "0000") & ".jpg"     'PLACE LA PHOTO SI PRESENTE DANS LE CONTROLE IMAGE 1
                If Dir(photo1) <> "" Then
                    Sheets(nfiche).image1.Picture = LoadPicture(photo1)
                End If
 
                '### PAGE 1 DU RAPPORT ###
 
                'Localisation du defaut
                Sheets(nfiche).Range("H96") = BDD.Worksheets(ListBox1.List(i)).Range("B" & i + 2).Value         'ATELIER
                Sheets(nfiche).Range("W96") = BDD.Worksheets(ListBox1.List(i)).Range("C" & i + 2).Value         'BATIMENT
                Sheets(nfiche).Range("AJ96") = BDD.Worksheets(ListBox1.List(i)).Range("D" & i + 2).Value        'SALLE
                Sheets(nfiche).Range("AW96") = BDD.Worksheets(ListBox1.List(i)).Range("E" & i + 2).Value        'NIVEAU
                Sheets(nfiche).Range("BI96") = BDD.Worksheets(ListBox1.List(i)).Range("F" & i + 2).Value        'BLOC
                Sheets(nfiche).Range("BT96") = BDD.Worksheets(ListBox1.List(i)).Range("G" & i + 2).Value        'UNITE
 
                'Accessibilité de l'EIP
                Sheets(nfiche).Range("P102") = BDD.Worksheets(ListBox1.List(i)).Range("H" & i + 2).Value        'EXPERTISE POSSIBLE OUI/NON/PARTIELLE
                Sheets(nfiche).Range("AR101") = BDD.Worksheets(ListBox1.List(i)).Range("I" & i + 2).Value       'MOTIF DE L'EXPERTISE
 
                'Information générale de l'EIP concerné parle présent PV
                Sheets(nfiche).Range("Q109") = BDD.Worksheets(ListBox1.List(i)).Range("L" & i + 2).Value        'REPERE FONCTIONNEL
                Sheets(nfiche).Range("AJ109") = BDD.Worksheets(ListBox1.List(i)).Range("M" & i + 2).Value       'TYPE D'EQUIPEMENT
                Sheets(nfiche).Range("P119") = BDD.Worksheets(ListBox1.List(i)).Range("N" & i + 2).Value        'TYPE DE DEFAUTS RENCONTRE
                Sheets(nfiche).Range("Q111") = BDD.Worksheets(ListBox1.List(i)).Range("O" & i + 2).Value        'DESCRIPTION / DESIGNATION
 
                'Observation et conformité de l'EIP
                Sheets(nfiche).Range("M117") = BDD.Worksheets(ListBox1.List(i)).Range("AY" & i + 2).Value       'OUTILLAGE UTILISE
                Sheets(nfiche).Range("AX117") = BDD.Worksheets(ListBox1.List(i)).Range("AZ" & i + 2).Value      'DATE DE VALIDITE
 
                        'CONFORMITE DE L'EIP SUIVANT SON ETAT D'INSPECTION
                            If BDD.Worksheets(ListBox1.List(i)).Range("J" & i + 2).Value <> "" Then
                                Sheets(nfiche).Range("BX117") = BDD.Worksheets(ListBox1.List(i)).Range("J" & i + 2).Value
                            Else
                            End If
                            If BDD.Worksheets(ListBox1.List(i)).Range("K" & i + 2).Value <> "" Then
                                Sheets(nfiche).Range("BX117") = BDD.Worksheets(ListBox1.List(i)).Range("K" & i + 2).Value
                            Else
                            End If
                            If BDD.Worksheets(ListBox1.List(i)).Range("BG" & i + 2).Value <> "" Then
                                Sheets(nfiche).Range("BS117") = BDD.Worksheets(ListBox1.List(i)).Range("BG" & i + 2).Value
                            Else
                            End If
                            If BDD.Worksheets(ListBox1.List(i)).Range("BH" & i + 2).Value <> "" Then
                                Sheets(nfiche).Range("BX117") = BDD.Worksheets(ListBox1.List(i)).Range("BH" & i + 2).Value
                            Else
                            End If
                            If BDD.Worksheets(ListBox1.List(i)).Range("BA" & i + 2).Value <> "" Then
                                Sheets(nfiche).Range("BS117") = BDD.Worksheets(ListBox1.List(i)).Range("BA" & i + 2).Value
                            Else
                            End If
                            If BDD.Worksheets(ListBox1.List(i)).Range("BB" & i + 2).Value <> "" Then
                                Sheets(nfiche).Range("BX117") = BDD.Worksheets(ListBox1.List(i)).Range("BB" & i + 2).Value
                            Else
                            End If
 
                Sheets(nfiche).Range("C127") = BDD.Worksheets(ListBox1.List(i)).Range("BC" & i + 2).Value       'OBSERVATION DURANT L'INSPECTION
                Sheets(nfiche).Range("AR137") = BDD.Worksheets(ListBox1.List(i)).Range("BF" & i + 2).Value      'RAPPORT PHOTO EN ANNEXE
                Sheets(nfiche).Range("BO3") = BDD.Worksheets(ListBox1.List(i)).Range("BI" & i + 2).Value        'DATE DE L'INSPECTION
 
                'Défaut corrosion
 
                        Select Case BDD.Worksheets(ListBox1.List(i)).Range("P" & i + 2).Value
                            Case Is <> ""
                                photo2 = classeurphoto & Format(BDD.Worksheets(ListBox1.List(i)).Range("Q" & i + 2).Value, "0000") & ".jpg"     'PLACE LA PHOTO SI PRESENTE DANS LE CONTROLE IMAGE 2
                                photo3 = classeurphoto & Format(BDD.Worksheets(ListBox1.List(i)).Range("R" & i + 2).Value, "0000") & ".jpg"     'PLACE LA PHOTO SI PRESENTE DANS LE CONTROLE IMAGE 3
                                    If Dir(photo2) <> "" And Dir(photo3) <> "" Then                                                             'SI LES 2 COLONNES CONTIENNENT DES N° DE PHOTOS
                                        Sheets(nfiche).Image2.Picture = LoadPicture(photo2)                                                     '
                                        Sheets(nfiche).Range("J155") = BDD.Worksheets(ListBox1.List(i)).Range("Q" & i + 2).Value
                                        Sheets(nfiche).Image3.Picture = LoadPicture(photo3)
                                        Sheets(nfiche).Range("N166") = BDD.Worksheets(ListBox1.List(i)).Range("P" & i + 2).Value
                                        Sheets(nfiche).Range("X155") = BDD.Worksheets(ListBox1.List(i)).Range("R" & i + 2).Value
                                        Sheets(nfiche).Range("N167") = BDD.Worksheets(ListBox1.List(i)).Range("S" & i + 2).Value                'IMPLANTATION DU DEFAUT
                                        Sheets(nfiche).Range("N168") = BDD.Worksheets(ListBox1.List(i)).Range("T" & i + 2).Value                'OBSERVATION
                                    End If
                        End Select
 
                'Défaut de serrage
 
                        Select Case BDD.Worksheets(ListBox1.List(i)).Range("U" & i + 2).Value
                            Case Is <> ""
                                photo4 = classeurphoto & Format(BDD.Worksheets(ListBox1.List(i)).Range("V" & i + 2).Value, "0000") & ".jpg"     'PLACE LA PHOTO SI PRESENTE DANS LE CONTROLE IMAGE 2
                                photo5 = classeurphoto & Format(BDD.Worksheets(ListBox1.List(i)).Range("W" & i + 2).Value, "0000") & ".jpg"     'PLACE LA PHOTO SI PRESENTE DANS LE CONTROLE IMAGE 3
                                    If Dir(photo4) <> "" And Dir(photo5) <> "" Then                                                             'SI LES 2 COLONNES CONTIENNENT DES N° DE PHOTOS
                                        Sheets(nfiche).Image4.Picture = LoadPicture(photo4)                                                     '
                                        Sheets(nfiche).Range("BE155") = BDD.Worksheets(ListBox1.List(i)).Range("V" & i + 2).Value
                                        Sheets(nfiche).Image5.Picture = LoadPicture(photo5)
                                        Sheets(nfiche).Range("BI166") = BDD.Worksheets(ListBox1.List(i)).Range("U" & i + 2).Value
                                        Sheets(nfiche).Range("BS155") = BDD.Worksheets(ListBox1.List(i)).Range("W" & i + 2).Value
                                        Sheets(nfiche).Range("BI167") = BDD.Worksheets(ListBox1.List(i)).Range("X" & i + 2).Value                'IMPLANTATION DU DEFAUT
                                        Sheets(nfiche).Range("BI168") = BDD.Worksheets(ListBox1.List(i)).Range("Y" & i + 2).Value                'OBSERVATION
                                    End If
                        End Select
 
                'Manque ou defaut de visserie
 
                        Select Case BDD.Worksheets(ListBox1.List(i)).Range("Z" & i + 2).Value
                            Case Is <> ""
                                photo6 = classeurphoto & Format(BDD.Worksheets(ListBox1.List(i)).Range("AA" & i + 2).Value, "0000") & ".jpg"     'PLACE LA PHOTO SI PRESENTE DANS LE CONTROLE IMAGE 2
                                photo7 = classeurphoto & Format(BDD.Worksheets(ListBox1.List(i)).Range("AB" & i + 2).Value, "0000") & ".jpg"     'PLACE LA PHOTO SI PRESENTE DANS LE CONTROLE IMAGE 3
                                    If Dir(photo6) <> "" And Dir(photo7) <> "" Then                                                             'SI LES 2 COLONNES CONTIENNENT DES N° DE PHOTOS
                                        Sheets(nfiche).Image6.Picture = LoadPicture(photo6)                                                     '
                                        Sheets(nfiche).Range("J175") = BDD.Worksheets(ListBox1.List(i)).Range("AA" & i + 2).Value
                                        Sheets(nfiche).Image7.Picture = LoadPicture(photo7)
                                        Sheets(nfiche).Range("N186") = BDD.Worksheets(ListBox1.List(i)).Range("Z" & i + 2).Value
                                        Sheets(nfiche).Range("X175") = BDD.Worksheets(ListBox1.List(i)).Range("AB" & i + 2).Value
                                        Sheets(nfiche).Range("N187") = BDD.Worksheets(ListBox1.List(i)).Range("AC" & i + 2).Value                'IMPLANTATION DU DEFAUT
                                        Sheets(nfiche).Range("N188") = BDD.Worksheets(ListBox1.List(i)).Range("AD" & i + 2).Value                'OBSERVATION
                                    End If
                        End Select
 
                'Cheville defectueuse
 
                        Select Case BDD.Worksheets(ListBox1.List(i)).Range("AE" & i + 2).Value
                            Case Is <> ""
                                photo8 = classeurphoto & Format(BDD.Worksheets(ListBox1.List(i)).Range("AF" & i + 2).Value, "0000") & ".jpg"     'PLACE LA PHOTO SI PRESENTE DANS LE CONTROLE IMAGE 2
                                photo9 = classeurphoto & Format(BDD.Worksheets(ListBox1.List(i)).Range("AG" & i + 2).Value, "0000") & ".jpg"     'PLACE LA PHOTO SI PRESENTE DANS LE CONTROLE IMAGE 3
                                    If Dir(photo8) <> "" And Dir(photo9) <> "" Then                                                              'SI LES 2 COLONNES CONTIENNENT DES N° DE PHOTOS
                                        Sheets(nfiche).Image8.Picture = LoadPicture(photo8)                                                     '
                                        Sheets(nfiche).Range("BE175") = BDD.Worksheets(ListBox1.List(i)).Range("AF" & i + 2).Value
                                        Sheets(nfiche).Image9.Picture = LoadPicture(photo9)
                                        Sheets(nfiche).Range("BI186") = BDD.Worksheets(ListBox1.List(i)).Range("AE" & i + 2).Value
                                        Sheets(nfiche).Range("BS175") = BDD.Worksheets(ListBox1.List(i)).Range("AG" & i + 2).Value
                                        Sheets(nfiche).Range("BI187") = BDD.Worksheets(ListBox1.List(i)).Range("AH" & i + 2).Value                'IMPLANTATION DU DEFAUT
                                        Sheets(nfiche).Range("BI188") = BDD.Worksheets(ListBox1.List(i)).Range("AI" & i + 2).Value                'OBSERVATION
                                    End If
                        End Select
 
                'Tige defectueuse
 
                        Select Case BDD.Worksheets(ListBox1.List(i)).Range("AJ" & i + 2).Value
                            Case Is <> ""
                                photo10 = classeurphoto & Format(BDD.Worksheets(ListBox1.List(i)).Range("AK" & i + 2).Value, "0000") & ".jpg"     'PLACE LA PHOTO SI PRESENTE DANS LE CONTROLE IMAGE 2
                                photo11 = classeurphoto & Format(BDD.Worksheets(ListBox1.List(i)).Range("AL" & i + 2).Value, "0000") & ".jpg"     'PLACE LA PHOTO SI PRESENTE DANS LE CONTROLE IMAGE 3
                                    If Dir(photo10) <> "" And Dir(photo11) <> "" Then                                                              'SI LES 2 COLONNES CONTIENNENT DES N° DE PHOTOS
                                        Sheets(nfiche).Image10.Picture = LoadPicture(photo10)                                                     '
                                        Sheets(nfiche).Range("J195") = BDD.Worksheets(ListBox1.List(i)).Range("AK" & i + 2).Value
                                        Sheets(nfiche).Image11.Picture = LoadPicture(photo11)
                                        Sheets(nfiche).Range("N206") = BDD.Worksheets(ListBox1.List(i)).Range("AJ" & i + 2).Value
                                        Sheets(nfiche).Range("X195") = BDD.Worksheets(ListBox1.List(i)).Range("AL" & i + 2).Value
                                        Sheets(nfiche).Range("N207") = BDD.Worksheets(ListBox1.List(i)).Range("AM" & i + 2).Value                'IMPLANTATION DU DEFAUT
                                        Sheets(nfiche).Range("N208") = BDD.Worksheets(ListBox1.List(i)).Range("AN" & i + 2).Value                'OBSERVATION
                                    End If
                        End Select
 
                'Fissure au niveau du GC
 
                        Select Case BDD.Worksheets(ListBox1.List(i)).Range("AJ" & i + 2).Value
                            Case Is <> ""
                                photo12 = classeurphoto & Format(BDD.Worksheets(ListBox1.List(i)).Range("AP" & i + 2).Value, "0000") & ".jpg"     'PLACE LA PHOTO SI PRESENTE DANS LE CONTROLE IMAGE 2
                                photo13 = classeurphoto & Format(BDD.Worksheets(ListBox1.List(i)).Range("AQ" & i + 2).Value, "0000") & ".jpg"     'PLACE LA PHOTO SI PRESENTE DANS LE CONTROLE IMAGE 3
                                    If Dir(photo12) <> "" And Dir(photo13) <> "" Then                                                              'SI LES 2 COLONNES CONTIENNENT DES N° DE PHOTOS
                                        Sheets(nfiche).Image12.Picture = LoadPicture(photo12)                                                     '
                                        Sheets(nfiche).Range("BE195") = BDD.Worksheets(ListBox1.List(i)).Range("AP" & i + 2).Value
                                        Sheets(nfiche).Image13.Picture = LoadPicture(photo13)
                                        Sheets(nfiche).Range("BI206") = BDD.Worksheets(ListBox1.List(i)).Range("AO" & i + 2).Value
                                        Sheets(nfiche).Range("BS195") = BDD.Worksheets(ListBox1.List(i)).Range("AQ" & i + 2).Value
                                        Sheets(nfiche).Range("BI207") = BDD.Worksheets(ListBox1.List(i)).Range("AR" & i + 2).Value                'IMPLANTATION DU DEFAUT
                                        Sheets(nfiche).Range("BI208") = BDD.Worksheets(ListBox1.List(i)).Range("AS" & i + 2).Value                'OBSERVATION
                                    End If
                        End Select
 
                'Defaut de calage
 
                        Select Case BDD.Worksheets(ListBox1.List(i)).Range("AT" & i + 2).Value
                            Case Is <> ""
                                photo14 = classeurphoto & Format(BDD.Worksheets(ListBox1.List(i)).Range("AU" & i + 2).Value, "0000") & ".jpg"    'DECLARE LA VARIABLE PHOTO
                                photo15 = classeurphoto & Format(BDD.Worksheets(ListBox1.List(i)).Range("AV" & i + 2).Value, "0000") & ".jpg"    'DECLARE LA VARIABLE PHOTO
                                    If Dir(photo14) <> "" And Dir(photo15) <> "" Then                                                            'SI LES 2 COLONNES CONTIENNENT DES N° DE PHOTOS
                                        Sheets(nfiche).Image14.Picture = LoadPicture(photo14)                                                    'CHARGE LA PHOTO DANS LE CONTROLE IMAGE
                                        Sheets(nfiche).Range("J215") = BDD.Worksheets(ListBox1.List(i)).Range("AU" & i + 2).Value                'INSCRIT LE N° DE PHOTO 1
                                        Sheets(nfiche).Image15.Picture = LoadPicture(photo15)                                                    'CHARGE LA PHOTO DANS LE CONTROLE IMAGE
                                        Sheets(nfiche).Range("N226") = BDD.Worksheets(ListBox1.List(i)).Range("AT" & i + 2).Value                'INSCRIT LE TYPE DE DEFAUT
                                        Sheets(nfiche).Range("X215") = BDD.Worksheets(ListBox1.List(i)).Range("AV" & i + 2).Value                'INSCRIT LE N° DE PHOTO
                                        Sheets(nfiche).Range("N227") = BDD.Worksheets(ListBox1.List(i)).Range("AW" & i + 2).Value                'IMPLANTATION DU DEFAUT
                                        Sheets(nfiche).Range("N228") = BDD.Worksheets(ListBox1.List(i)).Range("AX" & i + 2).Value                'OBSERVATION
                                    End If
                        End Select
 
 
            End If
            Next i
        Unload Me
End Sub

Sache que je suis débutant, tu va peut-être trouver des trucs bizzares, je suis preneur de tout conseil

Merci pour ton aide

chrisdu86

[pijaku]

Peux tu traduire, en termes Exxcel (cellules, colonnes, lignes, etc...) ce qui est en gras dans ta phrase :
c'est que lorsque je sélectionne, dans ma listbox, l'atelier voulu, il me créé tous les rapports de cet atelier sélectionné

[chrisdu86]

Euh... pour faire simple ce code fonctionne très bien, mais sur une seul ligne, hors le tableau comporte plusieurs ligne, donc plusieurs fiches, idéalement, une boucle sur chaque ligne de l'atelier sélectionné,

Que ne comprends-tu pas dans ma demande ?

re,

Quand je dis "il me créé tous les rapports de cet atelier sélectionné, je veux dire par là :

que lorsque je choisi ma feuille (donc mon atelier) dans ma listbox, il me sorte les rapports (ligne de la feuille). c'est la dessus que mon code posté plus tôt est basé, mais il ne fonctionne que sur une ligne (la première) hors je veux tout...

Est-ce plus claire comme ça ?

chrisdu86

[pijaku]

Bonjour,

Je tente une dernière fois, mais tu as déjà eu tout ce dont tu avais besoin...

Euh... pour faire simple ce code fonctionne très bien, mais sur une seul ligne

Au vu de ton code, cela m'étonnerai beaucoup !

Que représente i ?
Voir mon message précédent. i n'est que la ligne sélectionnée dans ta listbox qui te permet de récupérer le nom de ta feuille (ton atelier).
Or, tu l'utilises également comme numéro de ligne :

Code :

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

nfiche = BDD.Worksheets(ListBox1.List(i)).Range("BN" & i + 2).Value

Prenons un exemple concret :
Une listbox contient :
Feuil1
Feuil2
Feuil3
Feuil4
Feuil5
Si je click sur Feuil1, et que je récupère son index i (par sa propriété ListIndex hein), il sera égal à 0.
ListBox1.List(i) va bien te donner Feuil1.
Par contre, pour cette Feuil1, Range("BN" & i + 2) = Range("BN2")
Cliquons maintenant sur Feuil2.
i = 1
Range("BN" & i + 2) = Range("BN3")

Ai-je besoin de continuer?

Il te faut donc déterminer quel est le numéro de la première ligne à afficher.
Puis, te servir de contrôles (CommandButton, SpinButton, autre) pour faire s'afficher les autres lignes correspondants à tes rapports.

Je vais donc maintenant te laisser avancer un peu seul.

Avec un peu de lecture tiens... userform-creer-consulter-modifier-supprimer-enregistrements-l-aide-d-formulaire/