Discussion :

[rossemma]

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.

[a_diard]

Je propose ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
colinit = 4
colfin = 12
 
Range(Columns(colinit), Columns(colfin)).Select
 
    Selection.EntireColumn.Hidden = True

il n'est pas forcément nécessaire de sélectionner.

bonne journée.

[Igloobel]

Bonjour,

https://www.developpez.net/forums/d1...eurs-colonnes/

donc la méthode qui marche bien que j'ai testé aussi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Dim rRange
Set rRange = Range(Columns(3), Columns(4)) 
rRange.select

a toi de l'adapter

V=22
V+4 = 26

ceci dit je suis surprit que tu sélectionnes plus de 16000 colonnes

voici un code qui te permettra de connaitre la dernière colonne que tu utilises

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Sub test_tempo()
    NomF = "Feuil1"
    Der_Lign = ThisWorkbook.Worksheets(NomF).UsedRange.Rows.Count
    Der_Col = ThisWorkbook.Worksheets(NomF).UsedRange.Columns.Count
End Sub

A+