Masquer ligne complète

Ouin, ben j'abandonne se projet. Sa semble trop compliqué.

Au travail je peux voir le processus fait par votre code, mais à la maison je voie rien.

Re,

Je ne vois pas pourquoi tu veux abandonner. Le tout est de faire quelques tests.

Quelle est ta version d'excel chez toi ?

Amicalement

Dan

Si ton pb est terminé, merci de mettre RESOLU sur le fil. explications ici --> https://forum.excel-pratique.com/viewtopic.php?t=13

Merci de ta participation.

Désolé du temps de réponse, mais je croie que vous êtes en France et moi au Québec.

Présentement avec ton code donné Nad-Dan, je voie rien marché. Si je fais visualiser le code et fait exécuté, mon erreur mentionné plus haut s'affiche, mais rien de plus comme info. Je ne peux donc pas te dire te dire a quel instruction que sa s'arrête.

J'ai tenté de copié-coller le code de readi dans ma page frappeur, mais la meme erreur s'affiche que le code de Nad-Dan

Voici se que je recois quand je fais exécuté ou pese sur enter.

https://www.excel-pratique.com/~files/doc2/Sans_titre.PNG

Bonjour,

Pourrais-tu nous montrer le code mis en rouge derrière le message d'erreur ?

Merci

re,

Wild j'ai eu exactement le même problème que toi sans trop savoir d'où cela vient.

En fait lorsque tu changes une valeur dans ces colonnes, il supprime le code VBA et mets une adresse URL à la place avec une extension pdf.

Je n'ai pas eu facile l'enlever mais j'y suis arrivé.

Cela provient d'un bug dans ton fichier.

Si ton fichier original est celui que tu as posté ici je veux bien te le reposter de manière à ce que tu n'aies plus ce pb.

Dan

C'est sensiblement le même fichier oui, mais fait avec office 2007.

Voici le dernier que j'ai utilisé, je l'es mis en .xltm en espérant que sa marchera pour vous si vous avez pas le office 2007.

Pour la question de readi, et bien c'est l'adresse de la page web lorsque j'exporte mon onglet en PDF. Je me demande bien comment il sait sa d'ailleurs.

re,

Comme je t'ai dit avant, je n'ai pas excel 2007.

Donc pas possible de contrôler si tu ne le mets pas en .XLS

Dan

Ok.

petit note que je viens de penser. présentement dans ma colonne, je demande que mes lignes soit masqué si s<20. Mais le 20 change à chaque semaine avec +5 chaque fois.

Donc vendredi sa sera 25, l'autre vendredi 30

Voici un autre fichier en .xls sinon tu peux pt m'expliquer via MP que je le fasse sur mon fichier direct.

re,

petit note que je viens de penser. présentement dans ma colonne, je demande que mes lignes soit masqué si s<20. Mais le 20 change à chaque semaine avec +5 chaque fois.

???? ok mais je le prends où ce critère là ? Il faut partir de la valeur d'une cellule ou de quelque chose comme je t'avais déjà demandé avant

Dan

On pourrait dire, si S<note!B26 et dans cette case je mettrais le chiffre que je veux que la colonne S respect.

viens me voir sur MSN si sa te dit lauzoneric@hotmail.com

re,

Déso mais je n'utilise pas MSN.

Dans ton fichier suis ces indications :

• clique droite sur les onglets "frappeur" et "lanceur"
• supprime le code dans ces deux feuilles
• dans VBA, supprime tous les modules (ils sont vides !) sauf le 1, 2, 7 et 11
• clique droite sur l'onglet "note" et place le code ci-après

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Macro Dan pour Wild pour XL Pratique le 10/06/09
'http://www.excel-pratique.com/forum/viewtopic.php?t=11810
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B26")) Is Nothing Then
If IsEmpty(Target) Then Call montre: End
ref = Target
Call cache
End If
End Sub

- Vas ensuite dans le module 7 et mets y ces 2 codes

Public ref As Byte
Sub cache()
'Macro Dan pour Wild pour XL Pratique le 10/06/09
'http://www.excel-pratique.com/forum/viewtopic.php?t=11810
Application.ScreenUpdating = False
With Sheets("lanceur")
Call montre
    For i = 5 To .Range("J65536").End(xlUp).Row
        If .Range("J" & i) > ref Then .Range("J" & i).EntireRow.Hidden = True
    Next
End With
With Sheets("frappeur")
Call montre
    For i = 5 To .Range("S65536").End(xlUp).Row
        If .Range("S" & i) > ref Then .Range("S" & i).EntireRow.Hidden = True
    Next
End With
End Sub

