Remplacer un nombre par un mot

Bonjour,

J'ai quasiment trouvé ce dont j'avais besoin sur le forum, je vous en remercie, à un petit détail près...

Voici l'adresse du tuto : https://forum.excel-pratique.com/excel/remplacer-un-nombre-par-un-mot-t28079.html

Dans l'exemple donné lorsqu'on tape un chiffre dans une cellule de la 1ère colonne celle-ci renvoie une valeur d'une autre feuille.

Toujours dans l'exemple si je tape 1 puis "entrée" dans une cellule, la valeur qui apparaitra dans celle-ci sera "Ain"

Je veux faire la même chose mais mais au lieu que ce soit dans la colonne 1, je voudrais que cela soit dans des cellules spécifiées.

En fait il faudrait que je remplace le code "If Target.Column = 1 Then" par "If Target.Cellules spécifiées Then"

mais ça je ne sais pas faire, merci pour votre aide !

A savoir que les cellules spécifiées se trouvent sur la feuille1 en :

B4:B6;G4:G6;I4:I6;N4:N6;B10:B12;G10:G12;I10:I12;N10:N12;B16:B18;G16:G18;I16:I18;N16:N18;B22:B24;G22:G24;I22:I24;N22:N24;

B28:B30;G28:G30;I28:I30;N28:N30;B34:B36;G34:G36;I34:I36;N34:N36;B40:B42;G40:G42;I40:I42;N40:N42;B46:B48;G46:G48;I46:I48;N46:N48;

B52:B54;G52:G54;I52:I54;N52:N54;B58:B60;G58:G60;I58:I60;N58:N60

mais aussi au même endroit sur 29 autres feuilles identiques...

Un grand merci d'avance !

Bonjour,

Une proposition

A+

Bonjour Frangy,

J'étais très occupé sur d'autres projets et je n'avais pas remis le nez sur le site depuis mon post.

Un grand merci pour ton travail, c'est exactement ce qu'il me fallait !

Comment à tu fais ? il n'y a ni code ni macro ? je pensais en avoir besoin...

Cordialement

Bonjour,

C'est magique !

A moins qu'il y ait un code dans le module ThisWorkBook

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
Dim k
Dim MaPlage As Range, Cel As Range
Dim Liste_sheet As Worksheet
    If Target.Count > 1 Or Sh.Name = "Listes" Then Exit Sub
    Set Liste_sheet = Sheets("Listes")
    k = Array("B", "G", "I", "N")
    Set MaPlage = Sh.Cells(4, 2).Resize(3)
    For i = 4 To 58 Step 6
        For j = 0 To UBound(k)
            Set MaPlage = Application.Union(MaPlage, Sh.Cells(i, k(j)).Resize(3))
        Next j
    Next i
    If Not Application.Intersect(MaPlage, Target) Is Nothing Then
        Set Cel = Liste_sheet.Columns(1).Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole)
        If Not Cel Is Nothing Then
            Application.EnableEvents = False
            Target = Cel.Offset(0, 1)
            Application.EnableEvents = True
        Else
            MsgBox "Département avec le numéro " & Target & " non trouvé"
        End If
    End If
End Sub

A+