XL 2013 Utiliser Tableau variable en tant que adresse colonne et affecter les valeurs dans les cellues.

[hemerode]

Bonjour à tous,

Je souhaite reporter une serie de nombre dans les colonnes identifiées sous la forme: Texte = "3,5,8,9,12,17".
Le contenu du TEXTE peut changer de façon dynamique.

Lorsque j’exécute la macro : Message Erreur exécution '13
Ci-dessous la macros

Dim Plage As Range, i As Integer, Texte As String
Dim Col()

Texte = "3,5,8,9,12,17"

Col = Split(Texte, ",")

For i = 0 To UBound(Col)
Cells(2, Col(i)) = i
Next i

Merci Pour votre contribution

 

[Dranreb]

Bonjour.
Je suppose que comme ce sont des String, la méthode Cells essaye de l'interpréter comme entête de colonne
Essayez comme ça :

Dim P As Integer
For P = 1 To 6
   Cells(2, Choose(P, 3, 5, 8, 9, 12, 17)).Value = P - 1
   Next P

 

[mapomme]

Bonjour @hemerode ,

Ce code fonctionne sans erreur.

Sub test()
Dim Plage As Range, i As Integer, Texte As String, Col
   Texte = "3,5,8,9,12,17"
   Col = Split(Texte, ",")
   For i = 0 To UBound(Col)
      Cells(2, Val(Col(i))) = i
   Next i
End Sub

 

[hemerode]

Bonjour @hemerode ,

Ce code fonctionne sans erreur.

Sub test()
Dim Plage As Range, i As Integer, Texte As String, Col
   Texte = "3,5,8,9,12,17"
   Col = Split(Texte, ",")
   For i = 0 To UBound(Col)
      Cells(2, Val(Col(i))) = i
   Next i
End Sub

Merci, Ca marche!