Cacher colonnes

[Xor]

Bonjour forum,

j´ai juste besoin en fonction d´une variable X de cacher des colonnes.

X= 1 cacher colonnes de Q a AW6
X= 2 cacher colonne de AG6 a AW6

Quelqu´un peu m´aider

Merci d avance

XOR

 

[Creepy]

Hello,

euhhhh je comprends pas !

Tu veux masquer les colonnes de Q à AW & de AG à AW ou les cellules de la colonnes Q + AW6 et toutes les cellules de AG6 à AW6 ?

Parce que pour masquer les colonnes y'a pas besoin des chiffres !! ?? !! :huh:

++

Creepy

 

[G.David]

sub cache()
if x=1 then
columns('q:aw').entirecolumn.hidden=true
elseif x=2 then
columns('ag:aw').entirecolumn.hidden=true
columns('q:af').entirecolumn.hidden=false
else
columns('q:aw').entirecolumn.hidden=false
endif
end sub
colle ceci dans un moduleCordialement
G.David

 

[xor]

je souhaite masquer les colonnes de Q à AW et de AG à AW en fonction de la variable x

pardon pour la confusion des numeros...

 

[G.David]

Ha merde j'ai oublie de te dire il faudra recupere ta valeur X soit en passant la variable par une autre procedure soit en rajoutant
x=range('Xn').value X étant une lettre et n Un nombre XN donnant la cellule ou se trouveras ta valeur x
Salut

 

[andré]

Eh bien, mon cher G.David, voilà que l'on vous surprend avec des écarts de language (lol).

Ândré.

 

[xor]

Sub cache()
Dim X as variant
X = ThisWorkbook.Worksheets('big').Range(F17).Value
If X = 1 Then
Columns('q:aw').EntireColumn.Hidden = True
ElseIf X = 2 Then
Columns('ag:aw').EntireColumn.Hidden = True
Columns('q:af').EntireColumn.Hidden = False
Else
Columns('q:aw').EntireColumn.Hidden = False
End If
End Sub

il me met erreur 1004
Bizarre

Meci en tout ca pour ton aide

 

[G.David]

Oups !
Diantre ! Palsembleu
aurais du m'exclamer La garde meurt mais ne se rends pas plus glorieux certe mais denote un certain manque de spotaneite qui nuit quelque peu a l'intensit' dramatique du sujet ! Non?
Cordialement
G.David :sick:

 

[Xor]

Re le bonjour

Je viens de mettre en marche le programme
Je l´ai finalement mise dans une fueille evenement et non ds un module...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim X As Variant
X = Range('F17').Value
Target = X
If Target = 1 Then
Columns('q:aw').EntireColumn.Hidden = True
ElseIf Target = 2 Then
Columns('ag:aw').EntireColumn.Hidden = True
Columns('q:af').EntireColumn.Hidden = False
Else
Columns('q:aw').EntireColumn.Hidden = False
End If
End Sub

Je rencontre juste un gros problème de ramage lors de la desaparition des colonnes et encore plus long lors de l´apparition..

Merci pour tes conseils

Xor

 

[Antoine]

c ok j ai resolu le pb

merci pour ton aide gRAIG dAVID ;-)
D´une vivacité a toute épreuve

 

[G.David]

Marrant
chez moi le resultat est quasi instantané meme en procedure evenmentielle . Ce n'est pas la procedure qui est en cause mais peut etre la global de ton programme
si tu n'as que deux valeur pour X passe de variant a Byte
desactive le rafraichissement d l'ecran pendant les calculs
(application.screenuptating=false) tu le reactives juste pour la fin en mettant la valeur a true
autrement je ne vois pas
Cordialement
G.David