Je ne vois plus les formules

Bonjour

Il y a deux ans j'ai contacté Excel pratique.

Je voulais quand je mets un nombre (code) un texte apparaît.

J'aimerais voir les formules pour pouvoir programmer d'autres codes. Je ne les vois pas

J'inclus une feuille

Merci

Bonjour,

il s'agit d'une macro accessible par Alt+F11

Option Explicit

Dim cell

Private Sub Worksheet_Change(ByVal Target As Range)

    If Intersect(Target, Range("A1:A" & Range("A1").End(xlDown).Row)) Is Nothing Then

        Set cell = Range("A1:A" & Range("A1").End(xlDown).Row).Find(Target, lookat:=xlWhole)
        If Not cell Is Nothing Then
            Target.Offset(0, 1) = cell.Offset(0, 1).Value
        End If

    End If

End Sub

Mais comment je fais pour programmer

ex ; code 4568 pour inscrire automatiquement le mot bureau

Merci

Tu tapes le code à la file (sans ligne blanche) dans la colonne A et sa désignation en colonne B

Ensuite, si tu tapes le code queelquepart, sa désignation se mettra à sa droite (si les macros sont activées)

C'est ok merci