Code macro

[gourdin]

Bonjour,

Macro évenementielle qui, en cliquant sur cellules qui se suivent dans une colonne (A1, A2 etc..), selectionne des cellules d'une colonne (autre page) espacées de 50 lignes (A50, A100 etc.) ?

Voir exemple

Merci

 

[mromain]

Re : Code macro

bonjour gourdin,


un essai :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Row < 12 Then Exit Sub
ThisWorkbook.Sheets("Feuil2").Select
ThisWorkbook.Sheets("Feuil2").Range("A" & CStr((Target.Row - 12) * 50 + 4)).Select
End Sub

a+

 

[gourdin]

Re : Code macro

bonjour gourdin,


un essai :

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column <> 2 Then Exit Sub
If Target.Row < 12 Then Exit Sub
ThisWorkbook.Sheets("Feuil2").Select
ThisWorkbook.Sheets("Feuil2").Range("A" & CStr((Target.Row - 12) * 50 + 4)).Select
End Sub

a+

PARFAIT
Merci