XL 2016 Remplacer par

[davidp]

Bonjour le forum ,

désolé de vous déranger , mais j'ai une nouvelle fois besoin de votre aide .
En effet , je cherche depuis des heures la solution . Mon problème est le suivant :
Dans la colonne G à partir de G4 , je souhaite remplacer des désignations par d'autres , au départ tout se passe bien , mais ensuite , j'ai des mots qui viennent se rajouter

Ex: Dans la ligne 31143 ,après avoir exécuté la macro , j'ai dépannage ali frais qui est venu se rajouter.

Je remercie d'avance celui qui pourra m'aider .

Bonne journée à tous

DAVID

 

[Victor21]

Bonjour.

Copiez H, coller sur G

 

[Robert]

Bonjour le fil, bonjour le forum,

Ou comme ça :

Sub famille2()
Dim TV As Variant
TV = Range("G4:H" & Cells(Application.Rows.Count, "H").End(xlUp).Row)
For I = 1 To UBound(TV, 1)
  TV(I, 1) = TV(I, 2)
Next I
Range("G4").Resize(UBound(TV, 1), 2).Value = TV
End Sub

 

[davidp]

Bonjour Victor 21 et Robert ,

je vous remercie tous les 2 d'avoir pris du temps pour regarder le fichier ,
En réalité , il n'y a pas de données dans la colonne H , c'est pour cette raison que j'ai réalisé la macro ci-dessous qui modifie le contenu de la colonne G en fonction de son contenu.


Merci'd'avance pour votre aide

Sub famille()
Range("G4").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Replace What:="CHIPS", Replacement:="Chips psa", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="PRODUITS APERITIFS", Replacement:="Chips psa", LookAt _
:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="DEVANTS DE CAISSE", Replacement:="Snacking ", LookAt _
:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Selection.Replace What:="SNACKING", Replacement:="Snacking ", LookAt:=xlPart _
, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False

Etc .........
End Sub

Pour info: Dans la colonne G à partir de G4 , je souhaite remplacer des désignations par d'autres , au départ tout se passe bien , mais ensuite , j'ai des mots qui viennent se rajouter

Ex: Dans la ligne 31143 ,après avoir exécuté la macro , j'ai dépannage ali frais qui est venu se rajouter.

Je remercie d'avance celui qui pourra m'aider .


Bonne journée

DAVID