Discussion :

[Max_zen]

bonsoir,

dans le code d'une feuille <MPC>

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
29
 
Sub attrib_uop()
 
Application.ScreenUpdating = False
 
 'Déclaration des variables 
    Dim tab_mop() As Variant 
    Dim NbLigE As Integer, NbColE As Integer
    Dim MemCir As String
 
 'Enregistrement des données dans le tableau
 
    Sheets("MOP").Select
  With Range("A1").CurrentRegion
       NbLigE = .Rows.Count - 1
       NbColE = .Columns.Count - 1
   End With
 
    With Range("A2", Cells(NbLigE + 1, NbColE + 1))
        ReDim tab_mop(.Rows.Count, .Columns.Count)
        tab_mop = .Value
    End With
 
'parcours des lignes MOP
For i = 1 To NbLigE
 
         MemCir = tab_mop(i, 1) & "-" & tab_mop(i, 2) & "-" & tab_mop(i, 3)
         MsgBox MemCir & " " & i
next i

je ne comprends pas ça marche pourtant dans d'autres fichiers. Mais là Excel en fait me ramène les données d'un tableau de ma feuille MPC au lieu de me prendre le tableau de ma feuille MOP. Evidemment si je place le code sous la feuille MOP, ça fonctionne mais ce n'est pas le but.
J'ai compris qu'il s'agissait d'un problème de sélection de plage de cellules , mais je ne vois pas pourquoi ça fonctionne dans certains fichiers excel et pas ici

[gnain]

J'ai remarqué une chose au début de ton code tu fait

Code :

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

Application.ScreenUpdating = False

pour surement être plus vite

mais il ne faut pas oublier de le remettre à la fin

Code :

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

Application.ScreenUpdating = True

C'est la seul chose que j'ai remarqué, mais ce n'est surement pas ton bug
ton code devrait fonctionné selon moi.

[Docmarti]

Bonjour Max_zen

Si le code est dans le module de la feuille <MPC>
range("A1") se réfère toujours à la feuille <MPC>.

Si tu veux que range("A1") ou cells(1,1) réfère à la feuille active, mets ton code dans un module standard.

[Max_zen]

gnain merci pour ta remarque. J'ai effectivement ajouté l'option true à la fin


Docmarti. Merci ça réponds à ma question.