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

hemerode · 10 Février 2023

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

VB:

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

mapomme · 10 Février 2023

Bonjour @hemerode 🙂 ,

Ce code fonctionne sans erreur.

VB:

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

Dranreb · 10 Février 2023

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 :

VB:

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 · 10 Février 2023

Bonjour @hemerode 🙂 ,

Ce code fonctionne sans erreur.

VB:

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 · 10 Février 2023

mapomme à dit:
Bonjour @hemerode 🙂 ,

Ce code fonctionne sans erreur.

VB:

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!

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

hemerode

XLDnaute Junior

mapomme

Dranreb

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

hemerode

XLDnaute Junior

Discussions similaires

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

hemerode

XLDnaute Junior

Dranreb

XLDnaute Barbatruc

mapomme

XLDnaute Barbatruc

hemerode

XLDnaute Junior

Discussions similaires

Privacy & Transparency

Privacy & Transparency