Sujet Précédent Sujet Suivant

Macro enlever les # excel 2003

Fermé
Shalimar - 25 août 2008 à 11:39
Raymond PENTIER Messages postés 58397 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 26 avril 2024 - 25 août 2008 à 15:49
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+++
A voir également:

4 réponses

Réponse 1 / 4
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 243
25 août 2008 à 12:44
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
0
Réponse 2 / 4
Shalimar
25 août 2008 à 13:42
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+++++
0
Réponse 3 / 4
wilfried_42 Messages postés 907 Date d'inscription mardi 19 août 2008 Statut Contributeur Dernière intervention 8 décembre 2009 243
25 août 2008 à 14:03
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
0
Réponse 4 / 4
Raymond PENTIER Messages postés 58397 Date d'inscription lundi 13 août 2007 Statut Contributeur Dernière intervention 26 avril 2024 17 094
25 août 2008 à 15:49
ou, tout simplement, tu sélectionnes tout le document et tu fais : Remplacer "#" par " "
0

Discussions similaires

libellé page1 excel
imazi -
Raymond PENTIER -

7 réponses
Comment désactiver le mode sécurisé de la Freebox POP.
Cycy -
munstef676 -

11 réponses
Transformer un chiffre en lettres dans excel sans macro
vincentphilippos -
tontong -

6 réponses