MeF de cellule suite choix mot dans liste validation

Bonjour le forum,

J'ai une liste de validation dans une plage C6:H14 et dans cette liste j'ai entre autre AM et PM et pour ces deux abréviations j'aimerais que si on choisit AM que celui-ci se mette en gras et se situe en bas à droite de la cellule, et si on choisit PM il doit se mettre en gras et en haut à gauche de la cellule.

Et si on choisit autre chose que ces 2 abrévations la sélection doit se situer au centre de la cellule.

Est-ce possible ? D'avance merci pour votre aide.

Bonjour,

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim isect As Range, c As Range
    Set isect = Intersect(Target, Me.Range("C6:H14"))
    If Not isect Is Nothing Then
        For Each c In isect
            Select Case c.Value
                Case "AM"
                    c.HorizontalAlignment = xlRight
                    c.VerticalAlignment = xlBottom
                    c.Font.Bold = True
                Case "PM"
                    c.HorizontalAlignment = xlLeft
                    c.VerticalAlignment = xlTop
                    c.Font.Bold = True
                Case Else
                    c.HorizontalAlignment = xlCenter
                    c.VerticalAlignment = xlCenter
                    c.Font.Bold = False
            End Select
        Next c
    End If
End Sub

Cordialement.

Bonjour MFerrand,

Un grand grand merci pour ton aide, c'est vraiment super ce que tu as fait.

Bonsoir,

Je reviens vous, pour savoir comment mettre dans un module cette macro, car j'ai déjà un worksheet change dans ma feuille.

J'ai essayé (en changeant le titre bien sûr) mais cela me met plein d'erreurs !

Quelqu'un aurait-il une idée

Edit : Oooooooooooops, je viens de tout refaire dans un nouveau classeur et cela fonctionne impeccable, les deux worksheet change mis ensemble fonctionnent

Une procédure qui réagit à un évènement, il ne peut y en avoir qu'une par évènement...