Discussion :

[hobine]

Bonjour ,
je veux lire une serie de cellules(ou colonnes) et affecter ses valeurs dans un tableau. mon tableau doit contenir normalement 153 cellules(car D4 à T12) non seulement ma macro compte 34 en plus il refuse d'affecter les valeurs dans mon tableau. voir le programme ecrit ci dessus
Vous pourrez voir en image où il signale la faute. Merci d'avance pour votre aide

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
Dim Plage As Range
Dim tableau() As String
Dim tab_projet() As String, tab_caisse() As String, tab_UCM() As String
Dim tab_moteur() As String, tab_IndMot() As String, tab_UFM() As String, tab_Puiss() As String, tab_Norme() As String
Dim tab_Boit() As String, tab_IndBoit() As String, tab_GPlant As String
Dim tab_NvEquipt() As String, tab_CteDir() As String, tab_Chauf As String, tab_Roue() As String
Dim tab_NAV() As String, tab_Radio As String
Dim i As Integer, j As Integer, m As Integer
Dim nb_col As String, nb_lignes As Integer
 
'La plage des cellules à tester
 
'Set Plage = Range("D4:D" & Range("G12").End(xlUp).Row)
Set Plage = Range(Range("D4"), Range("T12").End(xlUp))
'lecture des colonnes D à T et affecter les valeurs dans Array
MsgBox Plage.Count
tableau = Plage.Value
'MsgBox tableau(1, 1)
 
 
 
'MsgBox Plage.Count
'For i = 1 To Plage.Count
' tableau(1, i) = Str(tableau(1, i))
' Next i
 
' tab_projet = tableau(1, 1)
' tab_projet = Split(tableau(1, 1), ",")