Sujet Précédent Sujet Suivant

[VBA Excel] Ecrire dans une cellule

Résolu/Fermé
Et_Ben Messages postés 2 Date d'inscription mardi 31 mars 2015 Statut Membre Dernière intervention 31 mars 2015 - Modifié par Et_Ben le 31/03/2015 à 16:51
Et_Ben Messages postés 2 Date d'inscription mardi 31 mars 2015 Statut Membre Dernière intervention 31 mars 2015 - 31 mars 2015 à 17:31
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

Réponse 1 / 1
Gyrus Messages postés 3334 Date d'inscription samedi 20 juillet 2013 Statut Membre Dernière intervention 9 décembre 2016 523
31 mars 2015 à 17:26
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
Et_Ben Messages postés 2 Date d'inscription mardi 31 mars 2015 Statut Membre Dernière intervention 31 mars 2015
31 mars 2015 à 17:31
Nickel, ça marche exactement comme je voulais.
Merci beaucoup,
et bonne soiree
0

Discussions similaires

Excel VBA : Récupérer la valeur d'une cellule
la pioche -
mikebzh -

3 réponses
Excel si cellule contient texte alors...
caba_44 -
RENOU -

41 réponses
Excel : colorer une cellule sous condition d'une autre ?
KAKEPATHEL -
Pascal -

15 réponses
Formule Excel : "SI" une cellule contient un mot, alors ?
Tonio5933 -
Mike-31 -

9 réponses