Discussion :

[Jbrioudes]

Bonsoir,

Je developpe sous Excel 2003 un programme d'impression des feuilles de matchs d'un tournoi de beach volley ball.

L'utilisateur est amené à saisir les n° de matchs qu'il veut imprimer en utilisant le séparateur - pour les séries continue et ; pour les séries discontinues comme dans Word. (ex : 1;3;5-7;9-11;13 pour imprimer les matchs 1, 3, 5, 6, 7, 9, 10 ,11 et 13).

Je patauge dans la traduction vba de ce problème pour n'exploiter dans une boucle que les impressions demandées.

Je m'oriente vers un tableau des matchs demandés mais j'ai du mal à remplir ce tableau en fonction de la saisie de l'utilisateur.

Dans l'attente de vous lire, je vous remercie par avance de votre aide, et vous informe que cette application restera à la disposition de toute personne souhaitant l'utiliser.

[JackOuYA]

Bonsoir,

on peut jouer avec deux split imbriqués ..

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
Sub yaPrint()
 Dim yaMatch As String
 Dim yaTb
 Dim yaPage
 Dim i As Integer
 Dim j As Integer
 yaMatch = "1;3;5-7;9-11;13"
 yaTb = Split(yaMatch, ";")
 
 For i = 0 To UBound(yaTb)
    Debug.Print yaTb(i)
    yaPage = Split(yaTb(i), "-")
     For j = yaPage(0) To yaPage(UBound(yaPage))
        Debug.Print "Print : " & j ' PALCER ICI L'APPEL à LA procédure d'impression d'un Match
     Next
 Next
End Sub

[Jbrioudes]

Bonsoir et merci à JackOuYA,

A première vue la solution me semble parfaite et je te remercie encore de me faire gagner énormément de temps.

Je suis trop fatigué pour approfondir maintenant et concluerai mon travail demain ou après demain.