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 :

lancer une macro par activation d'une cellule


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Septembre 2009
    Messages
    67
    Détails du profil
    Informations forums :
    Inscription : Septembre 2009
    Messages : 67
    Par défaut lancer une macro par activation d'une cellule
    Bonjour à tous

    Est-il-possible de lancer une macro en activant une cellulle de la colonne A , cellule qui selectionnera les données de sa ligne (par exemple si je selectionne la cellule A41 ,ma macro va prendre les données de la ligne 41)et les collera dans des cellulles designées dans feuill 2 J'ai écris un code qui ne marche pas trop

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    28
    Sub Macro15()
     
        Sheets("recap sinistres").Select
        For i = 2 To 100
        If Cells(i, 1).Activate Then
        Range("A" & i).Select
        Selection.Copy
        Sheets("document").Select
        Range("D1,c10").Select
        ActiveSheet.Paste
        Sheets("recap sinistres").Select
        Range("B" & i).Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("document").Select
        Range("B13").Select
        ActiveSheet.Paste
        Sheets("recap sinistres").Select
        Range("C" & i).Select
        Application.CutCopyMode = False
        Selection.Copy
        Sheets("document").Select
        Range("B15").Select
        ActiveSheet.Paste
        Exit For
        End If
        Next i
        End Sub

  2. #2
    Membre éclairé
    Homme Profil pro
    retraite
    Inscrit en
    Avril 2010
    Messages
    325
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 69
    Localisation : Espagne

    Informations professionnelles :
    Activité : retraite
    Secteur : Industrie

    Informations forums :
    Inscription : Avril 2010
    Messages : 325
    Par défaut
    Bonjour
    je pense qu'il faut mettre :
    plutot qu'une ,
    dans Range d1:c10
    cris

  3. #3
    Membre confirmé
    Inscrit en
    Septembre 2009
    Messages
    67
    Détails du profil
    Informations forums :
    Inscription : Septembre 2009
    Messages : 67
    Par défaut
    Bonjour Chris,

    non non la virgule est juste car je ne colle les infos que dans deux cellules et pas une plage de cellule

  4. #4
    Membre éprouvé
    Inscrit en
    Mai 2011
    Messages
    85
    Détails du profil
    Informations forums :
    Inscription : Mai 2011
    Messages : 85
    Par défaut
    Test un truc du genre:

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
     
    dim i as long
    dim rng as range
     
    If Target.Address Like "*:*" Then
        Exit Sub
    End If
     
    i=Mid(Target.Address, 4, Len(Target.Address) - 3)
     
    If Not Intersect(Target, Range("A:A")) Is Nothing Then
        rng=range(cells(i,1),cells(i,x)) 'x numéro de la dernière colonne de ton tableau
        rng.select
    End if
     
    End sub
    Edit: j'avais pas vu la 2ème partie de ton problème (coller dans une autre feuille).

Discussions similaires

  1. [XL-2010] Lancer une macro par clic sur une shape
    Par modus57 dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 22/03/2015, 12h14
  2. Lancement d'une macro par changement d'une cellule d'une autre feuille
    Par Jéro030691 dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 03/12/2013, 12h48
  3. [XL-2007] Lancer une macro par dévérouillage d'une feuille
    Par Exosporium dans le forum Macros et VBA Excel
    Réponses: 3
    Dernier message: 11/10/2012, 19h49
  4. [XL-2003] activer directement une macro en sortant d'une cellule
    Par tioch dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 28/07/2011, 12h44
  5. activation d'une macro après sasie d'une valeur sous excel
    Par pecofrou dans le forum Macros et VBA Excel
    Réponses: 5
    Dernier message: 06/12/2007, 21h52

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