Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

MAcro pour rechercher et remplacer

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion ydemarin
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
Y

ydemarin

Guest
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
 

Pièces jointes

Trier par date Trier par votes
Re : MAcro pour rechercher et remplacer

Bonsoir


Essaye avec cette macro

Code: 
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.
 
Vote positif 0 Vote négatif
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+
 
Vote positif 0 Vote négatif
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😀
 
Vote positif 0 Vote négatif
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!!!
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

F
  • Question Question
Microsoft 365 Poursuivre ou pas la macro
Réponses
2
Affichages
589
Francky79
F
T
  • Question Question
Microsoft 365 Modification formules via VBA
Réponses
1
Affichages
347
Dudu2
D
  • Question Question
Microsoft 365 Problème avec remplacer . par ,
Réponses
3
Affichages
569
de_hanstrapp
D
F
  • Résolu(e)
Microsoft 365 Commentaire cellule dans TextBox dans UserForm
Réponses
4
Affichages
760
Francky79
F
B
  • Question Question
Microsoft 365 Remplacer "." par "," avec VBA sans qu'il considère que c'est des milliers si ça ne commence par "0."
Réponses
1
Affichages
703
Eric KERGRESSE
E
  • Question Question
XL 2016 Définir un nom en vba
Réponses
3
Affichages
639
Phillip
  • Question Question
XL 2016 excel VBA : recherche dans une colonne sans la sélectionner
Réponses
4
Affichages
633
job75
N
  • Résolu(e)
XL 2019 transformation de cordonnée GPS
Réponses
14
Affichages
1 K
sylvanu
Y
  • Résolu(e)
XL 2013 Recherche qui fonctionne avec le texte et non la Value
Réponses
3
Affichages
591
youguybass
Y
K
  • Résolu(e)
XL 2016 Ne garder que les chiffres dans la colonne A et remplacer les h et '
2
Réponses
16
Affichages
2 K
Phil69970
M
  • Question Question
XL 2016 Problème avec fonction VBA
Réponses
7
Affichages
770
MCOTTEND
M
A
  • Résolu(e)
XL 2016 Selection.replace inopérante
Réponses
4
Affichages
668
albuqs
A
  • Résolu(e)
XL 2019 [Résolu] Problème VBA Find
Réponses
6
Affichages
2 K
lebarbo
A
  • Question Question
XL 2016 Remplacer des valeurs dans toutes une feuilles VBA
Réponses
8
Affichages
914
Robert
E
  • Résolu(e)
XL 2019 Format Date Anglais / Francais
Réponses
5
Affichages
2 K
EDI9366
E
C
  • Question Question
Microsoft 365 Macro tri des lignes
Réponses
5
Affichages
1 K
Chris Linefield
C
  • Question Question
Microsoft 365 Find : si texte recherché n'existe pas alors .....
Réponses
6
Affichages
1 K
laurent950
  • Résolu(e)
Microsoft 365 MsgBox en 2 temps
Réponses
2
Affichages
992
Usine à gaz
O
  • Question Question
XL 2013 Suppression des points de "milliers" de chiffres pour les transformer en nombre
Réponses
14
Affichages
1 K
onyirimba
O
A
  • Résolu(e)
Microsoft 365 remplacement . ou , par séparateur de décimal en VBA
2
Réponses
25
Affichages
7 K
onyirimba
O
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…