Microsoft 365 Problème VBA lors de l'affichage de ligne masquée

C

Chris Linefield

XLDnaute Junior
Bonjour !

Je viens vers vous car je bloque sur un point.

Je vous explique ce que mon fichier excel fait :
- L'utilisateur clique sur une des cases à cocher dans la feuille "Demande initiale"
- Le code recherche la valeur de la cellule qui se trouve à gauche de la case à cocher dans la feuille "Liste" pour trouver une correspondance
- Si la valeur est trouvée, il copie l'ensemble des lignes qui correspond dans le tableau de la feuille "Analyse Impacts"
- Lorsque la feuille "Analyse Impacts" est modifiée, il actualise le VBA pour :
*Masquer toutes les lignes du tableau qui contient la valeur "Y" dans la colonne A
*Si dans la colonne "B" une cellule contient "Achats" et en colonne D elle contient "Impact sur coût Matière Première / Service ?" et que la colonne E contient "Oui", alors elle affiche les deux lignes en dessous.

Mon problème :
Si c'est deux lignes masquées en dessous, le code ne fait rien. Si c'est une ligne masquée en dessous et ensuite une ligne rempli, ça fonctionne. J'aimerais avoir une idée de comment faire pour que les deux lignes masquées puissent apparaitre... En sachant que j'ai coché deux cases pour voir si ça venait du fait que c'était la fin du tableau, mais le code ne s'exécute pas comme ça non plus. Que faire ?

Dans mon tableau excel, je ne travaille que sur la case à cocher "Achat" pour le moment. Vous pouvez me venir en aide ?
 

Pièces jointes

  • Xxxx_N-Olivier_Designation_ZCP_adjuvants_AUD22-12_Test_formulaire Excel.xlsm
    125 KB · Affichages: 8
Trier par date Trier par votes
vgendron

vgendron

XLDnaute Barbatruc
Hello

je crois me souvenir de cette appli..
je viens de regarder. quand les 3 conditions sur les colonnes B D et E sont réunies, les deux lignes justes en dessous sont bien affichées

masque les lignes 26 et 27 manuellement
et remet oui dans la colonne E ==> les deux lignes sont a nouveau affichées..
donc..je ne vois pas le pb.
 
Vote positif 0 Vote négatif
C

Chris Linefield

XLDnaute Junior
vgendron à dit:
Hello

je crois me souvenir de cette appli..
je viens de regarder. quand les 3 conditions sur les colonnes B D et E sont réunies, les deux lignes justes en dessous sont bien affichées

masque les lignes 26 et 27 manuellement
et remet oui dans la colonne E ==> les deux lignes sont a nouveau affichées..
donc..je ne vois pas le pb.
Cliquez pour agrandir...
En effet, tu m'avais déjà aidé sur ce sujet.

J'ai masqué manuellement les lignes 26 et 27 et lorsque je mets "oui" dans la colonne "E", rien ne s'affiche pour moi... J'ai testé sur deux pc, même résultat.

EDIT : Ok, je viens de copier coller moi même les lignes sur le tableau de la feuille "Analyse Impacts", dans ce cas ça fonctionne. Mais lorsque je passe par la case à cocher, ça ne marche pas. C'est le cas chez toi aussi ?
 
Vote positif 0 Vote négatif
C

Chris Linefield

XLDnaute Junior
vgendron à dit:
avec le fichier que tu as posté, je n'ai pas fait le moindre copier coller.. et ca fonctionne bien..
tu dois certainement faire quelque chose en plus (ou en moins) pour avoir ton pb..??
Cliquez pour agrandir...
Je confirme, ça ne fonctionne pas pour ma part.
Je coche la case "Achats" et je regarde dans la feuille "Analyse Impacts"
Ensuite j'indique la valeur non en E25 et rien ne se passe
Tu as une idée ?
 
Vote positif 0 Vote négatif
Phil69970

Phil69970

XLDnaute Barbatruc
Bonjour à tous

J'ai ceci comme message
1724914574604.png


@Chris Linefield

Essaye ceci :

Dans le module 6

Tout au début de module tu rajoutes :

Option Compare Text
Cliquez pour agrandir...

1724913729547.png


Toujours dans le module 6

Tu remplaces ceci
LCase((ws.Cells(i, 5).Value) = "oui")
Cliquez pour agrandir...

Par ceci
ws.Cells(i, 5).Value) = "oui"
Cliquez pour agrandir...

Ce qui te donnera ceci

