Modifier le contenu d'une cellule en la quittant

Bonjour à tous

Dans mon tableau, le contenu de toutes les cellules de la toute la colonne "I" est : soit "4T" ou "5T". Le "T" est en Majuscule.

Comment peut-on procéder pour que lorsque j’inscris dans une cellule seulement le chiffre "4" ou "5" de cette colonne, en quittant cette cellule, son contenue sera modifié en soit "4T" ou "5T".

En résumé, si j’inscris le chiffre "4", la cellule sera modifiée en "4T ".

Idem pour le chiffre "5", si j’inscris le chiffre "5", la cellule sera modifiée en "5T ".

Merci d’avance de votre soutien.

Bonjour

Code à placer dans le module de la feuille concernée

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Not Intersect(Columns("I"), Target) Is Nothing Then
    If Target = 4 Or Target = 5 Then Target = Target & "T"
  End If
End Sub

Bonjour Bonzai64,

Un seul mot, Magnifique.

Le code fonctionne comme je le souhaiter.

Grand MERCI.