XL 2016 Afficher et masquer les lignes en fonction des critères

Oneida

XLDnaute Impliqué

• 5 Juin 2023

• #2

Bonjour,
Oui, un fichier serait le bien venu...

 

Vote positif 0 Vote négatif

Y

YANNISE

XLDnaute Junior

• 5 Juin 2023

• #3

Bonjour Oneida,

Ops j'ai oublie de l'ajouter
merci bcp

 

Pièces jointes

• Exemple_Masquer_Aff.xlsm

  56.9 KB · Affichages: 8

Vote positif 0 Vote négatif

Oneida

XLDnaute Impliqué

• 5 Juin 2023

• #4

Re,
Avec ce que j'ai compris

Affichage de la plage en fonction saisie texte ko dans cellule

 

Pièces jointes

• Exemple_Masquer_Aff.xlsm

  62.4 KB · Affichages: 3

Vote positif 0 Vote négatif

Y

YANNISE

XLDnaute Junior

• 5 Juin 2023

• #5

Bonsoir Oneida,

merci pour la réponse, c'est bien ça seulement il manque

si toutes les cellules sont vides ou OK alors toutes les plages seront masquées

si j'ai deux cellules qui sont KO par exemple Q et D alors les il doit s'afficher deux plages


Merci bcp

 

Vote positif 0 Vote négatif

Y

YANNISE

XLDnaute Junior

• 5 Juin 2023

• #6

svp, j'ai un autre blocage au niveau de code :



dans le cas où je tape une autre date

 

Vote positif 0 Vote négatif

Oneida

XLDnaute Impliqué

• 6 Juin 2023

• #7

Bonjour,
Je regarde la chose

 

Vote positif 0 Vote négatif

Y

YANNISE

XLDnaute Junior

• 6 Juin 2023

• #8

Bonjour @Oneida,

je pense qu'il faut faire des conditions ;

Exemple : si une valeur ou plusieurs de "D26:G26" = "KO" alors afficher les plages relatives aux valeurs sur "D25:G25"

Merci bcp.

 

Vote positif 0 Vote négatif

Oneida

XLDnaute Impliqué

• 6 Juin 2023

• #9

Re,
Ben oui!
Je suppose(itoire) que la plage est a masquer si cellule devient ok ou vous le faites a la mano

 

Vote positif 0 Vote négatif

Y

YANNISE

XLDnaute Junior

• 6 Juin 2023

• #10

oui tu peux m'aider a le faire svp

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Juin 2023

• #11

Bonjour YANNISE, Oneida,

Vous ne dites pas ce que vous voulez faire avec la macro Worksheet_Change.

Si vous voulez juste la modifier utilisez :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim P As Range, i
Set P = [30:37,39:46,48:55,57:64]
Application.ScreenUpdating = False
P.EntireRow.Hidden = True 'masque tout
For i = 1 To 4
    If LCase(Cells(26, i + 3)) = "ko" Then P.Areas(i).EntireRow.Hidden = False
Next
End Sub

A+

 

Pièces jointes

• Exemple_Masquer_Aff.xlsm

  60.6 KB · Affichages: 7

Vote positif 0 Vote négatif

Y

YANNISE

XLDnaute Junior

• 6 Juin 2023

• #12

Bonjour @job75, le fil le forum

merci @job75 c'est parfait et plus dynamic, seulement pour les macros déjà impliquer sur la feuil1 dans la macro Worksheet_Change

je veux garder l'ancien code
si la valeur de la cellule C26 change alors call Importer_New
pour la macro Transfert_2 ca sera mieux de l'exécuter a chaque changement des valeurs "D26:E26:F26:G26"
pourriez-vous l'adapter avec votre code svp

l'ancien code ci-après

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Address = "$G$26" And Range("G26") <> "" Then
    Call Transfert_2
  ElseIf Target.Address = "$C$26" Then
    Importer_New
  Else
    Exit Sub
  End If
Debug.Print mymodule
End Sub

merci bcp

 

Dernière édition: 6 Juin 2023

Vote positif 0 Vote négatif

Y

YANNISE

XLDnaute Junior

• 6 Juin 2023

• #13

@job75 pourriez-vous svp me porter aide

je vous remercie vivement

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 6 Juin 2023

• #14

Ceci fait ce que vous demandez :

VB:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim P As Range, i
Application.EnableEvents = False
If Target.Address = "$C$26" Then
    Importer_New
ElseIf Not Intersect(Target, [D26:G26]) Is Nothing Then
    Transfert_2
End If
Application.EnableEvents = True
Application.ScreenUpdating = False
Set P = [30:37,39:46,48:55,57:64]
P.EntireRow.Hidden = True 'masque tout
For i = 1 To 4
    If LCase(Cells(26, i + 3)) = "ko" Then P.Areas(i).EntireRow.Hidden = False
Next
End Sub

Mais à mon avis vos 2 macros sont à revoir.

 

Vote positif 0 Vote négatif

Solution

Y

YANNISE

XLDnaute Junior

• 6 Juin 2023

• #15

Effectivement par ce que la macro de transfert fait le contrôle pour les cellules "D26:E26:F26:G26"

c'est pour cela que je l'ai associe la première fois seulement à la cellule G26

vous avez peut-être d'autres remarques

 

Vote positif 0 Vote négatif