Remplacer avec excel

Résolu
Basil58 Messages postés 1 Statut Membre -  
Frenchie83 Messages postés 2254 Statut Membre -
Je voudrais que lorsque j'écris en F20 un numéro qui est inclus entre F3 et f13, ce numéro soit changé par celui de F18. Exemple si j'écris 6224 en F20 je veux que le 6224 qui se trouve entre F3 et F13 se change automatiquement par 6686 en F20. Ca devrais ressembler a =si f20 est égale a....... le remplacer par F18

Je peux envoyer mon fichier
Merci

1 réponse

  1.
    Frenchie83 Messages postés 2254 Statut Membre 339
     
    Bonjour
    A copier dans le module de la feuille 
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("F20")) Is Nothing Then
        ZoneTest = "F3:F13"
        For Each Item In Range(ZoneTest)
            If Target.Value = Item.Value Then
                Target.Value = [F18]
                DoEvents
                Exit Sub
            End If
        Next
    End If
End Sub

    Cdlt
    0