[VBA Excel] Ecrire dans une cellule

Résolu/Fermé
Signaler
Messages postés
2
Date d'inscription
mardi 31 mars 2015
Statut
Membre
Dernière intervention
31 mars 2015
-
Messages postés
2
Date d'inscription
mardi 31 mars 2015
Statut
Membre
Dernière intervention
31 mars 2015
-
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

Messages postés
3334
Date d'inscription
samedi 20 juillet 2013
Statut
Membre
Dernière intervention
9 décembre 2016
543
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+
Messages postés
2
Date d'inscription
mardi 31 mars 2015
Statut
Membre
Dernière intervention
31 mars 2015

Nickel, ça marche exactement comme je voulais.
Merci beaucoup,
et bonne soiree