placer une cellule dans un tableau

[apatsou]

Bonjour,
je récupère le contenu d'une cellule ainsi:
celluleCourante = Worksheets("ETAT").Cells(compteur, 3).Value

je souhaite ensuite analyser le contenu de cette cellule caractère par caractère. Mais quand je l'affecte à un tableau, je me fais jeter.

Dim Ligne(132) As String
Ligne = celluleCourante

Comment puis-je faire.

Merci.

 

[tatiak]

Bonjour,
essaye ceci :

Dim Ligne(132) As String
Dim i as byte
for i = 1 to len(celluleCourante)
ligne(i)=mid(celluleCourante,i,1)
next i

 

[youpi]

si ca peux t'aider..... a coller dans un module excel ...



Dim chaine() As Variant

Cells(3, 3).Activate
Cells(3, 3).FormulaR1C1 = "je suis content"
texte = ActiveCell.FormulaR1C1
nb = Len(texte)
ReDim chaine(nb - 1)
For i = 0 To nb - 1
chaine(i) = Mid(texte, i + 1, 1)

Next i

 

[apatsou]

Impeccable, je vous remercie.

Sans vouloir abuser, pour remettre mon tableau dans une cellule, je fais l'inverse ?

 

[tatiak]

pour l'opération inverse:

dim nouvelleString as string
...
nouvelleString=""
for i = 1 to len(celluleCourante)
nouvelleString=nouvelleString & ligne(i)
next i
Worksheets("ETAT").Cells(compteur, 3).value=nouvelleString

 

[apatsou]

Merci tatiak
tu confirmes ma tentative.

Bonne journée à tous.

 

[youpi]

enregistrment CVS

bonjour ,
je cherche a enregistrer une plage de colonnes adjacentes et l'enregistrer au format CSV avec des délimiteurs ";".

J'arrive a enregistrer mais le délimiteur se transforme en ",".


HELP! merci !