Discussion :

[sabinaS]

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. J'ai besoin d'aide et J'envoie le signal SOS aux gourous d'informatique presents sur ce forum!!

Voila mon code:

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
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

[SfJ5Rpw8]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
 
(...)
  Do Until fTo.Cells(x, 1) = "EndOfFile"
 
     fTa.Cells(y, 1).Value = fTo.Cells(x, 1).Value
(...)

[sabinaS]

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?

[SfJ5Rpw8]

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..)

[sabinaS]

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