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

Autres (RESOLU)Simplifier un code

Créer une discussion

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire

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
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
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
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.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

  • Résolu(e)
XL 2013 (RESOLU) Simplifier un code fonctionnel
Réponses
2
Affichages
541
chaelie2015
  • Résolu(e)
Microsoft 365 Code VBA pour vérifier si lignes masquées le sont bien
2
Réponses
16
Affichages
2 K
PatFr38
C
  • Résolu(e)
XL 2016 Remplir automatiquement un tableau d'après des conditions et des valeurs
Réponses
11
Affichages
2 K
ERIC S
  • Question Question
Autres Simplifier un code
Réponses
4
Affichages
614
chaelie2015
L
  • Question Question
XL 2016 Aide code VBA verrouillage de la structure d'un onglet
Réponses
2
Affichages
1 K
laurent67
L
  • 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
  • Question Question
Microsoft 365 changer la Couleur de fond d'une forme suivant un text
Réponses
6
Affichages
589
soan
S
  • Question Question
Autres simplifier un code (RESOLU)
Réponses
5
Affichages
480
chaelie2015
  • 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
617
chaelie2015
Y
  • Question Question
XL 2010 Problème de MACRO VBA
Réponses
5
Affichages
837
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
  • Question Question
Bug dans code que j'ai modifié
Réponses
14
Affichages
2 K
castor30
  • Question Question
RESOLU par eriiiic - Simulation double click au (Code de Robert)
Réponses
6
Affichages
3 K
castor30
R
  • Question Question
[RESOLU] Erreur d'éxecution 2147024809 (80070057): L'élément portant ce nom est introuvable
2
Réponses
17
Affichages
8 K
cathodique
J
  • Question Question
[RESOLU] Afficher/masquer colonne sur planning selon une date
Réponses
5
Affichages
994
Paf
  • Question Question
(RESOLU)Masquer ou afficher un bouton" formulaire" dans une feuille
Réponses
5
Affichages
1 K
chaelie2015
A
  • Question Question
XL 2013 [Resolu] VBA Code pour imprimer avec un bouton
Réponses
0
Affichages
1 K
Abominatutor
A
  • Question Question
Un bon livre pour amélioration code VBA adressé à mapomme et autres personnes trés compétentes
Réponses
0
Affichages
2 K
JBARBE
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…