Macro enlever les # excel 2003 Fermé

Question

Bonjour,


je souhaite créer une macro qui enlève les dieses ds ls tableaux j le programme mais apparemment il faut réaliser une procedure function

Function marge3

supprime diese #
Dim c As Range 
For each C in Range ("A:Z")
if c=" #" then
C="  "
End if
Next
end sub


est ce que la syntaxe du progamme est correct ?

Et comment affecté cette fonction à la macro ?

Merci de me répondre

a+++

wilfried_42 · Answer

bonjour

je ne comprends pas, quand un # apparait, il lui est adjoint un type erreur resultant d'un probleme de calcul sur une formule, supprimer les # pas une macro revient à perdre les formules

j'attend de plus amples informations

Shalimar · Answer

PVN - Paramètres PPI options									
Zone de Prix : AP-Turquie									
Famille Prix : 407									
Evènement    : 08C 05  ACTU PPI 6.08.08									
Code Tarif   : 08C - MAI  2088									
Année Civile : 2008									
Séquence : 05									
Dates de validité : du 01/05/2008 au 31/12/2008									
	Date Début validité	Date Fin validité	T	V	RT_PPITOT  - PPI Total (E)	RT_PPIDAT  - Date du PPI	RT_PPINAT  - Nature du PPI	RT_PPIBPV  - Prix Pilote Industriel (E)	RT_PPIEVO  - Evolutions Réglementaires