Sub montre()
'Macro Dan pour Wild pour XL Pratique le 10/06/09
'http://www.excel-pratique.com/forum/viewtopic.php?t=11810
Sheets("lanceur").Rows.Hidden = False
Sheets("frappeur").Rows.Hidden = False
End Sub

- Il te reste à mettre ta valeur en B26 dans la feuille Note

Amicalement

Dan

Bon, un pas en avant. 8)

Aucune erreur lors de l'exécution. Mais deux problème malgré tout. Quand j'exécute la macro cache, tout sauf un joueur disparait dans frappeur et c'est le 1er en haut. Et dans l'ongle lanceur rien bouge.

re,

hum suis je bête..

Remplace la sub cache par celle ci-après :

Sub cache()
'Macro Dan pour Wild pour XL PRtaique le 10/06/09
'http://www.excel-pratique.com/forum/viewtopic.php?t=11810
Application.ScreenUpdating = False
Call montre
With Sheets("lanceur")
    For i = 5 To .Range("J65536").End(xlUp).Row
        If .Range("J" & i) > ref Then .Range("J" & i).EntireRow.Hidden = True
    Next
End With
With Sheets("frappeur")
    For i = 10 To .Range("S65536").End(xlUp).Row
        If .Range("S" & i) > ref Then .Range("S" & i).EntireRow.Hidden = True
    Next
End With
End Sub

Amicalement

Dan

Excellent, un autre pas en avant. 8)

Maintenant, encore la dans les deux onglet, j'ai remarqué que si je change la donné de la cellule de note!B26, c'est le contraire qui se passe. Si je marque 20, tout ce qui est en dessous du 20 reste et le reste disparait.

Finalement arrivé à bout, j'ai changé deux > pour deux < et le tour est joué Un gros merci à Nad-Dan.

re,

je demande que mes lignes soit masqué si s<20

Ok. Je ne l'avais pas compris comme cela.

Si tout est OK, n'oublie pas de mettre RESOLU sur ton fil comme je te le demandais plus haut.

A bientôt et merci de ta participation

Dan

Bon, je dois enlever la mention résolu, puisqu'il a un changement.

Voici la raison, le code recus marche super bien. Mais la personne pour qui je fais le projet la en quelque sorte refusé.

Il veut pas que les deux onglets soit affecté par la cellule note!B26

Il voudrait que l'onglet frappeur soit affecté par un chiffre et que l'onglet lanceur par un autre.

Exemple

Dans l'onglet frappeur, sa demeure encore si S<note!B26, masqué les lignes complètes.

Pour l'onglet lanceur, faudrait avoir si J<note!B27, masquer les lignes complètes.

re,

OK. Suis ces indications :

1. Dans la feuille NOTE (clique droite sur l'onglet puis choisir "visualiser le code"), remplace le code par celui ci-après :

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
'Macro Dan pour Wild pour XL Pratique le 12/06/09
'http://www.excel-pratique.com/forum/viewtopic.php?t=11810
If Target.Count > 1 Then Exit Sub
If Not Intersect(Target, Range("B26")) Is Nothing Then
If IsEmpty(Target) Then Sheets("frappeur").Rows.Hidden = False: End
ref = Target
Call cacheFrappeur
End If
If Not Intersect(Target, Range("B27")) Is Nothing Then
If IsEmpty(Target) Then Sheets("lanceur").Rows.Hidden = False: End
ref = Target
Call cachelanceur
End If
End Sub

2. Dans le module, supprime les macros CACHE et MONTRE, et remplace les par les deux suivantes :

Public ref As Byte
Sub cachelanceur()
'Macro Dan pour Wild pour XL Pratique le 12/06/09
'http://www.excel-pratique.com/forum/viewtopic.php?t=11810
Application.ScreenUpdating = False
With Sheets("lanceur")
.Rows.Hidden = False
    For i = 5 To .Range("J65536").End(xlUp).Row
        If .Range("J" & i) < ref Then .Range("J" & i).EntireRow.Hidden = True
    Next
End With
End Sub

Sub cacheFrappeur()
'Macro Dan pour Wild pour XL Pratique le 12/06/09
'http://www.excel-pratique.com/forum/viewtopic.php?t=11810
Application.ScreenUpdating = False
With Sheets("frappeur")
.Rows.Hidden = False
    For i = 10 To .Range("S65536").End(xlUp).Row
        If .Range("S" & i) < ref Then .Range("S" & i).EntireRow.Hidden = True
    Next
End With
End Sub

Pour remonter toutes les lignes il te suffit de remettre les vider les cellules B26 et B27 dans la feuille NOTE.

Amicalement

Dan