Remplacer un mot par un autre dans une colonne
Résolu
micheleliane
-
Rwan44 Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
Rwan44 Messages postés 11 Date d'inscription Statut Membre Dernière intervention -
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
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:
- Macro excel remplacer une valeur par une autre
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Déplacer une colonne excel - Guide
- Remplacer disque dur par ssd - Guide
- Liste déroulante excel - Guide
- Excel trier par ordre croissant chiffre - Guide
4 réponses
Bonjour,
Essaie ce code, après avoir adapté ce qui doit l'être :
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