Fonction pour traduire le code d'une cellule

Bonjour à tous,

Je n'ai pas trouvé quelque chose de similaire à ce que j'aimerai faire en parcourant le forum, d'ou mon message.

J'ai une colonne dans un tableau qui contient des codes, un mélange de lettre et de chiffres, j'aimerai attribuer une fonction à un bouton qui traduirait la signification de ces codes dans cette même cellule.

Exemple :

si la celulle de la colonne contient les codes OA1 OA2 OA3 OA4 --> remplacer la celulle par " SOUDURE NUCLEAIRE"

si la celulle de la colonne contient les codes RAD1 RAD2 RAD3 RAD4 ---> remplacer la celulle par "RADIUM"

bien sur si la celulle est vide ou si elle ne contient aucun de ces codes (le titre de la colonne par exemple), ne rien faire.

Merci d'avance pour vos lumières

Bonjour

Code dans un Module

Sub Modifie()
Dim Cel As Range
For Each Cel In Range("C2", Range("C2").End(xlDown))
If Cel Like "OA1" Or Cel Like "OA2" Or Cel Like "OA3" Or Cel Like "OA4" Then
Cel.Value = "SOUDURE NUCLEAIRE"
Else
If Cel Like "RAD1" Or Cel Like "RAD2" Or Cel Like "RAD3" Or Cel Like "RAD4" Then
Cel.Value = "RADIUM"
End If
End If
Next Cel
End Sub

Cordialement

Bonjour,

Une autre proposition.

Cdlt.

Public Sub Replace_Text()
Dim n As Long, tbl, i As Long
    With ActiveSheet
        n = .Cells(.Rows.Count, 1).End(xlUp).Row
        tbl = .Cells(2, 1).Resize(n - 1)
        For i = 1 To UBound(tbl)
            Select Case tbl(i, 1)
                Case "OA1", "OA2", "OA3", "OA4": tbl(i, 1) = "SOUDURE NUCLEAIRE"
                Case "RAD1", "RAD2", "RAD3", "RAD4": tbl(i, 1) = "RADIUM"
            End Select
        Next i
        .Cells(2, 1).Resize(n - 1).Value = tbl
    End With
End Sub

Salut, merci pour ton aide, j'ai du éditer et rajouter des ElseIF car j'avais beaucoup + de catégorie de code à traduire.

Big thanks.