Discussion :

[serar]

Bonjour,

Je dois masqer et afficher des colonne en fonction du variable
ex: i=3 il faut alors afficher les 3 premières colonnes et masquer le reste


J'utilise les fonctions suivantes

Code :

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

1
2
3
4
5
6
7
'Pour masquer
Columns("B:F").Select 
Selection.EntireColumn.Hidden = True 
 
'Pour afficher
Columns("B:F").Select 
Selection.EntireColumn.Hidden = False

Mais cette fonction est basé sur des indices de colonne A,B,C etc.

Comment puis je convertir la valeur 3 en C 4 en D etc... ou connaissez vous une autre fonction.

D'avance merci.

Cdlt.

[AlainTech]

Code :

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

1
2
3
4
5
' Pour masquer
Range(Columns(2), Columns(6)).Hidden = True
 
'Pour afficher
Range(Columns(2), Columns(6)).Hidden = False

[serar]

Merci

[wilfried_42]

Bonjour

le code ascii du A = 65 alor, chr(64 + col) te donnera la lettre pour les colonnes

mais tes colonnes peuvent aller jusqu'à IV

Code :

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

1
2
3
4
Function colonne(col as integer) as string
    If col > 26 Then colonne = Chr(64 + Int(col / 26)) Else colonne = ""
    collonne = colonne & Chr(64 + (colonne Mod 26))
end function

et dans la macro

Code :

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

Columns(colonnes(5) & ":" & colonne(7)).entirecolumn.hidden = false

Edit : je suis en retard moi

[serar]

En fait,'jai une erreur de compilation avec le code suivant:

Code :

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

Worksheets("Feuille1").Range(Columns(1), Columns(4)).Hidden = True

Merci

[AlainTech]

Même réponse que par MP:

Code :

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

Range(Worksheets("Feuille1").Columns(1), Worksheets("Feuille1").Columns(4)).Hidden = True

Edit: Testé, ça marche chez moi.

[Gorfael]

Salut wilfried_42
je pense qu'il y a une erreur de recopie

Code :

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

1
2
3
4
Function colonne(col as integer) as string
    If col > 26 Then colonne = Chr(64 + Int(col / 26)) Else colonne = ""
    collonne = colonne & Chr(64 + (col mod 26))    '(colonne Mod 26))
end function

J'en ai profité pour en faire une fonction feuille

Code :

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

1
2
3
4
5
6
7
8
Function colonne_1(col As Integer) As String
Application.Volatile
If col < 1 Or col > [A65000].End(xlDown).End(xlToRight).Column Then
    colonne_1 = "#VALEUR"
Else
    colonne_1 = IIf(col > 26, Chr(64 + Int(col / 26)), "") & Chr(64 + (col Mod 26))
End If
End Function

Je pense que ça devrait couvrir la plupart des cas de figures, mais ne connaissant pas les limites d'Excel 2007, je n'en suis pas sûr
A+

[AlainTech]

Je ne comprends toujours pas pourquoi on s'échine à vouloir convertir les numéros de colonnes alors qu'il est possible d'utiliser leur index.

[wilfried_42]

Bonjour Gorfael

Merci pour la correction, je suis endormi ce matin et je me suis melangé dans les col et colonne
je viens de voir, j'ai meme ecrit collonne au lieu de colonne

Merci encore

Cordialement