Remplacer un mot par un autre dans une colonne [Résolu/Fermé]

Signaler
-
Messages postés
11
Date d'inscription
vendredi 22 novembre 2013
Statut
Membre
Dernière intervention
1 juillet 2015
-
Bonjour,
J'ai encore besoin d'aide,ayant copie une macro supposée remplacer un mot par un autre dans une colonne je me suis rendu compte quelle modifiée toute la feuille j'ai essayé de
changer ActiveSheet par ActiveCell et Worksheet avec le nom de la Feuille ainsi que Range mais le résultat ne se fait pas Voici la formule

Sub EFFACER_toutes_les_CELLULES_AVEC_MOT()

' EFFACE OU REMPLACE UNE CELLULE AVEC UN CERTAIN MOT
Range("H2:H6000").Select
Dim xlwks As Excel.Worksheet
Set xlwks = ActiveSheet

'remplacer la valeur du premier" " par la valeur du deuxieme " "
xlwks.Cells.Replace "o", "NS"
End Sub

Voici mon dossier http://cjoint.com/?CCoo3JUup9J
Il y a encore d'autres problème mais je demanderai de l'aide si besoin

Grand Merci a l'avance j'essaye d'améliorer ma nullité en VBA et en EXCEL


4 réponses

Messages postés
12184
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
31 juillet 2020
2 472
Bonjour,

Essaie ce code, après avoir adapté ce qui doit l'être :

Sub EFFACER_toutes_les_CELLULES_AVEC_MOT()
Dim Feuille As Worksheet, Cel As Range, DrLig As Long, PremiereLigne As Integer
Dim Aremplacer As String, RemplacerPar As String, Colonne As String

'------------ A ADPATER --------------------
Aremplacer = "aujourd'hui"
RemplacerPar = "demain"
Set Feuille = Worksheets("Feuil1")
Colonne = "A"
PremiereLigne = 1
'---------- FIN ADAPTATIONS ----------------

With Feuille
    DrLig = .Range(Colonne & Rows.Count).End(xlUp).Row
    For Each Cel In .Range(Colonne & PremiereLigne & ":" & Colonne & DrLig)
        Cel = Replace(Cel, Aremplacer, RemplacerPar)
    Next Cel
End With
End Sub


Bonsoir pijaku
Je vous remercie de votre réponse rapide je n'arrive pas a trouver"Set Feuille "
pour le remplacer je vous montre ce que j'ai fait.La macro tourne sans rien faire
J'ai remplace "aujourd'hui" par "col". "demain" par "tout "."colonne" par" F".
"premiereligne" par "2"."Set Feuille " JE NE TROUVE PAS pouvez vous me guider
Sub EFFACER_toutes_les_CELLULES_AVEC_MOT()
Dim Feuille As Worksheet, Cel As Range, DrLig As Long, PremiereLigne As Integer
Dim Aremplacer As String, RemplacerPar As String, Colonne As String

'------------ A ADPATER --------------------
Aremplacer = "aujourd'hui"
RemplacerPar = "demain"
Set Feuille = Worksheets("Feuil1")
Colonne = "A"
PremiereLigne = 1
'---------- FIN ADAPTATIONS ----------------

With Feuille
DrLig = .Range(Colonne & Rows.Count).End(xlUp).Row
For Each Cel In .Range("F" & 2 & ":" & "F" & DrLig)
Cel = Replace(Cel, " col", "tout")
Next Cel
End With
End Sub
Je dois m'absenter pour réunion du club aussi si vous répondez rapidement comme tout a l'heure moi je serais plus lent
merci encor pijaku

Re Bonsoir pijaku
EXCUSEZ moi je me suis trompé au début J'avais cherché les complications.Maintenant j'ai bien rempli comme vous l'avez écrit A ADAPTER cela fonctionne très bien.
Mais je me suis mal expliqué je voudrai comme en colonne "F" "col: 0007" pouvoir remplacer
col même quand quelque chose suit et avoir "tout: 0007"
J'espère que vous voudrez bien pardonner mon erreur et ne pas en tenir rigueur.
MERCI DE VOTRE DEVOUEMENT
Messages postés
12184
Date d'inscription
jeudi 15 mai 2008
Statut
Modérateur
Dernière intervention
31 juillet 2020
2 472
Bonjour,

Mais je me suis mal expliqué je voudrai comme en colonne "F" "col: 0007" pouvoir remplacer
col même quand quelque chose suit et avoir "tout: 0007"

Le code donné précédemment fait exactement cela................. What else?

Re Bonsoir pijaku

MERCI pour tout j'ai essayé la macro sur un autre dossier , il fonctionne a merveille et remplace ce que je veux mais dans le dossier envoyé je ne sais pas pourquoi il ne FONCTIONNE PAS en colonne "F" pour le mot "col" et
pour "PRIX" en colonne "H"
Je vous remercie pour votre gentillesse et votre travail et je met résolu
A plus tard certainement
MERCI
micheeliane
Messages postés
11
Date d'inscription
vendredi 22 novembre 2013
Statut
Membre
Dernière intervention
1 juillet 2015

Je reviens sur le sujet en espérant avoir une réponse,
la macro de micheleliane marche très bien mais comment l'appliquer à plusieurs colonnes ?

Merci pour votre retour