VBA maxi débutant
Résolu/Fermé
A voir également:
- VBA maxi débutant
- Maxi compte - Télécharger - Comptabilité & Facturation
- Logiciel de programmation pour débutant - Guide
- Vba récupérer valeur cellule ✓ - Forum VB / VBA
- Mkdir vba ✓ - Forum VB / VBA
- Excel compter cellule couleur sans vba - Guide
5 réponses
Bonjour,
voici ce que tu demandes :
'Si D5 est vide
if d5 = "" then
'cacher tes colonnes D et E
range(columns(4),columns(5)).select
Selection.EntireColumn.Hidden = True
else
'si d5 n'est pas vide
range(columns(4),columns(5)).select
Selection.EntireColumn.Hidden = True
end if
un conseil : copie ce code et appuie sur F8, ca te permettra de comprendre et au lieu de mettre d5, tu peux faire ca
'i ligne
' j ligne
i=5
j=4
cells(i,j).select
voici ce que tu demandes :
'Si D5 est vide
if d5 = "" then
'cacher tes colonnes D et E
range(columns(4),columns(5)).select
Selection.EntireColumn.Hidden = True
else
'si d5 n'est pas vide
range(columns(4),columns(5)).select
Selection.EntireColumn.Hidden = True
end if
un conseil : copie ce code et appuie sur F8, ca te permettra de comprendre et au lieu de mettre d5, tu peux faire ca
'i ligne
' j ligne
i=5
j=4
cells(i,j).select
OK mais il semble qu'il y ait un pb car quand je tate du F8 pour vérifier, que D5 soit vide ou contienne une valeur, cela me cache les 2 colonnes quand même...
jjsteing
Messages postés
1670
Date d'inscription
vendredi 11 mai 2007
Statut
Contributeur
Dernière intervention
21 mai 2012
181
28 juil. 2009 à 14:02
28 juil. 2009 à 14:02
bonjour, je me permet de mettre mon grain de sel.. ;)
if d5 = "" then => if range("D5) ="" then... ou if cells(5,4)="" then.... serait mieux ;)
if d5 = "" then => if range("D5) ="" then... ou if cells(5,4)="" then.... serait mieux ;)
jjsteing
Messages postés
1670
Date d'inscription
vendredi 11 mai 2007
Statut
Contributeur
Dernière intervention
21 mai 2012
181
28 juil. 2009 à 14:04
28 juil. 2009 à 14:04
De plus..
'si d5 n'est pas vide
range(columns(4),columns(5)).select
Selection.EntireColumn.Hidden = false ' pour les faire réapparaitre ;)
'si d5 n'est pas vide
range(columns(4),columns(5)).select
Selection.EntireColumn.Hidden = false ' pour les faire réapparaitre ;)
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question