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]

pourquoi la Fcihe_DAR que tu m a envoye est vide?

 

[Baside]

Parceque la macro fait la copie de DarTemp pour la mettre dans Dar

 

[anna]

Hello chef
je n comprend pas ce que t a fait a DAR car je voulais garder les 3 premiere ligne et quand j execute la macro les ligne de DAR_Temp viennet deriere la dernier ligne de DAr (dans l'exemple que je t ai envoye c derriere la ligne 63 que la macro doit rajoute les ligne de dar_temp or la je trouve ton dar vide et meme quand j execute la macro ilm me sors la meme erreur.
anna

 

[anna]

j'ai une reunion d'une heure et demi et j avoue que je suis tres enerve avec cette histoire de macro alors je vais taper sur les autre
non je rigole on va essaier de rester zen
en tout cas meme si on arrive pas a resoudre le problem
je suis tres contente de faire ta connaisanse et merci bcq
j espere a tout a l heure

 

[Baside]

Les deux fichiers d'origine avec la macro qui copie de Dap Temp vers Dab

Si fonctionne pas, il faut voir sur une autre machine

 

[anna]

bonjour mon ami
j espere que tu a passe un bon WE malgre que le soleil n'etait pas au RDV
j'ai emmener chez moi les fichier et ca a marche du premier cout,on est Dimanche et si demain au boulot can marcera pas je deviendrai folle.
allez passe une bonne fin de WE et ademain situ le veut bien.
anna

 

[Baside]

Bonjour Anna le forum

C'est bon

Je suis content même sans soleil, j'ai acheté un ordi portable hier et je l'ai mis en route ce matin.

Bonne journée, Baside

 

[anna]

Bonjour Baside
alors debut de semaine sous la pluie
content de ton nouveau achat?tu te prepare au vacance(un portable et tjr plus pratique n'est ce pas ?
sinon comme je l ai predit ce matin ca ne marche pas la macro sur le poste du boulot.
j ai effacer les fichier Perso,source,cible... et tout re enregister et tjr rien ,j ai l impression qu il y a un fichier ou bien l e system a enrtegistrer la variable DL1 quelque part et il bloque dessu mais la ca devien plus complique pour moi.
qu'est ce que t en pense.
anna
:angry:

 

[Baside]

Bonjour Anna le forum

Ce que j'en pense:

Soit l'employeur est une entreprise qui dispose d'un service informatique pour entretenir son matériel et tu fais appel à ce service

Soit il n'y a pas ce service mais l'employeur a un contrat d'entretien du système informatique et il faut y faire appel

Soit ni l'un ni l'autre et il faut faire une réparation d'Excel ou de Microsoft Office avec le disque d'origine Microsoft

Si marche toujours pas, virer et réinstaller Microsoft Office ou Excel

Bonne journée, Baside

Le portable pour charger les photos et s'amuser un peu en vacances, c'est plus pratique que prendre la tour et un 15 pouces plat
En plus il est wifi donc s'il y a un réseau, je peux me connecter

 

[anna]

alors voila ce que j ai essaie
j ai modifier le code de cette facon


Sub Regroupe()
'Application.ScreenUpdating = False

Workbooks('Fiche_DAR_Temp').Sheets(1).Activate
DL0 = Workbooks('Fiche_DAR_Temp').Sheets(1).Range('a65536').End(xlUp).Row

Workbooks('Fiche_DAR_Temp').Sheets(1).Range('a4:AD' & DL0).Copy
Workbooks('Fiche_DAR').Sheets(1).Activate
DL = Workbooks('Fiche_DAR').Sheets(1).Range('a65536').End(xlUp).Row

ActiveSheet.Paste Destination:=Worksheets(1).Range('a' & DL + 1)

'Application.ScreenUpdating = True


End Sub

et maintenant l'erreur ce fait tjr sur la deuxieme lignea execute cad cette fois avec F8 ca bloque à:
Workbooks('Fiche_DAR_Temp').Sheets(1).Activate

j ai renommer les feuille on leur donnant 1 comme titre comme dans Sheets(1). je n sais pas si c bon
anna

 

[Baside]

Une question qui peut sembler surprenante mais les deux fichiers sont bien ouverts sur une seule fenêtre Excel

Menu --> Fenêtre --> Les deux fichiers sont ils visibles ?

A+, Baside

 

[anna]

Yes Sir
bon je n vais pas perdre plus de temps sur ce point je vais laisser de cote ce point je passe a d'autre soucis car je commence a prendre du retard.
peu etre le miracle va arriver et a la fin de mon projet ca marchera a nouveau.
on va essaier d etre optimiste
a+
anna

 

[Hervé]

bonjour

Sans avoir tout suivi du fil, je me permet cette intervention.

Anna, essaye de rajouter les .xls à la suite de tes fichiers :

Workbooks('Fiche_DAR_Temp.xls')......

salut

 

[anna]

Bonjour Hervé
Alors la je n comprend plus rien j avais essaie ca et ca ne marchais pas.
et puis la je viens de rajouter les extension et paf ca marche.c le miraaacle
Merci mais le mistere est pourquoi alors ca a marcher sur mon poste perso(à la maison) sans les .xls et la au boulot non?
enfin tant que ca marche je n vais pas raler
j avais une autre question pour ceux qui veulent bien tjr m aider
voila:
j ai deux colonne

G-------------H
D19 005
D20 002
D09 005
D09 003
D19 005
je voudrai les transformer en (Rajouter d'un point à la fin
G-------------H
D19. 005.
D20. 002.
D09. 005.
D09. 003.
D19. 005.

j'utilise cette macro:
IDerligne = Range('D65536').End(xlUp).Row
For X = 4 To IDerligne
Cells(X, 7) = Cells(X, 7) & '.'
Cells(X, 8) = Cells(X, 8) & '.'
Next

Or ca marche pour la colonne G et pas pour H
et pour tant il ont le meme type cad Personnalise=000
est ce qu'il faut modifier le style ou quoi exactement
Merci les amiiiis
anna

 

[Hervé]

rebonjour

Ton souci doit venir de ton format personnalisé qui te permet d'avoir les 2 zéros.

En effet le code met bien le point à la suite du chiffre, mais comme tu as formaté tu ne vois pas la modification.

le plus simple est donc de changer le format de la cellule :

Dim iderligne As Integer, x As Integer
iderligne = Range('g65536').End(xlUp).Row
For x = 4 To iderligne
Cells(x, 7) = Cells(x, 7) & '.'
Cells(x, 8).NumberFormat = '000\\.'

en espérant t'avoir aidé;

Salut

EDITION IMPORTANTE : faut lire pour le numberformat = '000\\.'

Message édité par: Hervé, à: 06/06/2005 13:01