Vba remplacer une valeur par une autre

[arrazki]

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

 

[Iznogood1]

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

 

[MK.]

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.

 

[arrazki]

Re : Vba remplacer une valeur par une autre

je ne comprend rien a ce que tu me dis!!

 

[arrazki]

Re : Vba remplacer une valeur par une autre

je veux remplacer C par D lorsque j'ai C et replacer D par C lorsque j'ai D et cela sur la cellule sélectionnée

 

[DoubleZero]

Re : Vba remplacer une valeur par une autre

Bonjour à toutes et à tous,

Peut-être ainsi... ?

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