Bonjour,
J'ai ce bout de code qui fonctionne mais je voudrais aller plus loin en masquant des colonnes.
j'avais pensé à qqc comme cela : Columns(?? & ":XFD").Hidden = True
Mais comment lui de remplacer les ?? par le résultat de V + 4 colonnes
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14 Private Sub CBTNMove_Click() Dim V V = Application.VLookup(CBTNMove.Caption, Range("setup!SetupImportMois"), 2, 0) If IsError(V) Then Exit Sub Application.EnableEvents = False Application.Goto Reference:=Worksheets("MOIS-MAAND").Range(V & "1").Offset(, -1), Scroll:=True ????????? Application.EnableEvents = True End Sub
Merci pour l'aide ou la direction à suivre.
Partager