Masquer des lignes automatiquement

ca bug tout pareil

Bonjour,

Chez moi aucun soucis. Merci de m'indiquer la manipulation réalisée. Je vous remets le fichier avec la modification réalisée.

Cdlt,

Bah je sais pas...

Avec ton dernier fichier tout fonctionne très bien

Merci beaucoup

Je pense (non je sais - désolée par avance) que je vais être pénible...

Je crois comprendre que tu fais une sorte de recherche de la "mission" entre les deux feuilles ?

Dans ma feuil3 en réalité n'apparait pas la mission j'ai juste oui/non/je sais pas

Cela a une incidence ? Je redoute fort que oui

Bonjour,

Bien sûr, c'est ce que je me répète à vous faire comprendre depuis le début. Qu'est ce qui fait le lien entre la mission et la valeur hormis la cellule ? Je ne peux pas rechercher "non" car il peut apparaître plusieurs fois dans ta feuille. Une périodicité ? Un autre ID unique ? Diviser le numéro de ligne dont la valeur à changé par 4 et le multiplier par 10 et y ajouter 1 ?

Pour le coup à vous de me dire.

Cdlt,

Bonjour …

Une autre proposition avec un doubleclic mais en incluant la plage dans un tableau (nommé ici BD)

Dim B As Boolean ‘ici pour un effet bascule
Private Sub Worksheet_BeforeDoubleClick(ByVal R As Range, Cancel As Boolean)
  B = Not B ‘si 0 (False) passe à 1 (True) et réciproquement
  [BD].AutoFilter ' afficher tout puis ...
  If R.Address = [BD].Item(0, 9).Address Then
    If B Then
      [BD].AutoFilter 9, Criteria1:="="
      [BD].SpecialCells(4).EntireRow.Hidden = 1 'masquer les vides
      [BD].SpecialCells(2).EntireRow.Hidden = 0 'afficher les autres
    End If
  End If
End Sub

Nota : il suffit de copier ce tableau dans la feuille (du classeur concerné ) voulue en le corrigeant (titres ainsi que les contenus et le N° de la colonne des réponses (ici 9).

Bien sûr, c'est ce que je me répète à vous faire comprendre depuis le début. Qu'est ce qui fait le lien entre la mission et la valeur hormis la cellule ? Je ne peux pas rechercher "non" car il peut apparaître plusieurs fois dans ta feuille. Une périodicité ? Un autre ID unique ? Diviser le numéro de ligne dont la valeur à changé par 4 et le multiplier par 10 et y ajouter 1 ?

Oui désolée, c'est moi qui n'ai rien compris...

Il n'y a que la cellule qui fait le lien.

Une autre proposition avec un doubleclic mais en incluant la plage dans un tableau (nommé ici BD)

Justement je voulais éviter ce genre de manip'

Merci pour le retour.

Bonjour à tous,

En farfouillant à droite à gauche sur le net et les divers forums, j'ai trouvé quelque chose d'intéressant que j'ai adapté et qui fonctionne bien :

Private Sub Worksheet_Calculate()
Application.ScreenUpdating = False
Range("i2:i50").EntireRow.Hidden = False

If Range("I1").Value = "non" Then Range("i2:i10").EntireRow.Hidden = True
If Range("I11").Value = "non" Then Range("i12:i20").EntireRow.Hidden = True
If Range("I21").Value = "non" Then Range("i22:i30").EntireRow.Hidden = True
End Sub
       

Le lien où j'ai trouvé le code :

https://forum.pcastuces.com/sujet.asp?f=23&s=20717

Merci à tous pour votre temps, votre implication et votre aide