FORUM MP | Visual basic : macro excel modifiant des caracteres

COMMUNAUTE MP

Identifiez vous ...

DOMAINE MP

Bavardages

Langages Généraux

Langages Web

Langages DotNet

Autres langages

Dev. Jeux Video

Sécurité

Sys. Exploitation

Graphismes

Logiciels

Réseaux

Bases de données

Méthodologies

Emplois High-tech

Aide juridique

Articles juridiques

FORUM

CHAT MP IRC

Votre pseudo ...

Serv: irc.irc-land.org

Chan: #MoteurProg

PARTICIPER

Plus de 3500 emplois.

Visiteur MP

macro excel modifiant des caracteres
	Forum : VISUAL BASIC Sous Catégorie : Aucune Type du sujet : Sujet Normale FAQ : FAQ VISUAL BASIC
		SUIVI PAR MAIL INACTIF
		SUJET RESOLU
		SUJET ACTIF
		N'APPARTIENT PAS A LA FAQ

PAGES : [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]

FORUM VISUAL BASIC
	Page précedente	Page suivante

babyshaq
Membre newbie

Inscrit : 30/05/2008
Messages : 51

#153702 Posté le 02/06/08 à 10:09

Bonjour,

Je dois créer une macro-commande sur Excel permettant de modifier des caractères automatiquement mais je ne sais pas comment.

Par exemple j'ai ce document:

PMO|29||33937998401008|3|060930255001|déversoir en tète de stat|A2||||||||||||
PMO|31||33937998401008|3|060930255001|Entrée Station |A3||||||||||||
PMO|32||33937998401008|3|060930255001|sortie station |A4||||||||||||
PMO|41||33937998401008|3|060930255001|boues produites avant tra|A6||||||||||||
PMO|5||33937998401008|3|060930255001|Graisses évacuées sans tr|A9||||||||||||
PMO|6||33937998401008|3|060930255001|Sable produit évacué|A10||||||||||||
PMO|7||33937998401008|3|060930255001|Refus dégrillage produit |A11||||||||||||

Il faut que je change A2 en S2, A3 en S3 et ca pour plusieurs documents.
Ces caractères sont toujours placer au même endroit.

Par exemple :

PMO|29||33937998401008|3|060930255001|déversoir en tète de stat|S2||||||||||||
PMO|31||33937998401008|3|060930255001|Entrée Station |S3||||||||||||
PMO|32||33937998401008|3|060930255001|sortie station |S4||||||||||||
PMO|41||33937998401008|3|060930255001|boues produites avant tra|S6||||||||||||
PMO|5||33937998401008|3|060930255001|Graisses évacuées sans tr|S9||||||||||||
PMO|6||33937998401008|3|060930255001|Sable produit évacué|S10||||||||||||
PMO|7||33937998401008|3|060930255001|Refus dégrillage produit |S11||||||||||||

Ce sont des fichiers texte (.txt) au format Sandre, ils s'ouvrent avec un logiciel de traitement de texte.

Merci de votre aide.

HAUT DE PAGE

Publicité

Inscrit : X
Messages : X

#Aucun

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1718

#153706 Posté le 02/06/08 à 14:02

Bonjour

malgrés des efforts de compréhension c'est très difficile à comprendre votre demande

le mieux serait de déposer votre fichier sur www.cjoint.com et de mettre le lien qui vous sera fourni sur ce fil

Merci

Cdlt

RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

babyshaq
Membre newbie

Inscrit : 30/05/2008
Messages : 51

#153707 Posté le 02/06/08 à 14:18

Voila le lien http://cjoint.com/?gcopBBUa74

Merci

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1718

#153708 Posté le 02/06/08 à 14:35

Je suppose que c'est cela que vous voulez obtenir

Fichier

Cdlt

RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1718

#153709 Posté le 02/06/08 à 14:42

Voilà la Macro

Sub Macro1()

Workbooks.OpenText Filename:= _
thisworkbook.path & "\test.txt", Origin:=932 _
, StartRow:=1, DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, _
ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=False _
, Space:=False, Other:=True, OtherChar:="|", FieldInfo:=Array(Array(1, 1 _
), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 1), Array(7, 1), Array(8, 1), _
Array(9, 1), Array(10, 1), Array(11, 1), Array(12, 1), Array(13, 1), Array(14, 1), Array(15 _
, 1), Array(16, 1), Array(17, 1), Array(18, 1), Array(19, 1), Array(20, 1)), _
TrailingMinusNumbers:=True
Sheets("test").Select
End Sub

le fichier est nommé test.txt il est dans le path du classeur
à adapter si le chemin n'est pas bon

RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1718

#153711 Posté le 02/06/08 à 14:47

Fichier test

voilà le fichier de test à mettre dans le répertoire du fichier txt à extraire

Salutations

RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

babyshaq
Membre newbie

Inscrit : 30/05/2008
Messages : 51

#153712 Posté le 02/06/08 à 14:47

Non non pas du tout!
Les caracteres qui se trouvent dans la colonne H (A2 A5 A2 A4..) , je voudrai en faite les changer automatiquement en appuiyant sur un bouton en
A3=S1
A4=S2
A2=S16
A6=S4
A5=S3

En faite c'est comme plusieur rechercher remplacer, mais je veu que cela ce face d'un seul coup.

HAUT DE PAGE

babyshaq
Membre newbie

Inscrit : 30/05/2008
Messages : 51

#153713 Posté le 02/06/08 à 15:00

j'ai pa compris j'en fait quoi de ce fichier? je le met ou?

vous en faites rien car ce n'est pas la demande

en faites la demande est bien plus compliquée car il faut rechercher chaque valeur et la remplacer je suppose

donc employez pour la recherche verticale en VBA .Find et la recherche suivante .findNext

bon courage

RGI

HAUT DE PAGE

RGI
Superviseur :
- Logiciels
Modérateur :
- Visual basic
- Bureautique

Inscrit : 21/08/2006
Messages : 1718

#153715 Posté le 02/06/08 à 15:56

Voilà

http://cjoint.com/?gcp1nevsyj

RGI
__________________________
PS: VBA pour EXCEL est maintenant dans Bureautique Smiley

merci de poser vos questions VBA à cet endroit
salutations

RGI

Un MERCI en retour c'est sympa
et ne pas oublier le tag :

après résolution.

HAUT DE PAGE

babyshaq
Membre newbie

Inscrit : 30/05/2008
Messages : 51

#153716 Posté le 02/06/08 à 16:19

Merci c'est exactement ca!
Mais si jai d'autres fichier a changer comme celui la ca marche aussi?
Il faut faire comment?

HAUT DE PAGE


	Page précédente	Page suivante
FORUM VISUAL BASIC

PAGES : [1] [2] [3] [4] [5] [6] [7] [8] [9] [10]

.: Site Web développé par Julien Pichot et l'équipe MPWG avec www.evolvia-web.com :.