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