Extraire

[anna]

Bonjour à tous,
je suis toute nouvelle alors bienvenue à moi
voila dans le cadre d'une mission ou je suis ammener a faire des macro pour la premiere fois de ma vie,je me tourne vers vous pour vous demander de l aide:
voila mon premier soucis
j ai une colonne E comme suit:

----------------- E
L1------------
L2------------
l 3 ------------ Statut
L4 ------------ XXX/123
L5 ------------ xxx/687
L6 ------------ xxxy/524
.
.


j ai besoin de transformer cette colonne en:

L1
L2
l 3 ------------ Statut
L4 ------------ 0123
L5 ------------ 0687
L6 ------------ 0524
...

comment faire Merci bcq.
j ai essaier des truc mais il faut croire que je rame encore

 

[anna]

alors je vais abuser de votre gentillesse en esperant vous rendre la monnai des que vous aurez besoin de moi
alors voila:j ai besoin de plusieur chose:

1)
dans la colonne Sequential number recupperer les 4 dernier chiffre de la colonne reference avec un 0 devant
exemple:
Reference-----------------------------------Reference
DAR/830/SYS/0440------------------------- 00440
DAR/830/POS/0052 ------------------------- 00052

1)
j ai utiliser votre solution d'avant on la modifiant mais ca donne pas le bon resultat,j ai fait:
Option Explicit

Dim IDerligne, XAs Integer
Sub Macro1()
Columns('G:G').NumberFormat = '0###'
IDerligne = Range('D65536').End(xlUp).Row
For X = 4 To IDerligne
Cells(X, 7) = Right(Cells(X, 7), 4)
Next

End Sub
mais ca me donne dans G:
0440
052
088
0466


2)
je dois concatener Reference et Ver et mettre le resultat dans Reference
exemple
Reference-----------------------------Ver
DAR/830/SYS/0440----------------- A
DAR/830/POS/0052-------------------B

Donnera

Reference
DAR/830/SYS/0440/A
DAR/830/POS/0052/B

3)
autre chose (entre autre)
le resultats de tout ces tratement sur plusieur tableau du meme type doivent se mettre dans un meme fichier xls,cad au fur et a mesure qu on traite un tableau on mes les donnee(cad apartir de la ligne 4) dans un seul tableau resultat.








[file name=Anna_20050602143020.zip size=5053]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Anna_20050602143020.zip[/file]

 

[Baside]

Rebonjour Anna

Je dois m'absenter un peu et je regarde au retour

Baside

 

[anna]

ok chef Merci

 

[anna]

Alors Baside trop de boulot?
j espere que tu n m'oublira pas malgre tout

 

[Baside]

Rebonjour Anna le forum

Viens de rentrer

Des pbs administratifs à régler comme secu banque, concessionnaire moto et assurance

Je me restaure un peu et je m'y colle

Baside

 

[Baside]

Rebonsoir Anna le forum

Le fichier

Pour le 3 il faut voir la structure du ou des tableaux

Baside [file name=Anna_B2.zip size=8258]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Anna_B2.zip[/file]

 

[Anna]

Bonjour mon ami
Merci bcq j ai du retouche un tout petit peu mais la c okkkkkkkkkk
pour le point3 en fait les fichier (les tableaux)ont la meme tete c juste les donnee qui change
exemple
Fiche_Source --------(Premier traitement transfert) -----> Fiche_Temp-----------(les autre traitement sur le Temp) -------> Fiche Cible



le but c pour plusieur Fiche source faire ce cheminement pour arriver a la fin a un seul fiche_Cible qui contient touuuuut les donnees de tout les fiche_source apres tout les traitement.
suis je claire?
sinon,alors t a pu finir toute tes demarche administratif?c long a faire mais il faut bien les faire
Merci d'avance chef

 

[Baside]

Bonjour Anna le forum

J'ai bien compris Fiche source Fiche Temp et Fiche Cible

