Masquer des colonnes

Résolu/Fermé

JCB40 Messages postés 2926 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 4 octobre 2024 - 27 oct. 2018 à 11:41
JCB40 Messages postés 2926 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 4 octobre 2024 - 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

A voir également:

1 réponse

Réponse 1 / 1

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié le 27 oct. 2018 à 11:59

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

JCB40 Messages postés 2926 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 4 octobre 2024 462
Modifié le 27 oct. 2018 à 13:51

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

JCB40 Messages postés 2926 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 4 octobre 2024 462
27 oct. 2018 à 14:24

Dernier question
comment procéder pour que la macro se déclenche automatiquement au changement de valeur
de A1 Feuil1

cs_Le Pivert Messages postés 7904 Date d'inscription jeudi 13 septembre 2007 Statut Contributeur Dernière intervention 14 août 2024 729
Modifié le 27 oct. 2018 à 15:18

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

JCB40 Messages postés 2926 Date d'inscription lundi 2 juillet 2018 Statut Membre Dernière intervention 4 octobre 2024 462
27 oct. 2018 à 15:58

Merci
C'est ce qu'il me fallait.
Cordialement

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Excel VBA : Derniere colonne utilisée

Erreur d'exécution 13 Incompatibilité de type