[VBA Excel] Ecrire dans une cellule

Résolu
Et_Ben Messages postés 2 Statut Membre -  
Et_Ben Messages postés 2 Statut Membre -
Bonjour,

Je souhaiterais qu'une macro puisse écrire automatiquement quelque chose dans une cellule si on modifie une cellule d'une plage de cellule de la même ligne :
Si je modifie A2, B2, C2 ou D2 la macro écrira automatiquement TOTO dans la cellule H2. Cela devrait aussi fonctionner avec les autres lignes du classeur. Si je modifie A3, j'aurai TOTO en H3, pour B6, TOTO en H6...
Pouvez vous m'aider ?
Merci

1 réponse

  1. Gyrus Messages postés 3360 Statut Membre 526
     
    Bonjour,

    Tu peux placer la procédure suivante dans le module de la feuille concernée
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Not Application.Intersect(Target, Range("A" & Target.Row).Resize(, 4)) Is Nothing Then
    Range("H" & Target.Row) = "TOTO"
    End If
    End Sub


    A+
    0
    1. Et_Ben Messages postés 2 Statut Membre
       
      Nickel, ça marche exactement comme je voulais.
      Merci beaucoup,
      et bonne soiree
      0