Remplacer avec excel

Résolu
Basil58 Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   -
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
A voir également:

1 réponse

Réponse 1 / 1
Frenchie83 Messages postés 2240 Date d'inscription   Statut Membre Dernière intervention   338
 
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