Mais sont elles sur de feuilles differentes d'un même fichier ?

Le tableau récap contiendra donc la somme des lignes des tableaux

Bonne journée, Baside

 

[anna]

les tableau sont dans des classeur different car les souces sont separer.
voilaaaaaaaaaaa
allez il ne me reste plus que ce point pour finir le boulot de cette semaine avant d'attaque un WE que j espere avec bcq de soleil et de chaleur

 

[anna]

Tu m a oublie?
je rigole bien sur
je viens de finir une reunion,je reprend la parti excel et je serai vraiment contente si on trouve la solution du point 3 je passerai alors un WE tranquile
en fait j avais trouver un message d'une certaine sandy a qui un certain adel a repondu;j ai enregistrer sa solution et ca a marche et puis aujourd hui plus rien ca me fais un message d'erreur.
dis moi ce que t en pense STP :


Sub Regroupe()
Application.ScreenUpdating = False
DL1 = Workbooks('Fiche_DAR').Sheets(1).Range('a65536').End(xlUp).Row
DL2 = Workbooks('Fiche_DAR_Temp').Sheets(1).Range('a65536').End(xlUp).Row

Workbooks('Fiche_DAR_Temp').Sheets(1).Activate
Workbooks('Fiche_DAR_Temp').Sheets(1).Range('a2:d' & DL2).Copy
Workbooks('Fiche_DAR').Sheets(1).Activate
ActiveSheet.Paste Destination:=Worksheets(1).Range('a' & DL1 + 1)

Application.ScreenUpdating = True

ActiveWorkbook.SaveAs Filename:='Regroupement.xls'

End Sub



allez je te dis bonne appetit et Merci

 

[Baside]

Bonjour Anna le forum

Le code marche bien, MAIS hier, tu as du laisser le fichier ouvert pour les éssais et à l'ouverture, ce matin, il cherche DL1 dans le fichier mais comme c'est Regroupement qui est ouvert --> Erreur

Conclusion, il faut changer le nom du fichier dans le code si tu veux continuer à enregistrer à la suite dans la colonne A du fichier Regroupement.

J'étais sur la piste de prélever les données dans les fichiers fermés, mais plus compliqué à cause des noms des fichiers et du domaine que je ne maitrise pas à fond, mais le système marche, encore faut il boucler sur tous les fichiers pour automatiser la tâche.

Avec les fichiers ouverts, la boucle est plus simple à faire, je pense

Ai je été clair ?

Baside

P.S.
1 - Formalités accomplies suite à luxation épaule
2 - En plus migraine ophtalmique ce matin d'où mon retard
3 - Demain sera un autre jour

 

[anna]

heuuuuuuuu
moi compris?heuuuuu: pas vraiment .
de quel fichier a renommer tu parle dans 'il faut changer le nom du fichier dans le code si tu veux continuer à enregistrer à la suite dans la colonne A du fichier Regroupement' et en fait le fichier regroupement il me le faut ou pas,parcequ au final c le fiche_DAR qui doit etre mon resultat alors je pense pas besoin il faut faire un save sur le meme fichier?non?

PS:Comme tu dis demain est un autre jour,je pense que rater le soleil ce WE

 

[Baside]

Soyons simple

Le code copie les données dans le fichier Fiche_DAR_Temp et les colles dans le fichier Fiche_DAR puis enregistre le résultat dans dossier regroupement

Il est possible de virer la ligne d'enregistrement

ActiveWorkbook.SaveAs Filename:='Regroupement.xls'

et garder le fichier Fiche_DAR comme fichier récap

Est ce plus clair ?

Baside

 

[anna]

Yes boss,
j'ai deja virer la ligne mais ca ne marche toujour pas
une petite precision les deux fichiers doivent etre ouvert ou pas et il faut lancer la macro depuis Fiche_DAR?

anna

 

[Baside]

Les deux fichiers doivent être ouverts et la macro dans le fichier de réception