Discussion :

[othmanepf]

Bonjour,
J'ai un formulaire très simple qui contient 2 contrôles : 1 liste déroulante et un bouton
je choisis une machine dans liste et je lance mon code.

Serait-ce possible de créer une boucle qui le ferait pour toutes les machines de ma liste?

Je vous remercie

[tee_grandbois]

bonjour,
il faut faire une boucle en parcourant la liste machine :

Code :

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

1
2
3
For j = 0 To Me.ListeMachine.ListCount - 1
' ici le code
Next j

peux-tu montrer ton code ? Cela aiderait.

[othmanepf]

Re-bonjour,
Mon bouton ne génère pas de code mais une macro (grâce au génerateur de macro)

Image ci-dessous :



Merci encore une fois

[tee_grandbois]

Bonjour,

Mon bouton ne génère pas de code mais une macro (grâce au génerateur de macro)

et le titre de ton post ne te dérange pas ?

[othmanepf]

Re-bonjour,
je ne peux pas créer une boucle avec le génerateur de macro, du coup je serais obligé de transformer ma macro en script VBA,

[tee_grandbois]

je ne peux pas créer une boucle avec le génerateur de macro, du coup je serais obligé de transformer ma macro en script VBA,

OK, as-tu déjà fait du code VBA ? Si ce n'est pas le cas, avant, je te conseille vivement de lire les tutos pour te familiariser avec.

J'y pense : si tu veux tout imprimer, pourquoi passer pas un choix dans la liste déroulante ?

[othmanepf]

Bonjour,

Ci-joint mon code VBA,

Je souhaiterais juste savoir comment on choisit la i'ème ligne de ma liste.

Merci

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
 
Sub GammePDF()
 Dim j As Integer
 Dim Max As Integer
    Max = Forms![F_Preventif]![lstmachine].ListCount - 1
    For j = 0 To Max
        Dim Ladate As Date, Lentier As Variant
        Dim mach As String, Lig As String
        Ladate = Forms![F_Preventif]![Date_p]
        Lentier = Format(DateSerial(Year(Ladate), Month(Ladate), Day(Ladate)), "dd-mm-yy")
        mach = Forms![F_Preventif]![lstmachine]
        Lig = Forms![F_Preventif]![lstligne]
 
            DoCmd.OutputTo acOutputReport, "PRINCIPALE", acFormatPDF, "\\fermat\echange\Entretien_r01\Méthodes Maintenance\Gammes\" & "Gamme_" & Lig & "_" & mach & "_" & Lentier & ".pdf"
 
 
    Next j
 
 
End Sub

[tee_grandbois]

Bonsoir,

Je souhaiterais juste savoir comment on choisit la i'ème ligne de ma liste.

pourrais-tu poster une impression d'écran de ton formulaire que je comprenne ?

[othmanepf]

Bonjour,
Ci-joint mon formulaire, merci encore fois

[tee_grandbois]

bonjour,
c'est très bien mais, j'aurais préféré un formulaire chargé de données sélectionnées avec un exemple de ce que tu souhaites.

Je souhaiterais juste savoir comment on choisit la i'ème ligne de ma liste.

Quel est le critère de sélection de la i'ème liste ?

[othmanepf]

Ce que je cherchais c'est cela :

mach = Forms![F_Preventif]![lstmachine].ItemData(i)


Merci pour ton aide tout de même