Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Autres (RESOLU)Simplifier un code

chaelie2015

XLDnaute Accro
Bonsoir forum
je souhaite simplifier le code (si c'est possible),il consiste a afficher et masquer des colonnes selon deux boutons.
dans la feuille "BdD_Projets", j'ai deux boutons "Rechercher" et "Retour"
1. quand je clique sur le bouton "Rechercher" alors:
- masquer les colonnes de "E:AP"
- afficher les colonnes de"BV:CB"
- aller vers la cellule (fusionnée) BX7.
- afficher le bouton"Retour"
- masquer le bouton "Rechercher"

2. et si je clique sur le bouton"Retour" alors :
- afficher les colonnes de "E:AP"
- masquer les colonnes de"BV:CB"
- aller vers la cellule (fusionnée) F3
- masquer ce bouton "Retour"
- et afficher le bouton"Rechercher"

NB: j'ai des colonnes qui sont masquées par défaut (AQ:BU) a ne pas toucher
et la feuille est protégée par mot de passe.
ci dessous les codes:

VB: 
Private Sub CommandButton1_Click() ' Bouton Rechercher
Range("BX7").Select
Columns("AQ:BU").EntireColumn.Hidden = True
Columns("E:AP").EntireColumn.Hidden = True
Columns("BV:CB").EntireColumn.Hidden = False

CommandButton2.Visible = True
CommandButton1.Visible = False

'Ajouter.Enabled = False
'Modifier.Enabled = False
'Suprimer.Enabled = False

End Sub

Private Sub CommandButton2_Click() 'Bonton retour
Range("F3").Select
Columns("AQ:BU").EntireColumn.Hidden = True
Columns("E:AP").EntireColumn.Hidden = False
Columns("BV:CB").EntireColumn.Hidden = True

CommandButton2.Visible = False
CommandButton1.Visible = True

'Ajouter.Enabled = True
'Modifier.Enabled = True
'Suprimer.Enabled = True

End Sub

Merci par avance
 
Trier par date Trier par votes

Phil69970

XLDnaute Barbatruc
Bonjour Chaelie, le forum

Au 1er jet je dirais ::

VB: 
Private Sub CommandButton1_Click() ' Bouton Rechercher
Range("BX7").Select
Columns("E:BU").EntireColumn.Hidden = True
Columns("BV:CB").EntireColumn.Hidden = False

CommandButton2.Visible = True
CommandButton1.Visible = False

End Sub

Private Sub CommandButton2_Click() 'Bonton retour
Range("F3").Select
Columns("AQ:CB").EntireColumn.Hidden = True
Columns("E:AP").EntireColumn.Hidden = False

CommandButton2.Visible = False
CommandButton1.Visible = True

End Sub

@Phil69970
 
Dernière édition:
Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro
Bonsoir Phil69970
merci pour la remarque.
j'ai simplifié ces deux codes par un seul bouton Toggle
VB: 
Private Sub ToggleButton1_Click()

Columns("AQ:BU").EntireColumn.Hidden = True
Columns("E:AP").EntireColumn.Hidden = IIf(ToggleButton1 = False, False, True)
Columns("BV:CB").EntireColumn.Hidden = IIf(ToggleButton1 = True, False, True)
ToggleButton1.Caption = IIf(ToggleButton1 = False, "Rechercher", "Retour")
ToggleButton1.BackColor = IIf(ToggleButton1 = False, &H80FF&, &H80FF80)

End Sub
mais il reste les focus des cellules ???
a+
 
Vote positif 0 Vote négatif

Phil69970

XLDnaute Barbatruc
Chaelie , le forum

Pour le focus tu peux l'avoir comme ça.

VB: 
Private Sub ToggleButton1_Click()

Columns("AQ:BU").EntireColumn.Hidden = True

Columns("E:AP").EntireColumn.Hidden = IIf(ToggleButton1 = False, False, True)
Columns("BV:CB").EntireColumn.Hidden = IIf(ToggleButton1 = True, False, True)
ToggleButton1.Caption = IIf(ToggleButton1 = False, "Rechercher", "Retour")
ToggleButton1.BackColor = IIf(ToggleButton1 = False, &H80FF&, &H80FF80)

If ToggleButton1.Caption = "Rechercher" Then Range("F3").Select Else Range("BX7").Select

End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

N
  • Question Question
Microsoft 365 appel des sous-routine
Réponses
3
Affichages
209
Dranreb
  • Résolu(e)
XL 2013 (RESOLU) Simplifier un code fonctionnel
Réponses
2
Affichages
503
chaelie2015
  • Résolu(e)
Microsoft 365 Code VBA pour vérifier si lignes masquées le sont bien
2
Réponses
16
Affichages
1 K
PatFr38
  • Question Question
Autres Simplifier un code
Réponses
4
Affichages
595
chaelie2015
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
1 K
ERIC S
L
  • Question Question
XL 2016 Aide code VBA verrouillage de la structure d'un onglet
Réponses
2
Affichages
1 K
laurent67
L
  • Question Question
Microsoft 365 simuler clic sur un bouton macro
Réponses
12
Affichages
1 K
Usine à gaz
  • Résolu(e)
XL 2016 Conserver la valeur d'une Chekbox
2
Réponses
20
Affichages
2 K
Eric4709
  • Résolu(e)
XL 2010 Cases à cocher non cachées - Pb de code VBA ou W7 64 bits ?
Réponses
12
Affichages
1 K
Orson83
T
  • Résolu(e)
XL 2010 Bouton afficher les lignes masquées
Réponses
1
Affichages
804
tchi456
T
R
  • Résolu(e)
XL 2010 Masquer quelques onglets uniquement d'un fichier
Réponses
4
Affichages
2 K
rosabelle
R
T
  • Question Question
Microsoft 365 changer la Couleur de fond d'une forme suivant un text
Réponses
6
Affichages
579
soan
S
  • Question Question
Autres simplifier un code (RESOLU)
Réponses
5
Affichages
473
chaelie2015
  • Question Question
XL 2019 Afficher ou masquer une forme selon l'état visibilité d'une feuille.
Réponses
4
Affichages
2 K
mapomme
  • Question Question
XL 2019 "Améliorer" un code VBA
Réponses
13
Affichages
2 K
bambi
  • Résolu(e)
Autres Simplifier un code
Réponses
2
Affichages
613
chaelie2015
T
  • Question Question
XL 2016 Problème de conditions
Réponses
1
Affichages
984
nat54
Y
  • Question Question
XL 2010 Problème de MACRO VBA
Réponses
5
Affichages
773
Younnssssss
Y
C
  • Question Question
besoin d'aide pour voir si je peux simplifier mon code sur des checkbox
Réponses
11
Affichages
1 K
mapomme
S
  • Question Question
XL 2013 Simplification de code
Réponses
5
Affichages
1 K
sr94
S
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…