simplifier code par Boucle

pierrejean

XLDnaute Barbatruc

• 18 Juin 2016

• #2

Re : simplifier code par Boucle

bonjour chaelie

A tester:

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
ldeb = 13
coldeb = 12
   Rows("13:" & coldeb + [A33]).Hidden = False
   Rows(ldeb + [A33] & ":32").Hidden = True
   If [A33] > 20 Then Rows("13:32").Hidden = True
 End Sub

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 18 Juin 2016

• #3

Re : simplifier code par Boucle

Bonjour pierejean
merci pour la réponse rapide, mais ça n'a pas fonctionné, toutes les lignes sont masquées?
a+

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 18 Juin 2016

• #4

Re : simplifier code par Boucle

Bonjoue Chaelie, bonjour le forum,

Tu peux te passer d'une boucle. Essaie comme ça :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> "$A$33" Then Exit Sub
If Not IsNumeric(Target.Value) Then Exit Sub
If Target.Value < 0 Or Target.Value > 20 Then Exit Sub

Rows("13:" & Target.Value + 13).Hidden = False: If Target.Value = 20 Then Exit Sub
Rows(Target.Value + 13 & ":32").Hidden = True
End Sub

[Édition]
Bonjour PierreJean nos posts se sont croisés...

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 18 Juin 2016

• #5

Re : simplifier code par Boucle

Bonjour à tous

A tester :

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim x As Integer, Lig As Integer

If Target.Address = "$A$33" Then
For Lig = 13 To 32
        Cells(Lig, 1).Rows.Hidden = IIf(Lig < Target + 13, False, True)
      Next
End If
End Sub

Cordialement
Chris

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 18 Juin 2016

• #6

Re : simplifier code par Boucle

Bonjour a tous
merci pour les réponse mais ça n'a pas fonctionné correctement, ?
a+

 

Vote positif 0 Vote négatif

Chris401

XLDnaute Accro

• 18 Juin 2016

• #7

Re : simplifier code par Boucle

Re

Tu as 3 réponses qui vont dans le même sens mais qui "ne fonctionne pas correctement"
Peut-être qu'il nous manque une info que seul ton fichier pourrait nous indiquer ?

Cordialement
Chris

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 18 Juin 2016

• #8

Re : simplifier code par Boucle

Bonjour le fil, bonjour le forum,

Tu as raison Chaelie nos codes ne fonctionne que si l'on tape les valeurs de 0 à 20 à la suite mais dès que l'on tape directement une valeur intermédiaire, ça na fonctionne plus...

 

Vote positif 0 Vote négatif

chaelie2015

XLDnaute Accro

• 18 Juin 2016

• #9

Re : simplifier code par Boucle

Re
en Réalité la cellule A33 c'est une formule (=SOMMEPROD(($A$13:$A$32<>"")*1)) qui affiche un nombre de 0 a 20
?
a+

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 18 Juin 2016

• #10

Re : simplifier code par Boucle

Re,

Alors... Je laisse les spécialistes se dépatouiller avec.
Mais la prochaine fois pense à donner ce genre d'information dans ton premier post... Car l'événementielle adéquate n'est plus Change mais Calculate si je ne m'abuse...

 

Vote positif 0 Vote négatif

Papou-net

XLDnaute Barbatruc

• 18 Juin 2016

• #11

Re : simplifier code par Boucle

Bonjour à tous,

A ce que je sais, la modification de la valeur d'une cellule par sa formule ne déclenche pas l'événement Change.

Il faudrait envisager d'utiliser un autre événement mais sans autre précision, difficile à définir.

Cordialement.

Edit: il faudrait agir sur la cellule qui est à l'origine du calcul de la formule.

 

Dernière édition: 18 Juin 2016

Vote positif 0 Vote négatif

S

Si...

XLDnaute Barbatruc

• 18 Juin 2016

• #12

Re : simplifier code par Boucle

salut

Comme je l’ai compris et avec la même réflexion que Papou-net …

Si on cache, on ne peut plus toucher aux cellules correspondantes donc, à part les cellules affichées, c’est figé.

Pour passer en mode actif (toucher aux cellules intermédiaires comme le dit Robert , il faut le prévoir donc voir l’exemple joint avec un bouton bascule.

 

Pièces jointes

• Afficher Cacher lignes Si.xlsm

  19.9 KB · Affichages: 48

Vote positif 0 Vote négatif