VB: 
Public Sub UpdateHiddenRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
 
    Application.EnableEvents = False
    Application.ScreenUpdating = False
 
    On Error GoTo ErrorHandler
 
    Set ws = ThisWorkbook.Worksheets("Analyse Impacts")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
 
    For i = lastRow To 1 Step -1
        If ws.Cells(i, 1).Value = "Y" Then
            ws.Rows(i).Hidden = True
        Else
            ws.Rows(i).Hidden = False
        End If
    Next i
 
    For i = 1 To lastRow - 2
        If ws.Cells(i, 2).Value = "Achats" And _
           ws.Cells(i, 4).Value = "Impact sur coût Matière Première / Service ?" And _
           ws.Cells(i, 5).Value = "oui" Then
            ws.Rows(i + 1).Hidden = False
            ws.Rows(i + 2).Hidden = False
        End If
    Next i
 
ErrorHandler:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Ne rien changer d'autre !!!!

Merci de ton retour
 

Pièces jointes

  • Xxxx_N-Olivier_Designation_ZCP_adjuvants_AUD22-12_Test_formulaire Excel.xlsm
    118.7 KB · Affichages: 3
Vote positif 0 Vote négatif
C

Chris Linefield

XLDnaute Junior
Phil69970 à dit:
Bonjour à tous

J'ai ceci comme message
Regarde la pièce jointe 1202562

@Chris Linefield

Essaye ceci :

Dans le module 6

Tout au début de module tu rajoutes :



Regarde la pièce jointe 1202557

Toujours dans le module 6

Tu remplaces ceci


Par ceci


Ce qui te donnera ceci

VB: 
Public Sub UpdateHiddenRows()
    Dim ws As Worksheet
    Dim lastRow As Long
    Dim i As Long
 
    Application.EnableEvents = False
    Application.ScreenUpdating = False
 
    On Error GoTo ErrorHandler
 
    Set ws = ThisWorkbook.Worksheets("Analyse Impacts")
    lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row
 
    For i = lastRow To 1 Step -1
        If ws.Cells(i, 1).Value = "Y" Then
            ws.Rows(i).Hidden = True
        Else
            ws.Rows(i).Hidden = False
        End If
    Next i
 
    For i = 1 To lastRow - 2
        If ws.Cells(i, 2).Value = "Achats" And _
           ws.Cells(i, 4).Value = "Impact sur coût Matière Première / Service ?" And _
           ws.Cells(i, 5).Value = "oui" Then
            ws.Rows(i + 1).Hidden = False
            ws.Rows(i + 2).Hidden = False
        End If
    Next i
 
ErrorHandler:
    Application.EnableEvents = True
    Application.ScreenUpdating = True
End Sub

Ne rien changer d'autre !!!!

Merci de ton retour
Cliquez pour agrandir...
Toujours le même souci...
J'ai teste sur le poste de 3 de mes utilisateurs et j'ai la même problématique...
1724915694805.png
 
Vote positif 0 Vote négatif
C

Chris Linefield

XLDnaute Junior
Phil69970 à dit:
Re

Perso je n'ai plus d’erreur après ma modif du post # 7

@Chris Linefield

Mais je viens de voir ceci

Regarde la pièce jointe 1202567

Il serait surprenant que Vincent est fait un TS avec pour nom "Tableau16"

Rappel quand tu as un TS tu écris le code pour un TS

*TS = Tableau structuré
Cliquez pour agrandir...
En effet, il semblerait que j'ai une connexion :
1724917003686.png

Ca impacte le code ?

J'ai remarqué quelque chose par contre, lorsque je coche plusieurs cases, les lignes masquées vont à la fin du tableau, comme ci elles n'étaient pas présentes, ça n'aurait pas un impact ?

J'ai recrée également la même chose sur un fichier excel vierge, j'ai le même souci des lignes qui ne s'affichent pas malgré les conditions remplies.
 
Dernière édition:
Vote positif 0 Vote négatif
C

Chris Linefield

XLDnaute Junior
vgendron à dit:
Hello @Phil69970
effectivement, en général je renomme systématiquement (ou à 99%) les tableaux

@Chris Linefield
et à y regarder de plus près.. ce fichier n'est plus vraiment celui que je t'avais proposé dans l'autre post..
je ne sais pas quelles modifs tu as faites, mais tu aurais intérêt à repartir de l'ancien fichier qui fonctionnait bien.. me semble t il..?
Cliquez pour agrandir...
Le souci est que l'ancien fichier ne convenait pas et que je partais dans la mauvaise direction... D'après les utilisateurs.
Je vais voir ce que je peux faire alors, merci pour le temps que vous avez passé à m'aider en tout cas
 
Vote positif 0 Vote négatif
C

Chris Linefield

