Do Loop qui ne s'arrete pas

Bonjour tout le monde!
Je suis debutant en programmation VBA, mais pour mon boulot j'ai du bricolé un pti macro qui reorganize la table a l'aide de DO Loop. Le probleme: Une fois commencé, il ne veut pas s'arreter et je ne comprends absolument pas pourquoi. :cry: J'ai besoin d'aide et J'envoie le signal SOS aux gourous d'informatique presents sur ce forum!!

Voila mon code:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Sub TechT2()   Worksheets("Technologies").Select   x = 3 y = 2     Do Until Cells(x, 1) = "EndOfFile"   Sheets("TechTable").Activate   Cells(y, 1).Value = Sheets("Technologies").Cells(x, 1).Value   If Sheets("Technologies").Cells(x, 3).Value <> "" Then Sheets("TechTable").Cells(y, 2).Value = Sheets("Technologies").Cells(x, 3).Value Else Sheets("TechTable").Cells(y, 2).Value = "N" End If If Sheets("Technologies").Cells(x, 8).Value <> "" Then Sheets("TechTable").Cells(y, 3).Value = Sheets("Technologies").Cells(x, 8).Value Else Sheets("TechTable").Cells(y, 3).Value = "n/a" End If x = x + 1 y = y + 1 Loop End Sub

---

Merci d'avance

ce problème est surement du au ton utilisation intensive de select , activate... .

lorsque tu accède à une cellule précise la feuille concernée...

par exemple au début de ton code tu déclare 2 variables qui pointe vers tes feuilles

Code:

---

1 2 3 4 5

Dim fTo as Worksheet Dim fTa as worksheet set fTo = Thisworkbook.Sheets("Technologies") set fTa = Thisworkbook.Sheets("TechTable")

---

et tu utilise ensuite ces variables pour accéder à tes cellules

Code:

---

1 2 3 4 5 6

(...) Do Until fTo.Cells(x, 1) = "EndOfFile"   fTa.Cells(y, 1).Value = fTo.Cells(x, 1).Value (...)

---

Super! Apparemment ca marche avec les modifications que tu as proposé!!! Merci bcp! Il ne me reste que changer une 50 des lignes!

J'ai juste une question:
Et pourquoi ca ne marche pas avec select et activate?

cela ne marche pas car il y as une erreur dans ton code ... dans la ligne

Do Until Cells(x, 1) = "EndOfFile"tu accède aux cellules de la feuille active... et au premier passage c'est bon grâce au select qui précède.. mais pour les autres passage cela dépend des select effectués dans ta boucle...

Supprimer tous tes select, activave, accès direct aux object actif : ActiveCell, cells, ActiveSheet... te permettra d'éviter ce genre d'erreur en t'assurant d'agri sur la bonne cellule dans la bonne feuille du bon classeur...

Pense aussi que tu as quelqu'un devant l'écran qui exécute ta macro .. et celui-ci peu à tout moment changer de feuille ou de classeur actif avec les conséquences que tu peu imaginer lorsque tu accède à l'élément actif (qui n'est donc pas forcément celui que tu as activé dans ton code..)

D'accord... je maintenant c'est bcp plus claire. Merci bcp de ton aide. J'aurai de quoi m'occuper le reste de week-end:mrgreen: