XL 2010 Afficher des lignes en cliquant sur un bouton

[guegan56]

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

 

[Jacky67]

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

Bonjour,

Une proposition avec ce code en PJ

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

 

[sylvanu]

Bonsoir Guegan, Jacky,
Un essai en PJ. J'ai rajouté un bouton Masque pour l'exercice. Avec :

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

 

[guegan56]

Bonjour,

Une proposition avec ce code en PJ

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

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

 

[Jacky67]

RE..
[Clic] =une plage nommée==> garde en mémoire le dernier clique à l'enregistrement

**Hello sylvanu

 

[guegan56]

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

 

[Jacky67]

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

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

Sub attribuerNom()
ActiveWorkbook.Names.Add Name:="Clic", RefersTo:="=1"
End Sub

 

[sylvanu]

Avez vous tester la PJ du post #3 ? Répond elle au besoin ?

 

[guegan56]

super cela fonctionne merci