Bonjour, j'ai une erreur dans mon programme je trouve pas help please
Je ne sais pas si les Split sont bons, je veux que toutes les valeurs s'affichent en ligne.
Merci d'avance !
Sub Tableaux()
Dim tab1(), tab2(), tab3(), tab4(), tab5(), tab6(), tab7(), tab8() As String
Dim tabG1(), tabG2(), tabG3(), tabG4(), tabG5(), tabG6(), tabG7(), tabG8() As String
Dim tabD1(), tabD2(), tabD3(), tabD4(), tabD5(), tabD6(), tabD7(), tabD8() As String
Dim tabP(), tabG(), tabD() As Variant
mesureP1 = Cells(6, 2).Value
mesureP2 = Cells(7, 2).Value
mesureP3 = Cells(8, 2).Value
mesureP4 = Cells(9, 2).Value
mesureP5 = Cells(10, 2).Value
mesureP6 = Cells(11, 2).Value
mesureP7 = Cells(12, 2).Value
mesureP8 = Cells(13, 2).Value
tab1 = Split(mesureP1, ",")
tab2 = Split(mesureP2, ",")
tab3 = Split(mesureP3, ",")
tab4 = Split(mesureP4, ",")
tab5 = Split(mesureP5, ",")
tab6 = Split(mesureP6, ",")
tab7 = Split(mesureP7, ",")
tab8 = Split(mesureP8, ",")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
mesureG1 = Cells(6, 3).Value
mesureG2 = Cells(7, 3).Value
mesureG3 = Cells(8, 3).Value
mesureG4 = Cells(9, 3).Value
mesureG5 = Cells(10, 3).Value
mesureG6 = Cells(11, 3).Value
mesureG7 = Cells(12, 3).Value
mesureG8 = Cells(13, 3).Value
tabG1 = Split(mesureG1, ",")
tabG2 = Split(mesureG2, ",")
tabG3 = Split(mesureG3, ",")
tabG4 = Split(mesureG4, ",")
tabG5 = Split(mesureG5, ",")
tabG6 = Split(mesureG6, ",")
tabG7 = Split(mesureG7, ",")
tabG8 = Split(mesureG8, ",")
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
mesureD1 = Cells(6, 4).Value
mesureD2 = Cells(7, 4).Value
mesureD3 = Cells(8, 4).Value
mesureD4 = Cells(9, 4).Value
mesureD5 = Cells(10, 4).Value
mesureD6 = Cells(11, 4).Value
mesureD7 = Cells(12, 4).Value
mesureD8 = Cells(13, 4).Value
tabD1 = Split(mesureD1, ",")
tabD2 = Split(mesureD2, ",")
tabD3 = Split(mesureD3, ",")
tabD4 = Split(mesureD4, ",")
tabD5 = Split(mesureD5, ",")
tabD6 = Split(mesureD6, ",")
tabD7 = Split(mesureD7, ",")
tabD8 = Split(mesureD8, ",")
tabP = Split(Join(tableTest1, ",") & "," & Join(tableTest2, ",") & "," & Join(tableTest3, ",") & "," & Join(tableTest4, ",") & "," & Join(tableTest5, ",") & "," & Join(tableTest6, ",") & "," & Join(tableTest7, ",") & "," & Join(tableTest8, ","), ",")
tabG = Split(Join(tableTestG1, ",") & "," & Join(tableTestG2, ",") & "," & Join(tableTestG3, ",") & "," & Join(tableTestG4, ",") & "," & Join(tableTestG5, ",") & "," & Join(tableTestG6, ",") & "," & Join(tableTestG7, ",") & "," & Join(tableTestG8, ","), ",")
tabD = Split(Join(tableTestD1, ",") & "," & Join(tableTestD2, ",") & "," & Join(tableTestD3, ",") & "," & Join(tableTestD4, ",") & "," & Join(tableTestD5, ",") & "," & Join(tableTestD6, ",") & "," & Join(tableTestD7, ",") & "," & Join(tableTestD8, ","), ",")
End Sub
Je ne sais pas si les Split sont bons, je veux que toutes les valeurs s'affichent en ligne.
Merci d'avance !