Remplacer un mot par un autre dans une colonne

Résolu/Fermé

Valeur

micheleliane - 14 mars 2013 à 15:04
Rwan44 Messages postés 11 Date d'inscription vendredi 22 novembre 2013 Statut Membre Dernière intervention 1 juillet 2015 - 1 juil. 2015 à 16:40

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

A voir également:

Vba remplacer une valeur par une autre dans une colonne
Déplacer une colonne excel - Guide
Le fichier contient une liste de prénoms. triez ce tableau par ordre alphabétique des prénoms. quel mot est formé par les 6 premières lettres de la colonne code ? - Forum Bureautique
Remplacer disque dur par ssd - Guide
Remplacer un mot par un autre word - Guide
Excel renvoyer la valeur d'une cellule en fonction d'une autre - Forum Logiciels

4 réponses

Réponse 1 / 4

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
14 mars 2013 à 15:32

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

Réponse 2 / 4

micheleliane
14 mars 2013 à 19:33

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
15 mars 2013 à 00:05

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

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
15 mars 2013 à 11:27

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?

Discussions similaires

Afficher une valeur selon le contenu d'autre cellule

Remplacer texte par valeur dans formule "SI"

mise en forme conditionnelle d'une colonne en fonction d'autres

Fonction "afficher le contenu d'une cellule avec critères"

Excel remplacer une valeur si

[SQL]Plusieurs REPLACE sur une colonne

Discussions similaires

Newsletters