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

XL 2010 Afficher des lignes en cliquant sur un bouton

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
G

guegan56

XLDnaute Nouveau
Bonjour à tous,

Je souhaite, en cliquant sur un unique bouton :
- afficher la ligne 20 à 22 au premier clic
- afficher la ligne 24 à 25 au seocnd clic
- etc.

J'arrive pour le premier clic mais pas pour les suivants.

Pourrirez vous m'aider ?
Merci beaucoup
 
Trier par date Trier par votes
Bonjour,

Une proposition avec ce code en PJ
VB: 
Private Sub CommandButton1_Click()
    Dim Leclic&
    '- afficher la ligne 20 à 22 au premier clic
    '- afficher la ligne 24 à 25 au second clic
    '- afficher la ligne 30 à 35 au troisième clic
    Leclic = [Clic]
    Rows("20:200").Hidden = True
    Select Case [Clic]
    Case 1
        Rows("20:22").Hidden = False
        Me.CommandButton1.Caption = "Clic 1"
    Case 2
        Rows("24:25").Hidden = False
        Me.CommandButton1.Caption = "Clic 2"
    Case 3
        Rows("30:35").Hidden = False
        Me.CommandButton1.Caption = "Clic 3"
    Case Else
        Rows("20:200").Hidden = True
        Me.CommandButton1.Caption = "Clique"
        Leclic = 0
    End Select
    Leclic = Leclic + 1
    ActiveWorkbook.Names.Add Name:="Clic", RefersTo:=Leclic
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
Bonsoir Guegan, Jacky,
Un essai en PJ. J'ai rajouté un bouton Masque pour l'exercice. Avec :
VB: 
Public IndexM As Integer
Sub Demasque()
    Dim x As Integer
    x = 3 * IndexM + 21
    Range("A" & x & ":A" & x + 1).EntireRow.Hidden = False
    IndexM = IndexM + 1
End Sub
Sub Masque()
    Range("20:100").EntireRow.Hidden = True
    IndexM = 0
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif

Bonjour Jacky,

J'ai copié ton code en faisant deux trois modif, cependant il m'indique un beug sur : Leclic = [Clic]

Peux-tu m'aider ? Merci


Private Sub Ajout_Justif_Click()
Dim Leclic&
Leclic = [Clic]
Rows("55:200").Hidden = True
Select Case [Clic]
Case 1
Rows("55:56").Hidden = False
Me.Ajout_Justif.Caption = "Clic 1"
Case 2
Rows("57:58").Hidden = False
Me.Ajout_Justif.Caption = "Clic 2"
Case 3
Rows("59:60").Hidden = False
Me.Ajout_Justif.Caption = "Clic 3"
Case 4
Rows("61:62").Hidden = False
Me.Ajout_Justif.Caption = "Clic 4"
Case 5
Rows("63:64").Hidden = False
Me.Ajout_Justif.Caption = "Clic 5"
Case 6
Rows("65:66").Hidden = False
Me.Ajout_Justif.Caption = "Clic 6"
Case 7
Rows("65:66").Hidden = False
Me.Ajout_Justif.Caption = "Clic 7"
Case Else
Rows("55:200").Hidden = True
Me.Ajout_Justif.Caption = "Clique"
Leclic = 0
End Select
Leclic = Leclic + 1
ActiveWorkbook.Names.Add Name:="Clic", RefersTo:=Leclic
End Sub
 
Vote positif 0 Vote négatif
guegan56 à dit:
Bonjour Jacky,
Désolé, mais je n'arrive pas à ouvrir ton fichier (blocage avec mon pc pro)
Est ce que tu peux me dire ce que tu as changé dans le code ?
Merci
Cliquez pour agrandir...
Re..
Ton code est bon, Il suffira de définir un nom ayant comme nom "Clic" et lui attribuer la valeur ===> =1
ou Lancer cette Macro qui fait le boulot
VB: 
Sub attribuerNom()
ActiveWorkbook.Names.Add Name:="Clic", RefersTo:="=1"
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

C
  • Résolu(e)
Microsoft 365 Affichage d'une recap de consommation sur 12 mois ne commençant pas en janvier (en tête de colonne: 2024/2025 par exemple)
Réponses
9
Affichages
311
Carcaixell
C
A
  • Résolu(e)
Microsoft 365 Simplification de code
2 3
Réponses
32
Affichages
1 K
Rheeem
R
K
  • Question Question
XL 2016 Modification dans userform et sheet
Réponses
13
Affichages
271
Valtrase
S
  • Résolu(e)
Autres Problème avec sélection d'une cellule puis glisser
Réponses
2
Affichages
146
SPARKLETOF
S
M
  • Question Question
Microsoft 365 automatiser un bouton "efface cellule"
Réponses
5
Affichages
155
matlatarte
M
  • Résolu(e)
XL 2019 Création d'un second bouton qui ne fonctionne pas
Réponses
2
Affichages
120
Titof06
P
  • Résolu(e)
XL 2021 Requête API - VBA Excel - Parse JSON
Réponses
2
Affichages
348
picc
P
R
  • Question Question
XL pour MAC Ne pas afficher valeurs nulles dans un graphique
Réponses
5
Affichages
185
rtlv17
R
Y
  • Question Question
XL 2019 Masquer automatiquement des lignes selon la valeur d'une cellule ?
Réponses
2
Affichages
222
Yogean
Y
  • Question Question
XL 2019 Rechercher un libellé approximatif dans un tableau et afficher une valeur
2
Réponses
29
Affichages
1 K
Dudu2
A
  • Résolu(e)
XL 2016 Afficher des lignes qui contiennent un mot spécifique.
Réponses
4
Affichages
243
Al1_44
A
U
  • Question Question
Autres [RESOLU] Afficher des lignes avec un clic droit à partir d'une cellule
Réponses
8
Affichages
406
un internaute
U
A
  • Question Question
Microsoft 365 Affichage , recherche et extraire des données .
Réponses
1
Affichages
116
vgendron
G
  • Question Question
XL 2019 [Résolu] Somme de plusieurs lignes entre deux dates variables en colonnes
Réponses
5
Affichages
209
Jacky67
R
  • Question Question
Microsoft 365 Afficher des images insérées dans le classeur sur un UserForm
Réponses
4
Affichages
266
Redba13
R
N
  • Question Question
Microsoft 365 afficher/masquer des lignes en fonction de la valeur d'une cellule qui aura été renseignée par une autre feuille (via un copier/collé automatique)
Réponses
5
Affichages
760
Nel'
N
M
  • Question Question
XL 2021 macro VBA
Réponses
4
Affichages
334
ManuEven
M
M
  • Résolu(e)
XL 2021 VBA Ajouter ligne tableau + autres cellules hors tableau
Réponses
3
Affichages
122
sylvanu
I
  • Question Question
XL pour MAC Xlsm - Fichier permettant de gérer un cross d'établissement scolaire
Réponses
8
Affichages
528
iruri
I
  • Question Question
Microsoft 365 Effacer (et non supprimer) une ligne suivant texte.
Réponses
6
Affichages
180
DAVID-44-
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…