Discussion :

[donogoo]

Bonjour à tous !!

J'aurais une petite question à vous posez si vous le voulez bien !

Voila, dans une cellule, j'ai une donnée du type " Directeur Général : M. George Abitbol" et j'aimerai mettre dans 4 cellules les infos suivantes :

1ere cellule : Directeur Général
2eme : M.
3ème : George
4eme: Abitbol

Savez vous comment faire cela ?? Quel serait le code VB correspondant ?

Merci beaucoup pour votre aide, cela me sauverait !

[aalex_38]

Avant même d'entrer dans le code il faut que tu saches sur quels critères tu vas faire le découpage

[Krovax]

Il faut absolument que tu es des critère fixe
exemple :
le deuxième espace, le point, etc...

Voial un exmple en utilisant comme critère le deuxième espace
ligne est ton texte d'entré
statut sera ton résultat (directeur générale)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
dim i as integer
dim statut as string
dim ligne as string
 
i=InStr(ligne," ") 'la position du caractère espace
 
statut = left(ligne,i) 'tu vien de récupérer le premier mot
ligne=right(ligne,len(ligne)-i) ' retire le premier mot
ligne=trim(ligne) ' supprime les espace au début et a la fin
 
i=InStr(ligne," ")
 
statut = statut & " " & left(ligne,i) 'rajoute à la suite de statut le deuxième mot

Si tu veux plus d'info sur la manipulation des chaine de caratère regarde ici dans la faq

ps : j'ai des problème avec vba je n'ai pas pu testé le code il y a peut etre des problème de syntaxe réfère toi à la sintaxe de la FAQ

[Invité]

Bonjour

Il faut absolument que tu es des critère fixe

Et c'est là le Hic dans ce genre de cas

@donogoo

Les : sont-ils toujours là ?
La civilité est-elle toujours présente ?
Y a-t-il des prénoms composés ? Certains prénoms composés peuvent ne pas avoir de trait d'union ?
Peut-il y avoir des noms à particules (De quelque chose) ?

Ce genre de problème ne peut jamais amené une solution idéal, à moins d'avoir un fichier nickel en entrée.

Philippe