AccueilCodesTutorielsForumsEmploiLivresConnexion

  • Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS
  • RSS CodeS-SourceS
  • CodyxBot, le Bot GTalk & MSN qu'il vous faut !
  • Générez des revenus avec vos codes, scripts et tutoriaux
  • Aide à la navigation du site
begin process at 2008 11 23 12:54:45
Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

Sujet : VBA - TextToColumns - Formules [ Langages dérivés / VBA ] (SupraDolph)

mercredi 14 juin 2006 à 09:20:47 | VBA - TextToColumns - Formules

SupraDolph

Bonjour a tous.

J'espere qu'il y a des professionnel d'Excel parmis vous !
J'ai une chaine de charactere (dans une cellule) que je convertie en colonne (a chaque espace).
Fonction : Cells(1, 1).TextToColumns DataType:=xlDelimited, Other:=True, OtherChar:=" ", ConsecutiveDelimiter:=True

Je ne peu pas connaitre a l'avance le nombre de colonne qui seront generees, je ne peu donc pas utiliser la proprietee fieldinfo qui a ma connaissance demande de creer autant d'array que de colonnes.

Cette chaine de caractere peut etre du style :
blablaba -6565-G6565 545451 -5454-5454

Si je la convertie cela me donne:
Colonne 1: blablabla
Colonne 2: NOMBRE?
Colonne 3: 545451
Colonne 4: 0

En fait, les nombres commencant par le signe moins sont concidere comme une formule (avec un signe egal d'ajoute automatiquement ex : "-6565-G6565" devient "=-6565-G6565" d'ou l'erreur)
Ce que je veux c'est conserver le type "texte" dans chacune de mes colonnes et donc qu'Excel ne m'ajoute pas ce signe =.

Merci d'avance

PS : Je suis desole pour les accents, mon clavier ne me permet pas de les mettres.

SupraDolph.
mercredi 14 juin 2006 à 10:21:33 | Re : VBA - TextToColumns - Formules

mortalino

Membre Club



Salut,

Et en placant une apostrophe juste devant   =>   '


 Ca fonctionne ?

c'est peut-etre comme les zéro (comme les numéros de tel), si t'en met pas, il disparait, si t'en met un, le zéro reste et le'apostrophe n'est pas dans le string.

@++

  Mortalino 
Le Mystérieux Chevalier "Provençal, le Gaulois"
N'oubliez pas de lire le règlement
mercredi 14 juin 2006 à 11:01:51 | Re : VBA - TextToColumns - Formules

SupraDolph
Réponse acceptée !
Merci pour ta reponse mortalino
J'y avais pense, mais les valeurs devront surement etres reprises.
J'ai toutefois trouve la solution :

Dim Arr() As Integer
ReDim Arr(mavar, 1) 'mavar represente le nombre de colonnes de mon tableau
Dim i As Integer

For i = 0 To Ubound(Arr,1)
    Arr(i, 0) = i + 1
    Arr(i, 1) = 2
Next
    Cells(1, 1).TextToColumns DataType:=xlDelimited, Other:=True, OtherChar:=" ", ConsecutiveDelimiter:=True, FieldInfo:=Arr, TrailingMinusNumbers:=True

J'ai donc reussi a utiliser le FieldInfo sachant que normalement, il s'ecrit :
FieldInfo:=Array(Array(1, 2), Array(2, 2), Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), Array(9, 2), Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 2), Array(14, 2), Array(15, 2))

SupraDolph.


Cette discussion est classé dans : vba, colonne, signe, texttocolumns, g6565

Répondre à ce message

Sujets en rapport avec ce message

VBA EXCEL TABLEAU CROISEE DYNAMIQUES [ par vince ] QLQn saurait il comment inserer des formules, soit manuellement soit en programmant, sur un tableau croise dynamique qdont les calculs font references Importation d'un fichier Excel sous access avec VBA [ par Cassidy ] OK, je sais utiliser l'assistant d'importation de feuilles de calcul, mais ce que je voudrais c'est pouvoir faire la même chose en vba.Au pire, je sai transposer une ligne en colonne en vba [ par MrPom ] Bonjour,J'aimerai transposer mes données constituées en lignes dans la colonne A. J'aimerai réaliser la transposer uniquement de la ligne sélectionnée Macro excel en vba [ par fernand22fr ] >Bonjour,je voudrais savoir si il existe une commande qui me permettrais de ranger une colonne pas ordre alphabetique.En fait ce qui m arrangerais ce Format d'une colonne d'un flexgrid[VBA] [ par scarface2 ] Bonjour,dans ma msflexgrid j'ai une colonne qui contient des montants. Ds ma base ces montants sont de type Euro mais lorsque je les mets ds ma flexgr qq1 sait utiliser une listbox VBA??? [ par yaya31 ] J aimerais mettre dans une liste box autre chose qu une requete...J aimerais mettre des variables:par exemple1ère colonne=rs.Fields("Numfact").Value2è Incrémentation de colonnes VBA excel [ par lapin_russe ] Bonjour à tous,Me revoilou encore et toujours à l'affu d'une aide précise.J'aimerai juste savoir comment faire pour faire un teste de la première colo redimension de colonne vba [ par mamamamat ] bonour,j'aurais voulu savoir comment on peut redimensionner automatiquement une colonne d'une liste en fonction de la taille du texte qui se trouve a addition sous excel en vba [ par valer ] bonjour,j'ai un classeur excel avec dans la colonne A des noms d'opération tels que "finition" ou "prepa composant"je sais afficher en vba la valeur VBA Excel : comment faire un sélection de N éléments en "position relative"...explication + claire ci-jointe...quoique.. [ par cardise ] Mon but est de sélectionner, dans un tableau de N lignes, le contenu d'une colonne preciseEn fait, mon tab commence en C12 et s'arrête en Cells(12+N,


Nos sponsors

Sondage...

CalendriCode


Téléchargements

Logiciels à télécharger sur le même thème :


Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel BAÏSE, Merci à Vincent pour ses précieux conseils
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés
Temps d'éxécution de la page : 0,577 sec

Google Coop CodeS-SourceS Google Coop CodeS-SourceS


Certaines images présentes sur le site (notament certains avatars) sont issues des collections IconShock, donc si vous souhaitez utiliser ces icons vous devez les acheter, ne les copiez pas et ne utilisez pas dans vos sites et applications sans les avoir commandé.