Vba remplacer une valeur par une autre

  • Initiateur de la discussion Initiateur de la discussion arrazki
  • 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 !

A

arrazki

Guest
Bonjour,

J'ai essayer de créer une macro qui permet de une lettre par D ou par C.
Si la cellule sélectionné contient la lettre C alors remplacé par D si la cellule contient la lettre D alors remplacé par C
pouvez-vous m'aider ?

ci-joint un fichier pour exemple avec la formule vba

Merci
 

Pièces jointes

Re : Vba remplacer une valeur par une autre

Bonjour,

Quel est l'ordre de traitement, quand s'arrête-t-on ?

Exemple :
Je lance la macro qui cherche "C" et le remplace par "D". "ABC" devient "ABD"
Puis elle cherche "D" et le remplace par "C"; "ABD" devient "ABC"
J'ai donc réussi à transformer ABC en ... ABC 😕
 
Re : Vba remplacer une valeur par une autre

Bonjour,

Quel est l'ordre de traitement, quand s'arrête-t-on ?

Exemple :
Je lance la macro qui cherche "C" et le remplace par "D". "ABC" devient "ABD"
Puis elle cherche "D" et le remplace par "C"; "ABD" devient "ABC"
J'ai donc réussi à transformer ABC en ... ABC 😕

C'est de l'illusionisme...Pendant que tu fais tourner la macro il te tire ton portefeuille.
 
Re : Vba remplacer une valeur par une autre

Bonjour à toutes et à tous,

Peut-être ainsi... ?

Code:
Option Explicit
Private Sub Worksheet_SelectionChange(ByVal c As Range)
    If c.Count > 1 Then Exit Sub
    If c <> "" And c = "C" Or c = "D" Then
        If c = "D" Then
            c = "C"
        Else
            c = "D"
        End If
    End If
End Sub

A bientôt 🙂
 
- 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

Réponses
7
Affichages
597
Réponses
3
Affichages
208
Retour