Problème de sélection de tableau
bonsoir,
dans le code d'une feuille <MPC>
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
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
