Discussion :

[Beehappy]

Bonjour les développeurs,
Je fais mes premiers petits pas en VBA pour résoudre mes problèmes EXCEL !

Je voudrais développer un code pour saisie automatique!

Je m'explique : par exemple j'ai un petit tableau avec les cellules A1, B1 et C1, si je saisis le mot "Pomme" dans A1, automatiquement EXCEL affiche rouge dans les cellules B1 et C1.

Merciiiiiii !!!!

[BENNASR]

et pourquoi VBA si c'est pas pour apprentissage
il y a les règles de mise en forme conditionnelles MFC

[Beehappy]

C'est pour apprentissage !

[BENNASR]

et vous avez opté pour worksheet_change ou un code dans l'autre discussion ??

[Beehappy]

Worksheet change

[BENNASR]

à tester

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Count > 1 Then Exit Sub
        If Not Intersect(Target, Columns("A:C")) Is Nothing Then
            If Target = UCase("pomme") Or Target = LCase("POMME") Then Range("B" & Target.Row & ":C" & Target.Row).Interior.Color = vbRed
        End If
End Sub

[Pierre Fauconnier]

Salut.

Tant qu'à apprendre, essaie d'éviter les Exit Sub:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect(Target, Columns("A")) Is Nothing And Target.Count = 1 Then
      If Target.Value = "Pas de réunion" Then Target(1, 2).Resize(1, 2).Value = "Pas de réunion"
  End If
End Sub