extraire certaines donnée dans une cellule

[BENOTAF]

bonjour a tous
je sui un gros debutant sur excel,
je voudrai pouvoir extraire des donnée se presentant comme cela dans une cellule(120*45*46) et les renvoyer chacune dans une autre cellule de la ligne séparément.
merciii d'avance
ben

 

[excalibur]

bonjour BENOTAF le forum tu peus essayer par convertir ... donnees puis convertir puis delimite suivant autre tape * suivant terminer autrement par fonction si super andre passe par la que je salue au passage il va s occuper de resoudre ton pb..salutations

 

[porcinet82]

Salut ben,

une petite macro (a placer dans un module De Visual Basic Editor en faisant Alt+F11) qui fait egalement ce que tu veux, meme si la methode d'excalibur est plus pratique.

Sub test()
For i = 1 To Range('A65536').End(xlUp).Row
    Cells(i, 2).Value = Left(Cells(i, 1).Value, InStr(1, Cells(i, 1).Value, '*') - 1)
    Cells(i, 3).Value = mid(Cells(i, 1).Value, InStr(1, Cells(i, 1).Value, '*') + 1, InStr(1, Cells(i, 1).Value, '*') - 2)
    Cells(i, 4).Value = Right(Cells(i, 1).Value, InStr(1, Cells(i, 1).Value, '*') - 2)
Next i
End Sub

@+

 

[benotaf]

je met le fichier en piece jointe pour que cela soit plus comprehensible: je voudrai extraire les données de la cellule c1 etles metre separémen dans g1, h1 i1.
je vous precise que je n'ai aucune connaissance et donc il faudrai que la formule soit 'prete a l'emploi'. :sick:
désolé d'etre aussi exigent et merci d'avance au pro qui von m'aider a bosser plus facilement
merci
ben

 

[benotaf]

mince avec le fichier sa va etre mieux

 

[porcinet82]

re,

toujous pas de fichier en vue, pour rappel il doit etre zippé, <50ko, sans espace, ni accent ni caracteres spéciaux, tu peux également allé voir a l'adresse suivante Lien supprimé

Pour la macro que je t'ai proposée, elle devrait fonctionner maintenant :

Sub test()
Range('C1').Select
For i = 1 To Range('C65536').End(xlUp).Row
    Cells(i, 7).Value = Left(Cells(i, 1).Value, InStr(1, Cells(i, 1).Value, '*') - 1)
    Cells(i, 8).Value = mid(Cells(i, 1).Value, InStr(1, Cells(i, 1).Value, '*') + 1, InStr(1, Cells(i, 1).Value, '*') - 2)
    Cells(i, 9).Value = Right(Cells(i, 1).Value, InStr(1, Cells(i, 1).Value, '*') - 2)
Next i
End Sub

Pour l'utiliser, va dans Outils\\Macro\\Visual Basic Editor (ou appuis sur Alt+F11), puis a gauche, dans VBAProject \\Microsoft Excel Objets, double clique sur feuil1 et colle la macro.
Ensuite pour la lancé, c'est tout simple, tu cliques sur l'icone lecture (en dessous du menu Format)

j'espere avoir été clair.

@+

 

[BENOTAF]

decidement je n'ai pas de bol
quand je clique sur lecture le message suivant apparait:
erreur d'execution '5'
argument ou appel de procedure incorrect
est ce un bug?
ben

 

[benotaf]

voila le fichier excel
d'avance merci
ben [file name=Classeur4_20051028154256.zip size=1610]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Classeur4_20051028154256.zip[/file]

 

[andré]

Salut,

Comme il t'as été dit le menu Données / Convertir fait cela parfaitement.

Je viens d'essayer en copiant C1:C7 en G1:G7 et en choisissant le * comme séparateur (sous Autres dans le petit programme).

Â+

 

[benotaf]

c'est super cool merci mais vu que je n'y connait rien en formules pourrai tu me la donner exactement.
je sui désolé d'etre aussi ignorant par rapport a vous
merci
ben

 

[andré]

Salut,

Mais ce n'est pas une formule, c'est simplement un menu.

Voici comment procéder (en détail !)

Sélectionner la plage C:C7 et la copier / coller en G1:G7 (ou autre part)
G1:G7 étant sélectionné : Menu Données / Convertir
Une fenêtre s'ouvre, ne pas y toucher mais taper sur Suivant.
Dans cette fenêtre , cliquer sur Autres et taper * dans la petite case / Suivant / Terminer.

J'espère que j'ai été explicite.
Si cela ne va pas, dis-moi excatement où.

Â+