Alignement de texte avec condition

Bonjour à tous me revoilà !

Un petit soucis que je n'ai pas pu résoudre en cherchant sur le forum :

Peut-on aligner du texte dans une cellule suivant un critère précis ?

ex:

j'ai une cellule avec liste déroulante (validation) M;A;N;MN......

Je valide le M J'aimerai que cela s'aligne automatiquement à gauche ou bien je valide le N et cela s'aligne auto à droite dans la cellule.

Peu importe la couleur du texte, la couleur de la cellule...

Puisque la MFC ne gère pas cela y a-t-il moyen en VB.

Merci

Bonjour

Piste à suivre ?

Super ça marche !

Merci

....Mais j'ai du mal à décrypter le vb pour l'appliquer à plusieurs cellules par ex

un tableau de B2 à G10

Bonsoir

Remplaces la macro actuelle par celle-ci

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Cel As Range

  If Not Intersect(Range("B2:G10"), Target) Is Nothing And Target.Count = 1 Then
    Set Cel = Sheets("Liste").Columns(1).Find(what:=Target, LookIn:=xlValues, lookat:=xlWhole)
    If Not Cel Is Nothing Then
      Application.EnableEvents = False
      Cel.Copy
      With Target
        .PasteSpecial Paste:=xlPasteFormats
        .Select
      End With
      Application.EnableEvents = True
    End If
  End If
End Sub

merci Banzai64 !

De plus avec une réponse rapide.

Des "petits détails" qui facilitent l'utilisation et la compréhension de mes tableaux.