placer une cellule dans un tableau

T

tatiak

Guest

• 17 Février 2005

• #2

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

 

Vote positif 0 Vote négatif

Y

youpi

Guest

• 17 Février 2005

• #3

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

 

Vote positif 0 Vote négatif

A

apatsou

Guest

• 17 Février 2005

• #4

Impeccable, je vous remercie.

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

 

Vote positif 0 Vote négatif

T

tatiak

Guest

• 17 Février 2005

• #5

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

 

Vote positif 0 Vote négatif

A

apatsou

Guest

• 17 Février 2005

• #6

Merci tatiak
tu confirmes ma tentative.

Bonne journée à tous.

 

Vote positif 0 Vote négatif

Y

youpi

Guest

• 21 Février 2005

• #7

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 !

 

Vote positif 0 Vote négatif