Masquer des colonnes
Résolu/Fermé
JCB40
Messages postés
2878
Date d'inscription
lundi 2 juillet 2018
Statut
Membre
Dernière intervention
20 avril 2024
-
27 oct. 2018 à 11:41
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - 27 oct. 2018 à 15:58
JCB40 Messages postés 2878 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 20 avril 2024 - 27 oct. 2018 à 15:58
A voir également:
- Vba masquer colonne
- Masquer conversation whatsapp - Guide
- Déplacer une colonne excel - Guide
- Colonne word - Guide
- Additionner colonne excel - Guide
- Trier colonne excel - Guide
1 réponse
cs_Le Pivert
Messages postés
7903
Date d'inscription
jeudi 13 septembre 2007
Statut
Contributeur
Dernière intervention
11 mars 2024
728
Modifié le 27 oct. 2018 à 11:59
Modifié le 27 oct. 2018 à 11:59
Bonjour,
Comme ceci:
Sers toi de l'enregistreur de macro , c'est là pour ça
Comme ceci:
If Range("A1") + Range("B1") <= 0 Then
Sheets("Feuil2").Columns("F:J").EntireColumn.Hidden = True
Else
Sheets("Feuil2").Columns("F:J").EntireColumn.Hidden = False
End If
Sers toi de l'enregistreur de macro , c'est là pour ça
Modifié le 27 oct. 2018 à 13:51
Merci pour ta réponse j'ai fait l'essai est cela ne fonctionne pas.
Je ne suis pas hyper fort en VBA d’où ma demande.
C'est bon j'ai modifié le code
Option Explicit
Sub test()
If Range("A1") + Range("B1") <= 0 Then
Sheets("Feuil2").Columns("F:J").EntireColumn.Hidden = True
Else
Sheets("Feuil2").Columns("F:J").EntireColumn.Hidden = False
End If
End Sub
Crdlt
27 oct. 2018 à 14:24
comment procéder pour que la macro se déclenche automatiquement au changement de valeur
de A1 Feuil1
Modifié le 27 oct. 2018 à 15:18
Option Explicit Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not Intersect(Target, Range("A1")) Is Nothing Then If Range("A1") + Range("B1") <= 0 Then Sheets("Feuil2").Columns("F:J").EntireColumn.Hidden = True Else Sheets("Feuil2").Columns("F:J").EntireColumn.Hidden = False End If End If End Sub27 oct. 2018 à 15:58
C'est ce qu'il me fallait.
Cordialement