Macro enlever les # excel 2003
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+++
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+++
Configuration: Windows 2000 Internet Explorer 6.0
4 réponses
-
Contributeurbonjour
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
-
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+++++ -
Contributeurre:
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 -
ou, tout simplement, tu sélectionnes tout le document et tu fais : Remplacer "#" par " "
