Fonction Columns("S:Y")

[dureiken]

Bonjour,

j'aimerai utiliser ce code qui me sert à partir d'un bouton à afficher/cacher des cellules :

Private Sub Planning_Click()

    Columns("S:Y").Select 'Rentrer ici les colonnes du tableau si elles sont différentes
    If Selection.EntireColumn.Hidden = False Then 'Test pour savoir si les colonnes sont cachées ou non
    Selection.EntireColumn.Hidden = True 'Si elles sont affichées on les cache
    Planning.BackColor = &HFF& 'Bouton en couleur rouge
    Planning.Value = False 'On desactive le bouton
    
    ElseIf Selection.EntireColumn.Hidden = True Then 'Test pour savoir si les colonnes sont cachées ou non
    Selection.EntireColumn.Hidden = False 'Si elles sont cachées on les affiche
    Planning.BackColor = &HFF00& 'Bouton en couleur verte
    Planning.Value = True 'On active le bouton
    
    End If
End Sub

Mais avec des références de colonnes prises dans une cellule, qui peut donc varier.

Par exemple S est en H5 et Y en I5, mais ces références sont en chiffres et non en lettres.

Merci d'avance

 

[pierrejean]

Re : Fonction Columns("S:Y")

bonjour dureiken

essaies de t'inspirer de ceci

Sub test()
Columns(letcol(1) & ":" & letcol(2)).Select
End Sub

Function letcol(num)
letcol = Replace(Cells(1, num).Address(0, 0), "1", "")
End Function

 

[dureiken]

Re : Fonction Columns("S:Y")

Super ça marche, merci beaucoup 🙂