Convertir des données en VBA vers Excel

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : Convertir des données en VBA vers Excel

gourdin

Hello TLM. J'aimerais copier une zone de texte d'une appli VBA et coller le tout dans excel et convertir le tout pour qu'il me mette ce qu'il y a entre les apostrophes dans des colonnes distinctes (cf en dessous)

ce que je dois copier : '250'0.35896'0.5478'1523

Je dois donc envoyer cette trame vers excel et séparer les chiffres entres les "'". G essayé avec une fonction "texttocolumns" mais ca veut pas.
Si quelqu'un veut bien m'aider je lui en serais vraiment reconnaissant :-)

@ + sur le forum.

Publicité

tegu

je pense qu'il te faut regarder du côté de Split() pour transformer ta chaine en tableau d'éléments
Il te restera à boucler sur ce tableau pour remplir les cellules des colonnes

JihemAir

Je sais pas

Vite fait, à la bourrin...

Code :

Sub Extract_Nb()
Dim strChaine As String, strProv As String
Dim iPos As Integer
strChaine = "'250'0.35896'0.5478'1523"
' On vire la 1ere quote
strChaine = Mid(strChaine, 2, Len(strChaine) - 1)
' On cherche la quote suivante
iPos = InStr(1, strChaine, "'", vbTextCompare)
Do While iPos > 0
' On extrait le nombre
strProv = Mid(strChaine, 1, iPos - 1)
Debug.Print strProv
' On cherche la quote suivante
iPos = InStr(1, strChaine, "'", vbTextCompare)
If iPos > 0 Then
' On supprime le nb trouvé de dans la chaine
strChaine = Mid(strChaine, iPos + 1, Len(strChaine) - iPos)
iPos = InStr(1, strChaine, "'", vbTextCompare)
End If
Loop
strProv = strChaine
Debug.Print strProv
End Sub

destynov@

Salut =)
je viens de tester la fonction Split(), et sérieux c'est gavé + simple!!!

Code :

Sub Extract()
dim n as string
dim valeurs
n='250'0.35896'0.5478'1523
valeurs=Split(n,"'" )
'valeurs(0)="" car il ne prend pas entre les "'" mais à chaque fois
cells(x,y).value = valeurs(1)
'...
End Sub

Merci tegu pour cette fonction =)

JihemAir

Je sais pas

Oui, c'est une chouette fonction mais je ne suis pas sûr qu'elle existe en VB Excel

destynov@

si si carrément, je suis sur Excel. de ttes façons je n'utilise jms le VB pr les appli. vive le C++!

JihemAir

Je sais pas

destynov@ a écrit :

si si carrément, je suis sur Excel. de ttes façons je n'utilise jms le VB pr les appli. vive le C++!

Ben mrd alors, ça marche pas chez moi
Faut que je vois ça !!

destynov@

JihemAir a écrit :

Ben mrd alors, ça marche pas chez moi
Faut que je vois ça !!

si tu tapes le nom de la fonction puis tu fais "F1", il ne la trouve pas? et en + je travaille sur Office 2000, qui inclut moins de fonctions et fonctionnalités (évidemment =)) que les dernières.

JihemAir

Je sais pas

Je l'ai sous VB6, pas sous Office 97. J'ai un Split, mais c'est pour diviser la fenêtre.

destynov@

c chiant ça! le pire, c'est quand tu développes en VBA sur un office, puis tu mets le document sur une autre version d'office qui n'a pas les fonctions! ça m'était arrivé pour la protection des feuilles où des paramètres n'existait pas sous 97. obligé de passer par une autre méthode. bref c'était pas le but du topic, je pense qu'on quand même répondu à la question =)

Publicité

JihemAir

Je sais pas

Affirmatif.

tegu

Split() a été introduit avec VB6 et n'est pas disponible sous Office97.

Voici une fonction pour reproduire Split() sous Excel97
Je l'ai retrouvé dans mes archives, elle est vieille et peut sans doute être améliorée.

Function sSplit(ByVal expression As String, find As String) As Variant
Dim i As Variant, j As Integer, k As Integer
Dim result() As Variant
j = 1
i = InStr(j, expression, find)
If i = 0 Then
ReDim result(0)
result(0) = expression
sSplit = result
Exit Function
End If
While i <> 0
ReDim Preserve result(0 To k + 1)
result(k) = Mid(expression, j, i - j)
k = k + 1
j = i + Len(find)
i = InStr(j, expression, find)
Wend
If k > 0 Then 'le dernier
ReDim Preserve result(0 To k)
result(k) = Mid(expression, j, Len(expression) - (j - Len(find)))
End If
sSplit = result
End Function

FORUM HardWare.fr

Programmation

VB/VBA/VBS

Convertir des données en VBA vers Excel

Sujets relatifs
recuperer les donnees de in dans : ./foo < in	ASP et Base de données Access avec Front Page
Quelle base de données pour quel usage ?	[excel]
[VBA] afficher mes données excel dans une listbox	Tomcat Définir le chemin d'une src de données sans utiliser server.xml
VBA activeworkbook.sendmail avec netscape comme messageire par defaut	Equivalent du type FLOAT en vba excel
Plus de sujets relatifs à : Convertir des données en VBA vers Excel

Page générée en 0.033 secondes