Recherche et Remplace

[piegre]

Bonjour à tous,

J'ai fait cette petite macro qui remplace les virgules par un point dans la colonne D:G sur toutes les feuilles("PLAN", "PAV", "COG", "COD", "AV") :

Sub recherche_remplace()

    Sheets(Array("PLAN", "PAV", "COG", "COD", "AV")).Select
    Columns("D:G").Select
    Selection.Replace What:=",", Replacement:=".", LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
        ReplaceFormat:=False
    Sheets("PLAN").Select
    Range("G35").Select
End Sub

Mais quand je fait cette macro pas à pas ou que je l'appelle dans un autre code ( ex : Call Module1.recherche_remplace) , elle ne fonctionne pas 😕

 

[DoubleZero]

Re : Recherche et Remplace

Bonjour, piegre, le Forum,

Peut-être ainsi ?

Option Explicit
Sub Rechercher_remplacer()
    Dim o As Object
    Set o = Sheets(Array("a", "b", "c"))    ' noms adapter
    For Each o In o
        o.Columns("D:G").Replace What:=",", Replacement:=".", LookAt:=xlPart
    Next
End Sub

A bientôt 🙂

 

[piegre]

Re : Recherche et Remplace

Cela ne fonctionne pas 🙁 , mais à quoi sert ton : Option Explicit ?

Car moi, j'ai mis dans le module directement à partir le code à partir de Sub

 

[libellule85]

Re : Recherche et Remplace

Bonjour Piegre, Double Zero, le forum,

Quand tu mets Option Explicit cela t'oblige à déclarer tes variables.

 

[DoubleZero]

Re : Recherche et Remplace

Re-bonjour,

Cela ne fonctionne pas...

Merci de bien vouloir déposer le fichier de travail, dépourvu de données confidentielles.

...à quoi sert ton : Option Explicit ?...

Quelques explications Ce lien n'existe plusou là.

... Car moi, j'ai mis dans le module directement à partir le code à partir de Sub

Là, moi pas comprendre 😕

A bientôt 🙂

P. S. : Bonjour, libellule85 🙂

 

[piegre]

Re : Recherche et Remplace

Je vous ai mis en pièces jointes un exemple. J'ai fait la macro , remplacer "," par "." , donc elle fonctionne bien quand je l'a fait à la main mais quand on clique sur le gros bouton bleu qui exécute la macro, cela ne fonctionne plus.

 

[DoubleZero]

Re : Recherche et Remplace

Bonjour à toutes et à tous,

Le code déposé en #2 ne peut fonctionner sur le fichier joint en #6 car, contrairement à l'expression du besoin formulé en #1, les données sont listées en colonnes a et b et le nom de l'onglet est "Feuil1".

A bientôt 🙂

 

[piegre]

Re : Recherche et Remplace

Ah ba oui ^^ , j'ai juste importer quelques données dans plusieurs onglets, c'est exactement le même principe.

Sinon j'ai test avec ton code Doublezero mais cela ne fonctionne pas sur le nouveaux fichiers.

 

[DoubleZero]

Re : Recherche et Remplace

Re-bonjour,

Merci de bien vouloir déposer le fichier de travail, sans donnée confidentielle...

 

[piegre]

Re : Recherche et Remplace

Je l'ai déposée dans le poste #6

 

[DoubleZero]

Re : Recherche et Remplace

Re-bonjour,

Je l'ai déposée dans le poste #6

Le fichier déposé en #6 est celui qui m'a permis de répondre, ce jour, à vos remarques d'hier.

 

[piegre]

Re : Recherche et Remplace

Tu m'as demandée de déposer un fichier de travail sans donnée confidentielle, donc j'en ai fait un avec juste les données que je souhaite traiter, c'est tout.

 

[DoubleZero]

Re : Recherche et Remplace

Re-bonjour,

Je passe le relais à qui voudra bien le prendre.

Bonne continuation.

 

[piegre]

Re : Recherche et Remplace

Il y a une incompréhension dommage.

De toute façon j'ai trouvé une solution en allant dans les paramètres windows : Régions et langues -> Paramètres supplémentaires -> Symbole décimal -> mettre un point à la place de la virgule.

Merci quand même DoubleZero.