Code macro

gourdin · 6 Juillet 2009

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 · 6 Juillet 2009

Re : Code macro

bonjour gourdin,

un essai :

Code:

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 · 6 Juillet 2009

Re : Code macro

mromain à dit:

bonjour gourdin,

un essai :

Code:

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

Code macro

gourdin

XLDnaute Impliqué

Pièces jointes

mromain

XLDnaute Barbatruc

gourdin

XLDnaute Impliqué

Discussions similaires

Code macro

gourdin

XLDnaute Impliqué

Pièces jointes

mromain

XLDnaute Barbatruc

gourdin

XLDnaute Impliqué

Discussions similaires

Privacy & Transparency

Privacy & Transparency