Saisie conditionnelle

Bonjour

j'aimerais savoir comment faire pour que lorsque je tape par exemple le chiffre 1 dans une cellule que se soit le mot lundi qui apparaisse?

merci par avance

Bonsoir

tu peux essayer d'ajouter le code VBA suivant à la feuille de ton classeur

(exemple pour la feuille 1 du classeur)

Private Sub Worksheet_Change(ByVal Target As Range)
Dim X0 As Byte
Dim Y0 As Integer

X0 = Target.Column 'numero de colonne de la cellule active
Y0 = Target.Row    'numero de ligne de la cellule active

If X0 = 3 And Y0 > 1 And Y0 < 10 Then 'conditions : être colonne 3 entre les lignes 2 et 9
    Select Case Target.Value
        Case 1: Target.Value = "Lundi"
        Case 2: Target.Value = "Mardi"

    End Select

End If

End Sub

A adapter à tes besoins

Cordialement

Édition par Mytå, ajout des balises CODE pour facilité la lecture.

Salut le forum

Juste pour faire plus simple, plage à adapter et condition aussi. (Pas besoin de déclarer des variables)

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then
    With Target
      Select Case .Value
        Case 1: .Value = "Lundi"
        Case 2: .Value = "Mardi"
        Case 3: .Value = "Mercredi"
      End Select
    End With
  End If
End Sub

Demeb, regarde la ficelle Utilisation de la méthode Intersect.

Mytå