Rechercher : dans
Par :

Extraction EXCEL

Dernière réponse le 22 mai 2008 à 02:35:31 alain, le 21 mai 2008 à 13:17:35 
 Signaler ce message aux modérateurs

Bonjour,

Je reçois des informations dans une cellules EXCEL que je souhaiterais extraire pour les organsier en plusieur colonnes

Je vous donnes une exemple.

Je récupére l'info suivante en A1 : imprimante 4000/FAX 3625/Photocopieur 9560/...................(plusieurs fois)

Je souhaiterais les mettre en forme comme cela:

B1 : imprimante 4000
C1 : FAX 3625
D1: Photocopieur 9560
..........
.
etc

Connaissais vous une solution.

Merci par avance de votre aide.

Alain

Configuration: Windows XP
Internet Explorer 6.0

Meilleures réponses pour « Extraction EXCEL » dans :
Eviter les doublons dans Excel VoirEviter les doublons lors d'un encodage dans un colonne de feuille excel: prendre le format conditionnel sur le première cellule sous les titres (par ex A2) choisir la formule suivante : =NB.SI($A$2:$A$21;A2)>1 mettre là la couleur de fond...
Transformer un fichier Microsoft Excel (.xls) en PDF VoirTransformer en fichier PDF un fichier Microsoft Excel (.xls) Rien de plus simple ! Ouvrez votre fichier *.xls avec OpenOffice.org Réglez éventuellement la mise en page par le menu Format / Page... Dès lors, 2 solutions pour transformer en...
Importer ses contacts sous Outlook à partir d'Excel VoirImporter ses contacts sous Outlook à partir d'Excel Problème Comment importer une liste de contact d'Excel vers Outlook, en ne les mettant que dans une seule liste de contact, et non contact par contact ? Solution En utilisant les logiciels...
Tableur - L'interface d'Excel VoirPrésentation d'Excel Microsoft Excel est le tableur de la suite bureautique Microsoft Office. Pour le lancer il suffit de cliquer sur l'icone appropriée de votre menu Démarrer (sous Windows) ou bien de cliquer sur un fichier Excel (dont...

1

lermite222, le 21 mai 2008 à 13:26:19

Bonjour,
un modèle !!

Sub sépare()
Dim Txt As String, i As Integer
Dim T
'pour l'exemple
Txt = "imprimante 4000/FAX 3625/Photocopieur 9560/"
    T = Split(Txt, "/", -1)
    For i = 0 To UBound(T)
        Cells(i + 1, 1) = T(i)
    Next i
End Sub

A+
L'expérience instruit plus sûrement que le conseil. (André Gide)  

Répondre à lermite222

4

alain, le 21 mai 2008 à 18:36:46

Bonsoir,

Je suis parti sur la solution de votre confrère qui est beaucoup plus simple.

Toutefois, je tiens à vous remercie d'avoir passer du temps pour me répondre.

A bientôt.

Alain

Répondre à alain

2

cbauf, le 21 mai 2008 à 13:38:04

Bonjour,
Moi j'utiliserais la fonction convertir
Donnés > convertir > Option Délimité et tu choisis le « / » comme séparateur

(Décocher tabulation " par Défaut")
Vive la Vie !
Free Tibet

Répondre à cbauf

3

alain, le 21 mai 2008 à 18:34:08

CBAUF,

C'est la première que j'utilise ce forum pour résoudre ce type de problème et alors là chapeau.

Je tiens à vous remercie pour votre promtitude et la qualité de votre réponse.

Si il y avait une note à mettre ce serait sans hésitation 10/10

Félicitations et encore MERCI.

Alain.

Répondre à alain

5

 cbauf, le 22 mai 2008 à 02:35:31

RESOLU

De rien ;-)))))


Tu peux, si tu penses que c'est le cas,
mettre ce topic en résolu :

Pour les membres !
Dans l'option en haut ou en bas de la page


OU POUR

Les "non-membres", ont aussi la possibilité de le faire !


Click sur l'icône triangle jaune.

et expliques que le problème est résolu. Vive la Vie !
Free Tibet

Répondre à cbauf
Collection CommentÇaMarche.net