valeurs Standard options	 	 	 	 	#	#	#	#	#
PAB0804.VP - ALARME VOL+ PERIMETRIQUE	01/10/2006	31/12/2078	 	 	#	20/08/2008	4	50	#
PDK0400.VP - CHAUF ADD AUTOMAT.	01/07/2007	31/07/2008	 	 	#	06/08/2008	6	#	#
PDO0100.VP - KIT TEL MAIN LIBRE	01/10/2006	31/12/2078	 	 	#	20/08/2008	4	90	#
PJQ0100.VP - COMPACT DISQUE	01/10/2006	31/12/2078	 	 	#	20/08/2008	6	#	#
PJY02A0.VP - DLX01DLX02DRCM4DRC01PLX04PRCT4	01/05/2007	31/07/2008	 	 	#	06/08/2008	6	#	#
PJY0240.VP - DLX02DRCM4PLX04PRCT4	01/07/2007	31/07/2008	 	 	#	06/08/2008	6	#	#
PLA0401.VP - PHARES XENON + LAV. PROJ.	01/10/2006	31/12/2078	 	 	#	20/08/2008	4	230	#
PNM0100.VP - FILET ARRET CHARGE	01/10/2006	31/12/2078	 	 	#	20/08/2008	4	60	#
PRCM404.VP - DRC01	01/05/2007	31/07/2008	 	 	#	06/08/2008	6	#	#
PRCRN77.VP - RECEPT RADIO RNEG- RADIO NAV MEM. FLASH	01/10/2008	31/12/2078	 	 	#	20/08/2008	6	#	#
PRCT500.VP - RT4 ECO RADIOTEL-AFF	01/10/2008	31/12/2078	 	 	#	20/08/2008	6	#	#
PRCT502.VP - DLX02DRCM4DTI02PJY02PLX16PTI03	01/07/2008	30/09/2008	 	 	#	20/08/2008	6	#	#
PRP0625.VP - SURMONTE JANTES ALU 17"	01/10/2006	31/07/2008	 	 	#	06/08/2008	6	#	#
PRP0645.VP - SURMONTE JANTES ALU 17"	01/10/2008	31/12/2078	 	 	#	20/08/2008	6	#	#
PRP0647.VP - SURMONTE JANTES ALU 17"	01/07/2007	30/09/2008	 	 	#	20/08/2008	6	#	#
PSO0400.VP - LATERALE FEUIL ACOUS	01/10/2006	31/12/2078	 	 	#	20/08/2008	6	#	#
PSO0401.VP - DSO01	01/10/2006	31/12/2078	 	 	#	20/08/2008	6	#	#
PTC0700.VP - TOIT OUVRANT ELECTRI	01/10/2006	31/12/2078	 	 	#	20/08/2008	4	193	#
PUE0100.VP - INDIC PERTE PRESSION	01/10/2006	31/07/2008	 	 	#	06/08/2008	6	#	#
PUN0100.VP - AMPLI EQUALISEUR	01/10/2006	31/12/2078	 	 	#	20/08/2008	6	#	#
PVD1037.VP - DSO01DVD09PSO04	01/07/2007	31/12/2078	 	 	#	20/08/2008	6	#	#
PWA1914.VP - DCN04DHU10DWA20PCN08PHU08	01/10/2006	31/12/2078	 	 	#	20/08/2008	6	#	#
PWA1915.VP - DCN04DHU10DWA26PCN08PHU08PXA01	01/07/2007	31/07/2008	 	 	#	06/08/2008	1	88	#
PWA1916.VP - DCN04DHU10DWA20PCN08PHU08PXA01	01/07/2007	31/07/2008	 	 	#	06/08/2008	1	401	#
PWA1936.VP - DCN04DHU10DIU01DWA26PCN08PHU08PIU02PXA01	01/07/2008	30/09/2008	 	 	#	20/08/2008	6	#	#
PWA1938.VP - DCN04DHU10DIU11DWA26PCN08PHU08PIU12PXA01	01/07/2008	30/09/2008	 	 	#	20/08/2008	6	#	#
PWD0720.VP - DNF04DWD12PNF08	01/10/2006	31/12/2078	 	 	#	20/08/2008	6	#	#
PXA0100.VP - SAC GONF/GENOUX/COND	01/10/2006	31/12/2078	 	 	#	20/08/2008	6	#	#
S0MM000.VP - PEINTURE METALLISEE	01/10/2006	31/12/2078	 	 	#	20/08/2008	4	0	#
S0PCY00.VP - CUIR GRAIN CLAUDIA	01/07/2007	31/12/2078	 	 	#	20/08/2008	6	#	#
S0PCY02.VP - PNA01	01/10/2006	31/12/2078	 	 	#	20/08/2008	4	1 282	#
S0PCY38.VP - DWA26PNA01POW02PWA20	01/07/2007	31/07/2008	 	 	#	06/08/2008	1	1 302	#
S0PCY45.VP - PNA01POW02	01/10/2008	31/12/2078	 	 	#	20/08/2008	6	#	#
S0PCY49.VP - DIU01DWA26PIU02PNA01POW02PWA20	01/07/2008	30/09/2008	 	 	#	20/08/2008	4	1 282	#
S0PCY50.VP - DIU11DWA26PIU12PNA01POW02PWA20	01/07/2008	30/09/2008	 	 	#	20/08/2008	6	#	#
S0PVJ00.VP - TAND+CUIR	01/07/2007	31/12/2078	 	 	#	20/08/2008	6	#	#




voila c un tableau ds lequel on doit supprimer les dieses car il ny a pas de valeurs correspondantes.


Ainsi la suppression des dieses ns permet d recuperer un tableau propre.


Merci de m'aider


a+++++

wilfried_42 · Answer

re:
je ne comprends pas grand chose, c'est une recup de fichier TXT ?, ca ne ressemble pas à une feuille excel

m'enfin si tu recois ca en colonne A, en collonne B tu mest une formule
en B1
=substitue(a1;"#";"")

si tu veux en plus retirer les espaces non significatifs tu mets en b1
=supprespace(substitue(A1,"#";""))

tu auras une imporation propre, mais je ne suis pas sur d'avoir compris

Raymond PENTIER · Answer

ou, tout simplement, tu sélectionnes tout le document et tu fais : Remplacer "#" par " "

Macro enlever les # excel 2003

4 réponses

Discussions similaires