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

maxime111 · 11 Janvier 2016

Bonsoir à toutes et à tous et bonne année

J'ai un souci et j'espère pouvoir trouver une solution ici, je m'explique:
Dans le fichier ci-joint, pour chaques lignes, je souhaite remplacer le mot "Renault" qui se trouve dans les colonnes B et C par le contenu de la cellule A.
pour la ligne 2 il faudrait arriver à afficher dans les colonnes B et C:
Véhicule:*voiture cliolongueur, largeur, ect.
et
Le moteur de la voiture clio est testé et dispose des normes de sécurité

Une idée? J'ai des milliers de références à faire donc à la main ce n'est pas possible...

Merci d'avance!

Longue vie à ce forum!

Paf · 11 Janvier 2016

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+

CPk · 11 Janvier 2016

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);"")

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

maxime111 · 12 Janvier 2016

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

Paf · 12 Janvier 2016

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

CPk · 12 Janvier 2016

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 ?

maxime111 · 12 Janvier 2016

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

maxime111 · 12 Janvier 2016

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

C'est fait, merci

CPk · 13 Janvier 2016

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 !!!

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

maxime111

XLDnaute Nouveau

Pièces jointes

Paf

XLDnaute Barbatruc

CPk

XLDnaute Impliqué

maxime111

XLDnaute Nouveau

Paf

XLDnaute Barbatruc

CPk

XLDnaute Impliqué

maxime111

XLDnaute Nouveau

maxime111

XLDnaute Nouveau

CPk

XLDnaute Impliqué

Discussions similaires