Suppression des guillemets autour d'une variable

Version imprimable

Voir 40 message(s) de cette discussion en une page

23/11/2017, 19h22
unparia

Citation:

je mets en pièce jointe le résultat souhaité
RESULTAT SOUHAITE.xlsx

Je ne t'ai pas demandé une pièce jointe ! (je n'ouvrirai JAMAIS un classeur tiers !), mais de (ter repetita) :

Citation:

A quel résultat final (à montrer ici) veux-tu très exactement arriver ?

On l'aura quand, cette copie d'écran toute bête ? Quand toi, tu en auras enfin envie ?????

EDIT : je crois que tu vas rester bien seul, ami ...
23/11/2017, 19h25
munity

2 pièce(s) jointe(s)

voici le résultat de ma variable (ce sont les guillemets avant et après qui me gene)
Pièce jointe 329663

et voici ce que je voudrai que la variable comporte les valeurs sous ce format
Pièce jointe 329666
23/11/2017, 19h26
mjpmjp

re,

Citation:

.TextFileFixedColumnWidths = Array(valeur cellule longueur champ)

valeur cellule longueur champ = "1,15,5,6,1, etc.... "
MaVariableArray = Array(valeur cellule longueur champ)

.TextFileFixedColumnWidths = MaVariableArray ;)

~~tu comprends la différence ?~~

@+JP
23/11/2017, 19h27
unparia

Là, vraiment ... on a atteint le fond, je crois ...
Où sont là-dedans les données du fichier .txt que tu dis vouloir exploiter ?
C'est une plaisanterie ?
23/11/2017, 19h29
munity

on doit mal se comprendre ou j'explique mal
je n'ai jamais dit que je voulais exploiter les données d'un fichier texte mais juste les importer
23/11/2017, 19h29
Marc-L

Citation:

Envoyé par munity

evaluate ne semble pas correspondre au besoin en l'état

Donc David tu n'as rien lu, rien testé ! 8O
Et c'est dommage car dans le lien fourni tu aurais compris ces guillemets sont nécessaires pour Evaluate ‼

Les classeurs joints étant inexploitables : des images n'étant pas des données … :roll:

Autre voie : boucler sur le résultat de la fonction Split afin d'alimenter une variable créée au préalable …
23/11/2017, 19h38
munity
si j'ai testé les macro
mais mon besoin n'est pas de classer dans l'ordre croissant les données
désolé d'être apparemment en dessous de tout mais je pensais que ma demande initiale était claire
donc tu me dis qu'evaluate est la solution à mon problème
seulement le souci c'est que je ne peux pas utiliser le resultat pour remplacer la valeur d'evaluate dans le array() qui est apparemment obligatoire pour les deux instructions
Code:

1 2 3 .TextFileColumnDataTypes = Array() 'type de donnée .TextFileFixedColumnWidths=array()'longueur colonne
merci jp pour ta solution mais j'aurais le meme problème en faisant comme ca (guillement au début et fin de la variable

Citation:

re,
.TextFileFixedColumnWidths = Array(valeur cellule longueur champ)
valeur cellule longueur champ = "1,15,5,6,1, etc.... "
MaVariableArray = Array(valeur cellule longueur champ)

.TextFileFixedColumnWidths = MaVariableArray

tu comprends la différence ?

@+JP
23/11/2017, 19h44
unparia

Citation:

je n'ai jamais dit que je voulais exploiter les données d'un fichier texte mais juste les importer

Va pour "les importer", donc ...
Mais ton image ne montre aucune importation du contenu du fichier .txt que tu as spécifié !
Bonne chance et adieu.
23/11/2017, 19h52
munity

oui bonne soirée
23/11/2017, 19h59
Marc-L

Citation:

Envoyé par munity

tu me dis qu'evaluate est la solution à mon problème
seulement le souci c'est que je ne peux pas utiliser le resultat pour remplacer la valeur d'evaluate dans le array() qui est apparemment obligatoire pour les deux instructions

Oh le méchant amalgame ‼ Tu confonds instruction et résultat / contenu !
Pourtant comme déjà indiqué, rien qu'en ouvrant l'aide VBA que renvoie donc Array ?‼

Dans le lien pourtant fourni rien qu'en testant l'unique ligne de code du post #59
et en vérifiant le contenu de la fenêtre Variables locales !

Patrick général six étoiles sur ce forum me remercie par deux fois dans les posts #60 & #62
et toi tu décrètes « cela ne correspond pas au besoin » sans même tester & vérifier ‼ :ptdr:

