Remplacer un mot d'une cellule par le contenu d'une autre cellule - Résolu

Paf

XLDnaute Barbatruc

• 11 Janvier 2016

• #2

Re : Remplacer un mot d'une cellule par le contenu d'une autre cellule

bonjour et bienvenue sur XLD,

Si les données commencent toutes en ligne 2 et qu'il y a autant de ligne en colonne A qu' en colonne B ou C, une macro basique:

Code:

Sub Remplace()
 Dim i As Long, ARemplacer As String
 ARemplacer = "Renault"     ' adapter le mot à remplacer
 With Worksheets("Feuil1")  ' adapter le nom de la feuille
 For i = 2 To .Range("B" & Rows.Count).End(xlUp).Row
    .Cells(i, 2) = Replace(.Cells(i, 2), ARemplacer, .Cells(i, 1))
    .Cells(i, 3) = Replace(.Cells(i, 3), ARemplacer, .Cells(i, 1))
 Next
 End With
End Sub

Si le traitement était trop long, il faudrait passer par des tableaux. A voir.
A+

 

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 11 Janvier 2016

• #3

Re : Remplacer un mot d'une cellule par le contenu d'une autre cellule

Bonjour, eventuellement à coller en B2 et à étirer à droite et en bas

=SI($A2<>"";SUBSTITUE(B$1;"Renault";$A2);"")

Cliquez pour agrandir...

ou en variable tableau

Sub remplacer()
Dim c()
a = Feuil1.UsedRange
ReDim c(1 To UBound(a))
For d = 2 To 3
For b = 2 To UBound(a)
c(b - 1) = Replace(a(1, d), "Renault", a(b, 1), , , vbTextCompare)
Next b
Feuil1.Cells(2, d).Resize(UBound(c), 1) = Application.Transpose(c)
Next d
End Sub

Cliquez pour agrandir...

 

Dernière modification par un modérateur: 11 Janvier 2016

Vote positif 0 Vote négatif

M

maxime111

Guest

• 12 Janvier 2016

• #4

Re : Remplacer un mot d'une cellule par le contenu d'une autre cellule

Bonjour CPk et Paf,

Je tiens à vous remercier car vos 2 solutions fonctionnent parfaitement!

Aprés avoir passer mon weekend à m'arracher les cheveux pour résoudre ce problème, je peux enfin avancer!

Merciiiiii et bonne journée 🙂

 

Vote positif 0 Vote négatif

Paf

XLDnaute Barbatruc

• 12 Janvier 2016

• #5

Re : Remplacer un mot d'une cellule par le contenu d'une autre cellule

re,

pour répondre au MP:

pour mettre en résolu, sous le tout premier message cliquer sur Modifier le message et rajouter Résolu dans le titre .

Bonne suite

 

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 12 Janvier 2016

• #6

Re : Remplacer un mot d'une cellule par le contenu d'une autre cellule

Bonjour Paf,maxime111.
c'est pas plus judicieux de demander de l'aide avant de s'arracher les cheveux, plutôt que l'inverse ?

 

Vote positif 0 Vote négatif

M

maxime111

Guest

• 12 Janvier 2016

• #7

Re : Remplacer un mot d'une cellule par le contenu d'une autre cellule

Ce n'est pas grave, cela repousse! Tant que je ne perds pas la tête c'est bon! hi hi 😀

 

Vote positif 0 Vote négatif

M

maxime111

Guest

• 12 Janvier 2016

• #8

Re : Remplacer un mot d'une cellule par le contenu d'une autre cellule

Paf à dit:

re,

pour répondre au MP:

pour mettre en résolu, sous le tout premier message cliquer sur Modifier le message et rajouter Résolu dans le titre .

Bonne suite

Cliquez pour agrandir...

C'est fait, merci

 

Vote positif 0 Vote négatif

C

CPk

XLDnaute Impliqué

• 13 Janvier 2016

• #9

Re : Remplacer un mot d'une cellule par le contenu d'une autre cellule - Résolu

Ce n'est pas bien difficile de ne pas la perdre !!!

 

Vote positif 0 Vote négatif