1. #1
    Nouveau Candidat au Club
    Homme Profil pro
    Ingénieur intégration
    Inscrit en
    septembre 2017
    Messages
    1
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 24
    Localisation : France, Nord (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Ingénieur intégration

    Informations forums :
    Inscription : septembre 2017
    Messages : 1
    Points : 1
    Points
    1

    Par défaut Worksheet_change détection "couper"

    Bonjour le Forum,

    J'ai un fichier excel contenant un onglet principal, et d'autres onglets en miroir.
    Je souhaiterais detecter automatiquement lorsque l'utilisateur coupe une ligne ou une colonne. L'objectif serait que le programme me retourne l'adresse de la ligne colonne coupée afin que je puisse reporter la modification sur les autres onglets. De même ensuite lorsqu'il insère les cellules coupées.
    Si quelqu'un à une idée je suis preneur car j'ai essayé différentes méthodes sans succés.

    Je vous laisse mon code pour vous donner une piste mais il n'est pas du tout correct

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
     
    Private sub Worksheet_change
    Dim myControls As CommandBarControls
        Set myControls = Application.CommandBars("Row").FindControl(ID:=21)
        If myControls.Count > 0 Then
            Select Case LCase$(Split(Application.CommandBars("Row").FindControl(ID:=21).List(1), " ")(0))
                Case "paste", "drag"
                    MsgBox ("Ligne coupée") & Target.Address
                    Exit Sub
            End Select
        End If
    end sub
    Merci pour votre aide,
    Matlucky

  2. #2
    Expert confirmé
    Homme Profil pro
    Inscrit en
    août 2010
    Messages
    2 762
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : août 2010
    Messages : 2 762
    Points : 5 710
    Points
    5 710

    Par défaut

    Bonjour,

    Il n'est d'autant pas bon que la procédure événementielle Change passe l'argument Target que tu as supprimé !
    Je suis sur iPad donc je ne peux pas tester mais il faudrait voir sur l'événement Change() si l'argument Target à comme adresse toute la colonne ou toute la ligne, ce serait déjà un début de piste !

  3. #3
    Expert éminent

    Profil pro
    Conseil, Formation, Développement - Indépendant
    Inscrit en
    février 2010
    Messages
    4 463
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations professionnelles :
    Activité : Conseil, Formation, Développement - Indépendant

    Informations forums :
    Inscription : février 2010
    Messages : 4 463
    Points : 8 174
    Points
    8 174

    Par défaut

    Bonjour

    La duplication d'onglets conduit toujours à une usine à gaz... souvent pour de mauvaises raisons
    Chris

    Quand un homme a faim, mieux vaut lui apprendre à pêcher que de lui donner un poisson.
    Confucius

    ----------------------------------------------------------------------------------------------
    En cas de résolution, n'hésitez pas cliquer sur c'est toujours apprécié...

  4. #4
    Membre chevronné
    Profil pro
    Inscrit en
    février 2007
    Messages
    1 157
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2007
    Messages : 1 157
    Points : 1 791
    Points
    1 791

    Par défaut

    Bonjour,

    Couper ?
    Le Change n'aura lieu que lors du collé et c'est cette ligne ou colonne que tu récupèreras dans Target.
    Quand à la ligne d'origine si tu ne les as pas numérotées ou mémorisées (et encore, qu'il n'y ait pas de doublon) je ne vois pas comment tu pourrais la retrouver.
    On s'approche de la prophétie de Chris78 ;-)
    eric

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