MAcro pour rechercher et remplacer

[ydemarin]

Bonjour,

Je suis néophyte en VBA mais j'essaie de progresser pas à pas.

J'ai réalisé un petit outil dans excel pour la planification transport et j'aurais besoin d'y ajouter une nouvelle fonctionnalité pour répondre à un besoin d'exploitation.
En détail, toute commande est affectée à une tournée avant sa préparation, mais il peut arriver que suite à des contraintes de transport et de chargement, il faille modifier l'affectation de la commande à la tournée.
J'ai mis en pj un fichier exemple

Pour cela j'ai imaginé le scénario, pour une macro, suivant:

Sub Macro1()
'
' Macro1 Macro
'

'Ouvrir onglet recherche
Sheets("Recherche").Select
'Définition des valeurs variables

Range("A1").Select
'définir en valeur1

Range("A2").Select
'définir en valeur2

Range("A3").Select
'définir en valeur3

'rechercher Valeur1
Cells.Find(What:="Valeur1", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
, SearchFormat:=False).Activate

'rechercher valeur2 et remplacer par valeur3
ActiveCell.Replace What:="2", Replacement:="3", LookAt:=xlWhole, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Cells.FindNext(After:=ActiveCell).Activate

'retour au sommaire
Sheets("Sommaire").Select

End Sub

Mais évidemment en l'état cela ne peut pas marcher.😡

Qui peut m'aider à ce sujet?


D'avance merci

 

[Staple1600]

Re : MAcro pour rechercher et remplacer

Bonsoir


Essaye avec cette macro

Sub remplacement()
Dim Cell As Range
Valeur_CHERCHEE = _
Sheets("Recherche").Range("A1")
Nouvelle_VALEUR = _
Sheets("Recherche").Range("A3")
Set Plage_RECHERCHE = _
Sheets("Remplacement").Range("B1:B" & [A65536].End(xlUp).Row)
For Each Cell In Plage_RECHERCHE
If Cell Like Valeur_CHERCHEE Then
Cell.Offset(0, 1) = Nouvelle_VALEUR
End If
Next
End Sub

Si tu as des questions, n'hésites pas.

 

[Guest]

Re : MAcro pour rechercher et remplacer

Bonsoir yDemarin

Est-ce que le numéro de commande peut apparaître plusieur fois dans colonne commande de la feuille Remplacement?

A+

 

[Guest]

Re : MAcro pour rechercher et remplacer

Re,

voici une proposition si le numéro de commande n'apparaît qu'une fois dans la colonne commande de la feuille remplacements.


A bientôt

[EDIT] SEND+MORE=MONEY😀

 

[ydemarin]

Re : MAcro pour rechercher et remplacer

Meric beaucoup pour vos réponse.

Effectivement le nuémro de commande n'apparaît qu'une seule fois.
DOnc la réponse est parfaite.

Merci beaucoup!!!

 

[ydemarin]

Re : MAcro pour rechercher et remplacer

Affaire résolue