[XL-2007] lancer une macro par activation d'une cellule

[arctica]

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 :

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

[chris09300]

Bonjour
je pense qu'il faut mettre :
plutot qu'une ,
dans Range d1:c10
cris

[arctica]

Bonjour Chris,

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

[Fred.dz]

Test un truc du genre:

Code :

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).