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