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

Question

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


Configuration: Windows XP / Chrome 23.0.1271.97

pijaku · Answer

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

micheleliane · Answer

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

micheleliane · Answer

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

Rwan44 · Answer

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

Remplacer un mot par un autre dans une colonne

4 réponses

Discussions similaires