Remplacer avec excel

Résolu/Fermé

Basil58 Messages postés 1 Date d'inscription vendredi 12 juin 2015 Statut Membre Dernière intervention 13 juin 2015 - 13 juin 2015 à 02:21
Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 - 13 juin 2015 à 07:36

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:

Remplacer avec excel
Liste déroulante excel - Guide
Remplacer disque dur par ssd - Guide
Formule excel - Guide
Remplacer word - Guide
Si et excel - Guide

1 réponse

Réponse 1 / 1

Frenchie83 Messages postés 2240 Date d'inscription lundi 6 mai 2013 Statut Membre Dernière intervention 11 août 2023 337
13 juin 2015 à 07:36

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

Newsletters