Erreur sur une variable tableau

Version imprimable

1 pièce(s) jointe(s)

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:

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), ",")

03/03/2011, 10h15
casefayere
Bonjour,
effectues cette ligne

Code:

MsgBox Plage.Address

à la place de

Code:

MsgBox Plage.count

et regardes le résultat, déjà là tu vas avoir une surprise

les lignes que je corrigerai au départ :
j'enlève le string de la declaration tableau, pas le mien :oops:
Code:

1 2 3 4 5 Dim tableau() Set Plage = Range("D4:T" & Range("t" & Rows.Count).End(xlUp).Row) ReDim tableau(9, 17)' un redim tableau() = Plage MsgBox tableau(1, 1)
PS : peut-être plus pratique pour le redim

Code:

ReDim tableau(Plage.Rows.Count, Plage.Columns.Count)

merci mais j'ai trouvé une qui correspond exactement à ce que je recherche

Code:

Set Plage = Range("D4:T" & Range("B65536").End(xlUp).Row)

par contre je viens d'avoir une nouvelle difficulte (jamais 2 sans 3)
mon tableau (2,2) = B85,S85 tandis tab_projet contient B85 alors que je voulais tab_projet = B85 S85 comme 2 elts ou valeurs distints appertenant à tab_projet et la dim de tab_projet devient 2, comment faire s'il vous plaît?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 Dim Plage As Range Dim Tableau() Dim tab_projet() As String Set Plage = Range("D4:T" & Range("B65536").End(xlUp).Row) Tableau = Plage.Value MsgBox Tableau(2, 2) If Tableau(2, 2) <> "" Then test_tmp = Tableau(2, 2) tab_projet = Split(test_tmp, ",") Else ReDim tab_projet(1) tab_projet(1) = Tableau(2, 2) End If MsgBox tab_projet(1)
Autre question, comment associer une lettre qui declengera une macro à partir de sa saisie sur une feuille excel , autrement dit, chaque fois que j'ecrit par exple "z" sur une feuille excel, ma macro se met automatiquement en marche?