Recherche et remplacement en VBA

Bonjour, j'ai un tableau avec 3 colones qui affiche les numéros de parcelles qui doivent être modifié avec les 2 autres à droite. J'aimerais un code me permettant de recherche les valeurs dans la colonne 1 et remplacer dans une autre feuilles les valeurs correspondent.

R: Lieux de la recherche
M: Lieux a mettre a jours
Pièce jointe 557496

R : Recherche cette Valeurs
I et J Valeurs a remplacer

Pièce jointe 557499

Étape 1 : Programmation de la sélection de toute les valeurs pareil selon la première ligne de mon range.



Étapes 2 : Offset de cette sélection de 4 colonnes en gardant sélectionner la même plage



Étape 3 Remplacer les valeurs de cette sélection par la valeurs Présente toujours a la même place dans le document



Étape 4 Passe a l'autre ligne et répéter la même procédure que si dessus.

Bonjour,
J'ai beau regarder l'image publiée et ton explication, je n'arrive pas à comprendre ce que tu veux.
Les données se trouvant dans toutes tes colonnes sont identiques donc je me demande si c'est un gag

Comme Philippe. :coucou:
Après avoir relu plusieurs fois, je ne parviens même pas à comprendre quelle est la source et quelle est la destination de la copie.
De tout façon, sans connaitre les adresse de colonnes et de lignes, je ne vois pas trop quel code il serait possible d'écrire.

Sans compter que j'ai la forte impression que tout ceci pourrait être fait à la main en une minute avec une formule EQUIV+INDEX et un "copier/coller valeur".

Bonjour, non il n’assagis pas d'un gag. Je suis novice en vba et j'ai un peu de difficulté a m'exprimé. En gros le résultat voulue est que quand je modifie le nom du projet dans la feuille zone de triage sur certain élément en ligne unique, le code aille changé la valeurs correspondante valeurs multiple dans la feuille compilation.

Exemple

Je veux modifié le non du projet dans la parcelle 1 Par Cypres-025

Feuille Zone de triage

PE	Projet
0001	WDEG-150

Compilation

PE	Projet
0001	WDEG-150
0001	WDEG-150
0001	WDEG-150

La page compilation devient

Pe	Projet
0001	CYPRES-025
0001	CYPRES-025
0001	CYPRES-025

Voila ou j'en suis pour l'instant j'essaie de faire la partie sélection selon un critère en codage manuel avant de l’imbriqué dans une boucle. Présentement j'ai une erreur 13 car ma valeurs Y est imcompatible.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

Sub Test() Dim NP As String Dim x As String Dim y As String x = Sheets("Zone de Triage").Range("H7").Value 'NP = Sheets("Zone de Triage").Range("I4:J4").String 'NP.Select 'Selection.Copy Sheets("Compilation").Select 'Trouve la première valeurs a modifié(Manuel)' Set Cell = Range("H:H").Find("0002", SearchOrder:=xlRows) 'MsgBox cell.Address y = Range(Cell.Address).Offset(0, -4).Value   Range(Cells(y, 4), Cells(x, 5)).Select       End Sub

---