Donc te reste alors la voie du ~~bushido~~ débutant déjà expliquée précédemment :
affecter à une variable Variant un Split de ta cellule et vérifier le contenu de la fenêtre Variables locales.
Si en l'état cette variable ne fonctionne pas dans ton instruction, alors en créer une autre de la même taille
puis l'alimenter via une boucle à partir de celle du Split …
Donc là c'est plusieurs lignes de code mais Evaluate - pour peu de connaitre le B-A-BA d'Excel - a en besoin d'une seule !

Comme préconisé par les règles de ce forum, en cas de souci,
poster au moins le code balisé comme il se doit de la tentative entreprise …

___________________________________________________________________________________________________________
L'avenir n'appartient pas qu'à ceux se levant tôt mais surtout à ceux se donnant la peine de lire …
23/11/2017, 20h07
munity

1 pièce(s) jointe(s)

bon en faisant comme ci dessous avec le post de Marc-l

Code:

MaVariableArray = Array(Evaluate("{" & TailleColonne & "}"))

j'obtiens ceci

c'est tout à fait ce que je veux le seul hic c'est qu'il le met en colonne et non en ligne....
j'ai tenté un split sans résultat
Pièce jointe 329682

j'ai juste besoin de connaitre comment transposer ca ligne et je pense que ce sera bon....

david
23/11/2017, 20h28
Invité

Application.Transpose(Array(Evaluate("{" & TailleColonne & "}")))
23/11/2017, 20h51
mjpmjp

re,

Application.Transpose(Application.Transpose(Array(Evaluate("{" & TailleColonne & "}"))))

@+JP
23/11/2017, 20h55
munity

haaaaaaaaaaaaaaaaaaaaaaaaaaaaaa
enfin ca marche
je tournai autour depuis tout à l'heure mais je mettai le transpose comme ceci

Code:

test = Array(Evaluate("TRANSPOSE("{" & TailleColonne & "}")")

et donc problème de syntaxe avec les "" et ()

merci beaucoup

2 pièce(s) jointe(s)

bonjour,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
 
Private Sub CommandButton1_Click()
    '----------------------------------------------
    Application.Calculation = xlManual 'xlAutomatic '
    Application.ScreenUpdating = False 'True '
    '----------------------------------------------
    For n = 1 To (10)
        Cells(1, n).Value = Int(Cells(1, n).ColumnWidth)
        Data = Data & Int(Cells(1, n).ColumnWidth) & ","
    Next n
    Data = Left(Data, Len(Data) - 1)
    TabData = Application.Transpose(Array(Evaluate("{" & Data & "}")))
    'TabData = Application.Transpose(Application.Transpose(Array(Evaluate("{" & Data & "}"))))
    '----------------------------------------------
    Application.Calculation = xlAutomatic 'xlManual
    Application.ScreenUpdating = True 'False
    '----------------------------------------------
End Sub

TabData = Application.Transpose(Array(Evaluate("{" & Data & "}")))

Pièce jointe 329711

TabData = Application.Transpose(Application.Transpose(Array(Evaluate("{" & Data & "}"))))

Pièce jointe 329716

@+JP

23/11/2017, 21h18
munity

2 pièce(s) jointe(s)

bon je me suis rejoui trop vite
j'ai réussi à importer deux fois le fichier comme prévu
j'ai ajouté l'instruction pour les format de colonnes
et paf cela ne fonctionne plus
Pièce jointe 329727

Pièce jointe 329728

la je comprends pas ce qu'il se passe....

désolé de vous avoir embeté
en fait je n'avais pas besoin de transposer..... :oops::oops:
cela fonctionne très bien comme ceci

Code:

1
2
3
4
5
6
7
 
 
        MaVariableArrayData = Array(Evaluate("{" & FormatColonne & "}"))
        .TextFileColumnDataTypes = Array(MaVariableArrayData) 'Type de données
 
        MaVariableArrayWidths = Array(Evaluate("{" & TailleColonne & "}"))
        .TextFileFixedColumnWidths = Array(MaVariableArrayWidths)  'largeurs des colonnes

23/11/2017, 21h26
mjpmjp

re,
regarde mon post du dessus ;)

@+JP
23/11/2017, 21h28
munity

je tiens a remercier tout le monde pour l'aide apportée
meme si je me suis fait un peu engueulé cela m'a permis d'avancer et de chercher un peu tout seul
merci à marc-l pour ton inspiration
et à tous évidemment
special dedicace à mjpmjp et dysorthographie
23/11/2017, 21h57
Invité

Des claques amicales derrière la tète ça n'a jamais fait de male à personne!

Voir 40 message(s) de cette discussion en une page