lancer une macro par activation d'une cellule

Version imprimable

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

17/11/2011, 16h20
chris09300

Bonjour
je pense qu'il faut mettre :
plutot qu'une ,
dans Range d1:c10
cris
17/11/2011, 16h26
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

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