IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Adapter un Worksheet_Change [XL-2013]


Sujet :

Macros et VBA Excel

  1. #1
    Candidat au Club
    Homme Profil pro
    Dessinateur
    Inscrit en
    Avril 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Gard (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Dessinateur

    Informations forums :
    Inscription : Avril 2017
    Messages : 2
    Par défaut Adapter un Worksheet_Change
    Bonjour,

    Jusque là j'utilisais le code suivant pour faire apparaitre la date modification d'une cellule, actuellement la modification d'une cellule des colonnes D ou E fait apparaitre un message dans la colonne G mais maintenant j'ai besoin que la modification d'une cellule de la colonne D apparaisse dans la colonne G et une modification dans la colonne E apparaisse en H (ex: modification de E10 indique en H10 "E10 modifiée le 06/04/17):

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("D7:E500")) Is Nothing Or Target.Count > 1 Then: Exit Sub
    Range("G" & Target.Row) = Target.Address(False, False) & " modifiée le " & Format(Date, "dd/mm/yy")
    End Sub
    Quelqu'un aurait une idée à me proposer?

    Merci

  2. #2
    Expert confirmé

    Homme Profil pro
    Curieux
    Inscrit en
    Juillet 2012
    Messages
    5 169
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Curieux
    Secteur : Arts - Culture

    Informations forums :
    Inscription : Juillet 2012
    Messages : 5 169
    Billets dans le blog
    5
    Par défaut
    Bonjour,

    en modifiant simplement ça
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Range("G" & Target.Row)
    par
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    Cells(Target.Row, Target.Column + 3)
    ça évite de tout réécrire, puisqu'en gros, tu souhaites que ça écrive "trois colonnes plus loin" qu'on soit en D ou E

  3. #3
    Candidat au Club
    Homme Profil pro
    Dessinateur
    Inscrit en
    Avril 2017
    Messages
    2
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Gard (Languedoc Roussillon)

    Informations professionnelles :
    Activité : Dessinateur

    Informations forums :
    Inscription : Avril 2017
    Messages : 2
    Par défaut
    C'est parfait!

    Merci beaucoup

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. avis aux experts-Quels sont les logiciels les plus adaptés??
    Par chouchouappc dans le forum Décisions SGBD
    Réponses: 46
    Dernier message: 20/07/2004, 21h26
  2. [OpenGL] comment adapter a CB
    Par netah25 dans le forum C++Builder
    Réponses: 2
    Dernier message: 24/06/2004, 13h42
  3. : Adapter la taille d'une grille
    Par SteelBox dans le forum C++Builder
    Réponses: 3
    Dernier message: 31/07/2003, 07h08
  4. Langage le mieux adapté pour application client serveur ?
    Par guenus dans le forum Débats sur le développement - Le Best Of
    Réponses: 4
    Dernier message: 17/06/2002, 15h46

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo