imprimer en boucle avec un multi select List Box

Question

Bonjour, 

J'ai un programme VBA qui doit utiliser un multi Select List Box pour imprimer une plage de données d'une feuille excel. 
Cette plage de données contient des textBox qui se remplissent automatiquement à partir de la sélection effectuée au niveau de la listbox.


For n = 0 To ListBox1.ListCount - 1
        
        If ListBox1.Selected(n) = True Then
    
            Do
                iRow = iRow + 1
        
                    Loop Until ListBox1.List(n) = Sheets("PROPOSITION").Cells(iRow, 7)
                    
                    Sheets("plage").TextBox1.Text = Sheets("PROPOSITION").Cells(6, 3)
                    Sheets("plage").TextBox2.Text = Sheets("PROPOSITION").Cells(iRow, 7)
                    Sheets("plage").TextBox3.Text = Sheets("PROPOSITION").Cells(iRow, 2)
                    Sheets("plage").Range("A1:M18").PrintOut
                    
          End If
            
        Next n

Mon problème est que quelque soit le nombre de sélection effectué dans le ListBox, seul le premier cas est imprimer en autant de fois que j'ai sélectionné. En d'autre termes, la même page est imprimée 5 fois si j'ai coché 5 items dans le ListBox

Zoul67 · Answer

Bonjour,

Il n'y a rien de flagrant... à mes yeux du moins.
As-tu essayé le débug avec des points d'arrêt et des espions ?
Sinon, si ton fichier n'est pas confidentiel, peux-tu le partager sur https://www.cjoint.com/ ?

A+

daidi06 · Answer

Merci Zoul67 pour votre réponse instantanée.
En fait le problème c'est que tout s'exécute parfaitement.
Mais ne fait pas les impressions comme je veux.
Ok il n'ya aucun problème je vais joindre le fichier nous allons l'étudier ensemble.
Merci encore

daidi06 · Answer

Voici l'adresse ou se trouve mon fichier:

http://www.cjoint.com/c/EJnpxITro8u

Merci de bien vouloir m'aider

daidi06 · Answer

Merci beaucoup Zoul67

J'ai testé le programme et ça marche si je suis sur excel 2007 et ça ne marche pas si je suis sur excel 2013. Tu vois, au service je travaille avec Excel 2013 et sur ma machine personnelle, je travaille avec excel 2007. Pourtant je dois implémenter ce programme au service!!! Donc il faut que ça marche aussi avec Excel 2013.

Help me please

daidi06 · Answer

En faite, je dispose d'un formulaire papier et l'idée est de remplir ce formulaire avec un ordinateur et une imprimante! J'ai alors pensé à utiliser excel. L'emplacement des TextBox corresponde au zone du formulaire à remplir.
Si mon programme marchait, j'ai seulement à introduire dans mon imprimante autant de formulaire et je lance l'impression. 
Tu vois que ça sera difficile d'utiliser les cellules excel si je veux que les champs de mon formulaire coïncident avec les cellules. Peut être alors un userform! Mais il me faudra encore un travail de titan pour que les champs correspondent aux champs de mon formulaire

Imprimer en boucle avec un multi select List Box

5 réponses

Votre réponse

Discussions similaires

Newsletters