Remplacer valeur case avec un Select Case

[mroma]

Bjjr à tous,

En cette fin de journée, je suis coincé sur mon programme VBA.. et débutant 😉

Je souhaite inscire les valeurs de toutes les cellules de ma colonne M par une correspondance selon un select case avec la colonne G, je m'explique

(Exemples)
Si "312-Process" dans la colonne G, inscrire"PROCESS DESIGN" dans la colonne M
Si "346-Electrical Design" dans la colonne G, ,inscrire "ELECTRICAL DESIGN" dans la colonne M
....

J'ai commencé le code mais je tourne en rond.... Help help 😉

  For Each Cell In Worksheets("Document").Range("G2:G" & Worksheets("Document").Range("C65536").End(xlUp).Row)
    Select Case Cell
    Case Is = "312-Process"
        ActiveCell.FormulaR1C1 = "PROCESS DESIGN"
       
    Case Is = "346-Electrical Design"
        ActiveCell.FormulaR1C1 = "ELECTRICAL DESIGN")
   
    End Select
  Next Cell

Merci de votre aide !!

 

[DoubleZero]

Re : Remplacer valeur case avec un Select Case

Bonjour, le Fil, le Forum,

... ça m’embête un peu de devoir créer une nouvelle feuille pour les paramètres et correspondance (sauf s'il est possible de la cacher ?)...

L'onglet listant les correspondances peut être masqué sans nuire au fonctionnement de la macro.

A bientôt 🙂