Masquer des colonnes

Résolu

JCB40 Messages postés 3058 Date d'inscription Statut Membre Dernière intervention -
JCB40 Messages postés 3058 Date d'inscription Statut Membre Dernière intervention - 27 oct. 2018 à 15:58

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

Afficher la suite

1 réponse

Réponse 1 / 1
cs_Le Pivert Messages postés 8437 Statut Contributeur 730
Bonjour,

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
1
1. JCB40 Messages postés 3058 Date d'inscription Statut Membre Dernière intervention 479
  
  Bonjour
  
  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
  
  0
2. JCB40 Messages postés 3058 Date d'inscription Statut Membre Dernière intervention 479
  
  Dernier question
  comment procéder pour que la macro se déclenche automatiquement au changement de valeur
  de A1 Feuil1
  
  0
3. cs_Le Pivert Messages postés 8437 Statut Contributeur 730
  
  Se mettre sur la feuille concernée (Feuil1) faire Alt F11 au clavier et coller ce code:
  
  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 Sub
  
  0
4. JCB40 Messages postés 3058 Date d'inscription Statut Membre Dernière intervention 479
  
  Merci
  C'est ce qu'il me fallait.
  Cordialement
  
  0

Masquer des colonnes

1 réponse

Discussions similaires

Newsletters