Autres Cellule écriture automatique

mythotem à dit:

Bonjour,
Dans mon exemple (voir PJ), je voudrais que dès que je rentre la 1ère lettre (M ou O), le nom (Marcel ou Olivier), s'écrive automatiquement.
Merci d'avance.
Denis

Cliquez pour agrandir...

chaelie2015 à dit:

Bonjour
Votre demande nécessite un peu de clarification. Pourriez-vous préciser si vous souhaitez que le nom (Marcel ou Olivier) s'écrive automatiquement dès que vous entrez la première lettre (M ou O) dans une cellule spécifique, ou si cela doit s'appliquer à toutes les cellules de la feuille ou à une plage prédéfinie ? Plus de détails sur la portée de cette automatisation seraient utiles pour vous fournir une réponse précise.
Merci

Cliquez pour agrandir...

mythotem à dit:

Oui, je n'ai pas été précis. Uniquement dans la colonne A.

Cliquez pour agrandir...

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim cell As Range
    If Not Intersect(Target, Me.Range("A:A")) Is Nothing Then
        Application.EnableEvents = False ' Désactiver temporairement les événements pour éviter une boucle infinie
        For Each cell In Target
            If UCase(cell.Value) = "M" Then
                cell.Value = "Marcel"
            ElseIf UCase(cell.Value) = "O" Then
                cell.Value = "Olivier"
            End If
        Next cell
        Application.EnableEvents = True ' Réactiver les événements
    End If
End Sub