Re : Chaîne de caractères
Bonjour Banzai,
je n'ai pas pu exploiter votre reponse suite à un nouveau survenu que je n'ai pas resoudre depuis hier et je ne comprends pas où est la faute.
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
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
" & 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)
' plage count est égal au nombre de cellules sélectionnées sur toutes les colonnes
'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), ",")