Comment faire pour remplacer tout dans VBA Excel

Ouvrez le classeur Excel où vous voulez entrer votre code VBA. Appuyez sur "Alt" et "F11" pour ouvrir la console VBA.

Double-cliquez sur le module où vous voulez entrer votre code. Si il n'y a pas de module, vous pouvez droit; cliquer sur une feuille de calcul, déplacez votre souris sur "Insérer" et choisissez "Module". Puis double-cliquez sur le module pour le mettre.

Copiez la formule suivante dans le module:

Sous aRemplacez ()

Dim sb comme feuille de travail

Pour chaque sb Feuilles

sb.Cells.Replace Quoi: = "XXX", Remplacement: = "YYY", LookAt: = xlPart, _

SearchOrder: = xlByRows, matchcase: = False

Suivant

End Sub

Changer "XXX" à la valeur que vous recherchez et "YYY" à la valeur que vous souhaitez remplacer. Vous pouvez également modifier la valeur "matchcase" à "True" si la capitalisation est important. Cette macro va trouver et remplacer toutes les valeurs souhaitées sur chaque feuille de calcul dans votre classeur.

Utilisez le code suivant si vous voulez seulement de remplacer toutes les valeurs dans une sélection donnée:

Selection.Replace Quoi: = "XXX", Remplacement: = "YYY", LookAt: = xlPart, _

SearchOrder: = xlByRows, matchcase: = False

Vous pouvez utiliser ce code dans tout autre macro VBA aussi longtemps que vous entrez ce code après que vous avez défini une zone de sélection dans votre macro.

Cliquez sur le «X» dans le coin supérieur droit de la fenêtre VBA pour la refermer. Toutes vos modifications sont enregistrées automatiquement.

Cliquez sur l'onglet "Developer" et appuyez sur le bouton "Macro". Choisissez votre macro dans la liste et cliquez sur "Exécuter" pour remplacer toutes les valeurs ciblées dans votre feuille de calcul ou un classeur.