XLDnaute Junior
vgendron à dit:
dans ce cas.. plutot que tout refaire, il vaut mieux expliquer le plus clairement ce qui va, et ce qui ne va pas dans le précédent fichier, et exposer les modifications à apporter
Cliquez pour agrandir...
La mise à jour du fichier pourrait être complexe étant donné que l'ancienne version n'a pas été actualisée. Voici ce que je souhaite réaliser avec ce fichier :
  1. Fonctionnalité des cases à cocher :
    • Lorsqu'un utilisateur coche une case, le système recherche la valeur correspondante à gauche de cette case dans la feuille "Liste".
    • Si une correspondance est trouvée, les lignes associées sont copiées et collées dans le tableau de la feuille "Analyse Impacts".
    • À l'inverse, si une case est décochée, les lignes correspondantes sont retirées du tableau "Analyse Impacts".
  2. Copie des données :
    • Les lignes sont copiées sans code couleur, conformément aux souhaits des utilisateurs.
    • Il est crucial de ne pas supprimer les lignes 22 et 23 du tableau, car elles s'appliquent à l'ensemble des services.
  3. Masquage/démasquage des lignes :
    • Après la copie des lignes, un code est exécuté pour masquer ou démasquer les lignes contenant la valeur "Y" dans la colonne A.
    • La règle actuelle est la suivante : Si colonne B = "Achats" ET colonne D = "Impact sur coût Matière Première / Service ?" ET colonne E = "oui", alors les deux lignes suivantes doivent être affichées.
  4. Problème rencontré :
    • Actuellement, lorsque la condition est vraie, les deux lignes suivant la ligne correspondante ne s'affichent pas comme prévu.
    • Ce problème pourrait être lié à la version de Microsoft Office utilisée (Microsoft 365 Apps for entreprise).
J'espère que cette description est claire et précise. N'hésitez pas à me demander des éclaircissements si nécessaire.
 
Vote positif 0 Vote négatif
vgendron

vgendron

XLDnaute Barbatruc
re
on va le faire dans l'ordre
1) j'ai supprimé les cases à cocher: il suffit de cliquer dans la cellule pour qu'un X apparaisse ou disparaisse
==>quand l'item est coché, les lignes correspondantes de la feuille "Liste" sont copiées telles quelles dans la feuillle "Analyse impact"
==> quand l'item est coché, les lignes sont supprimées

a quoi servait le SA1 SA2...S22 que tu mets en colonne Z de la feuille Analyse impact?

pour l'instant.. aucune ligne n'est masquée ou affichée..

est ce que déjà.. ca correspond ?

Remarque: dans la feuile "Liste", la colonne "Masqué": tu as X ou Y... ne serait il pas plus logique et plus explicite de mettre un des deux couples "Yes / No, "Oui/Non"
 

Pièces jointes

  • Chris Linefield V0.xlsm
    124.1 KB · Affichages: 1
Dernière édition:
Vote positif 0 Vote négatif

Discussions similaires

C
  • Résolu(e)
Copier/Masquer des lignes de couleur pour alimenter un tableau
Réponses
9
Affichages
339
vgendron
vgendron
C
  • Question
XL 2016 Excel Macro permettant de masquer une ligne lorsque les cellules de 2 colonnes contigües sont vides
Réponses
11
Affichages
102
chris63
C
A
  • Résolu(e)
Microsoft 365 Insertion case à cocher
2
Réponses
18
Affichages
295
mapomme
mapomme
Nicolas JACQUIN
  • Question
XL 2021 Création et adaptation barre de progression
2 3
Réponses
43
Affichages
690
patricktoulon
patricktoulon
D
  • Question
Power Query query - calculer le taux de tva
Réponses
5
Affichages
166
JFL_XLD
J
Icefedor
  • Résolu(e)
XL 2021 Case à cocher afin d'insérer des lignes dans une autre feuille
Réponses
2
Affichages
587
Icefedor
Icefedor
I
  • Question
XL 2016 Dupliquer des colonnes sur plusieurs feuilles
Réponses
2
Affichages
121
AtTheOne
AtTheOne
W
  • Résolu(e)
XL 2016 Soucis Macro et Case a cocher
2
Réponses
16
Affichages
710
Wanou22
W
T
  • Résolu(e)
Microsoft 365 Chercher si dans une plage de cellule la valeur d'une autre cellule est présente
Réponses
4
Affichages
70
TomJoad
T
M
  • Question
Microsoft 365 Indice de révision de chaque ligne automatiquement
Réponses
2
Affichages
86
MLIZIN
M

Membres actuellement en ligne

15 membres et 137 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
313 866
Messages
2 103 082
Membres
108 521
dernier inscrit
manouba