Masquer des colonnes
Résolu
JCB40
Messages postés
3013
Date d'inscription
Statut
Membre
Dernière intervention
-
JCB40 Messages postés 3013 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3013 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je suis à la recherche d'un code vba pour masquer et récupérer ces mêmes colonnes je m'explique:
Si A1+B1>0 feuil 1 masquer colonnes F G H I J feuil 2
Si A1+B1<=0 feuil 1 afficher les colonnes F G H I J feuil 2
Merci pour votre aide
Crdlt
Je suis à la recherche d'un code vba pour masquer et récupérer ces mêmes colonnes je m'explique:
Si A1+B1>0 feuil 1 masquer colonnes F G H I J feuil 2
Si A1+B1<=0 feuil 1 afficher les colonnes F G H I J feuil 2
Merci pour votre aide
Crdlt
A voir également:
- Vba masquer colonne
- Déplacer colonne excel - Guide
- Trier colonne excel - Guide
- Colonne word - Guide
- Formule somme excel colonne - Guide
- Masquer conversation whatsapp - Guide
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
comment procéder pour que la macro se déclenche automatiquement au changement de valeur
de A1 Feuil1
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 SubC'est ce qu'il me fallait.
Cordialement