Boucle avec macro impression

Question

bonjour, j aimerai creer une boucle sur visual basic.

pour lancer l impression, je clic sur un bouton de cosmmande.
l impression s effectue sur une feuille differente de l endroit ou se trouve le bouton.
A chaque boucle, une cellule de la page excell doit etre modifier.
Pour sortir de la boucle,il faut faire un test de superioriter a la fin de chaque boucle.

Voila se que j ai mis, mais sa marche pas :((

Private Function TrieTable()
Dim Boucle As Integer


Boucle = 0
Do
Boucle = Boucle + 1
If ((Range("b5") / Boucle) > 200) Then


Sheets("SANTONI").Select
    Range("F9").Select
    ActiveCell.FormulaR1C1 = "boucle"
Range("C4").Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True



End If
Loop While Range("b5") / 200


End Function


Private Sub CommandButton1_Click()


TrieTable


End Sub

Merci bcp de votre aide

econs · Answer

le probl&#232;me doit &#234;tre l&#224;.

Loop While Range("b5") / 200




Range("b5")/200 est un nombre



Imagine un peu ceci :





Do

' blabla

Loop While 3



A ton avis, combien de temps vas-tu boucler ?





En plus, si Range("b5") = 0, alors, tu fais l'&#233;quivalent d'un Loop While False, ce qui te fait sortir de la boucle.


Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

Boucle avec macro impression

1 réponse

Discussions similaires