Macro sous excel modifiant des caracteres

Question

Bonjour,

Je dois creer une macro-commande sur excel permettant de modifier des caracteres automatiquement mais je ne sais pas comment.

Par exemple j'ai ce document:

PMO|29||33937998401008|3|060930255001|deversoir en tete 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 caracteres sont toujours placer au meme endroit.
Ce sont des fichier texte(.txt) au format Sandre, ils s'ouvrent avec un logiciel de traitement de texte.

Merci de votre aide.

babyshaq · Answer

Alors personne ne veut repondre.

clem285 · Answer

il y a un outil tout fait sous excel
ctrl+F
tu clic sur l'onglet remplacer, et regarde les options
sinon si tu dois absolument faire la macro, bonne chance

babyshaq · Answer

Et oui le probleme c'est qu'il faut que je fasse la macro, car sa correspond pas vraiment a se qu'ils attendent le rechercher remplacer.
Merci quand meme.

babyshaq · Answer

Alors j'ai enregistrer une macro ce qui m'a donné ce code:

Sub Macro1()
' Macro1 Macro

    ActiveCell.Replace What:="A3", Replacement:="S1", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Find(What:="A3", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
        
        
    ActiveCell.Replace What:="A4", Replacement:="S2", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Find(What:="A4", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
                
    ActiveCell.Replace What:="A2", Replacement:="S16", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Find(What:="A2", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
                
                
    ActiveCell.Replace What:="A6", Replacement:="S4", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Find(What:="A6", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
        
        
    ActiveCell.Replace What:="A5", Replacement:="S3", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Cells.Find(What:="A5", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=False).Activate
        
End Sub



Mais le probleme c'est que il y a un bug sur les lignes soulignés, je ne vois pas pourquoi!

babyshaq · Answer

Personne peut m'aider??

Macro sous excel modifiant des caracteres

5 réponses

Votre réponse

Discussions similaires

Newsletters