[Résolu][VB-Excel-Macro]Boucle qui ne boucle pas.

Boucle qui ne boucle pas. [Résolu][VB-Excel-Macro] - VB/VBA/VBS - Programmation

Marsh Posté le 29-04-2008 à 13:59:58    

Bonjour à tous, pour mon premier post j'ai une petite colle à vous poser:
 
En effet un de mes collegues m'a demandé de lui faire une macro (il s'avère que je le fais via VB) permettant de lui faire un traitement automatique de données en fonction de certains paramètres.
 
Je m'explique : j'ai une colonne avec des dates de rendu de location (société de BTP), il veut que 2 jours avant la date expiratoire, une feuille lui soit imprimé directement, feuille étant destiné à etre faxé au chantier pour leur rappeler de rendre le matériel loué.
J'ai donc codé sous VB une fonction faisant ce traitement à l'ouverture de son classeur excel.
 
Seulement voila quand je fais la fontion au "Pas-à-Pas" elle fonctionne parfaitement, compare toute les dates de la colonne dites "dead-line" à la date d'aujourd'hui et rempli une autre feuille avec les infos que je veux, a la condition que je veux.(je vous met le code juste apres)
 
Le soucis c'est que en éxécution, quand il trouve une égalité, il effectu bien le traitement, rempli bien la feuille et l'imprime tout seul, mais stop l'execution, ne vérifiant pas la suite des cellules de ma colonne.
 
 
je vous mets mon code :  

Code :
  1. Sub TraitementAuto()
  2. Dim plage, finplage As Range
  4. Sheets("location" ).Activate
  5. ActiveSheet.Range("G65536" ).End(xlUp).Select
  6. LigneFinG = Selection.Row
  9. For Each macellule In Range("G2:G" & LigneFinG)
  10. If Cells(1, "C" ) + 2 = macellule.Value Then
  11. Sheets("feuil2" ).Activate
  12. Range("A19:B29" ).Select
  13. Selection.Delete
  15. Sheets("location" ).Activate
  16. macellule.Select
  17. Selection.Copy
  19. Sheets("feuil2" ).Activate
  20. Cells(32, "D" ).Select
  21. Selection.PasteSpecial xlValues
  23. Sheets("location" ).Activate
  24. Cells(macellule.Row, "D" ).Select
  25. Selection.Copy
  27. Sheets("feuil2" ).Activate
  28. Cells(14, "D" ).Select
  29. Selection.PasteSpecial xlValues
  31. Sheets("location" ).Activate
  32. Cells(macellule.Row, "B" ).Select
  33. While Selection.Value = Cells(macellule.Row, "B" )
  34. ActiveCell.Offset(1, 0).Select
  35. Wend
  36. plage = ActiveCell.Offset(-1, 0).AddressLocal
  38. Range("E" & macellule.Row & ":E" & Range(plage).Row).Select
  39. Selection.Copy
  41. Sheets("feuil2" ).Activate
  42. Range("A19" ).Select
  43. Selection.PasteSpecial xlAllAtOnce
  45. Sheets("location" ).Activate
  46. Range("K" & macellule.Row & ":K" & Range(plage).Row).Select
  47. Selection.Copy
  49. Sheets("feuil2" ).Activate
  50. Range("B19" ).Select
  51. Selection.PasteSpecial xlAllAtOnce
  53. ActiveWindow.SelectedSheets("feuil2" ).PrintOut Copies:=1
  55. End If
  57. Next macellule
  58. End Sub


 
J'ai tenté de mettre une pause avant ou après l'impression car j'ai pensé que c'est cela qui fait arreter l'execution mais sans succès.
 
JE suis bloqué j'ai vraiment besoin de votre aide ^^.
 
Bonne journée,
Marco.


Message édité par marco-X95 le 30-04-2008 à 09:57:28
Reply

Marsh Posté le 29-04-2008 à 13:59:58   

Reply

Marsh Posté le 29-04-2008 à 21:35:21    

Bonsoir,
as-tu essayé en mettant:
Sheets("location" ).Activate
en ligne 54?

Message cité 1 fois
Message édité par seniorpapou le 29-04-2008 à 21:37:42
Reply

Marsh Posté le 30-04-2008 à 09:56:38    

seniorpapou a écrit :

Bonsoir,
as-tu essayé en mettant:
Sheets("location" ).Activate
en ligne 54?


 
Merci !! je me disais bien que c'était tout bête, tu assure :).
 
Comme toujours ce forum est une mine d'or.  
 
Bonne journée :)

Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed