Microsoft 365 Afficher ou masquer formes si une cellule est vide

[pat66]

Bonjour le forum,

j'ai besoin de votre expertise et vous remercie de bien vouloir m'aider, voici mon problème :

Lorsque j'efface le contenu de R16, les formes restent toujours affichées, sauriez vous dire pourquoi, sachant que la première partie de la macro fonctionne bien ?

merci beaucoup

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Count > 1 Then Exit Sub
    If Target.Address = "$M$11" Then
    Application.EnableEvents = False
        If Target + Worksheets("Feuil1").[V9] < [D93] Then ' A adapter
          If MsgBox("Compte tenu de votre âge """ & Worksheets("Feuil1").[V9] & " ans"", la durée envisagée est inférieure à la durée de cotisations nécessaire pour atteindre l'âge de la retraite fixé à """ & ActiveSheet.[D93] & " ans"". " & "Souhaitez vous appliquer la durée minimale ? ", 292, "ESPOIRS") = 6 Then ' (" & [E94] & " ans)
          [M11] = [E94]
            Else
                Application.Undo
            End If
        End If
        Application.EnableEvents = True
    End If

'c'est cette partie qui ne fonctionne pas :

If ActiveSheet.Range("R16") = "" Then
 ActiveSheet.Shapes("Rectangle : coins arrondis 29").Visible = False
 ActiveSheet.Shapes("Rectangle : coins arrondis 56").Visible = False
 ActiveSheet.Shapes("Rectangle : coins arrondis 69").Visible = False
 ActiveSheet.Shapes("Ellipse 71").Visible = False
 ActiveSheet.Shapes("Ellipse 72").Visible = False
 ActiveSheet.Shapes("Ellipse 73").Visible = False
 Else
 ActiveSheet.Shapes("Ellipse 71").Visible = True
 ActiveSheet.Shapes("Ellipse 72").Visible = True
 ActiveSheet.Shapes("Ellipse 73").Visible = True
End If

 

[sylvanu]

Bonjour Pat,
Sans fichier test difficile de se prononcer. Le code semble correct.
- Est ce que R16 n'est pas fusionnée avec d'autres cellules, ou encore effacez vous que R16 et non une plage, sinon ça ne marche pas.
- Etes vous sur de vos appellations de shapes. ?
Chez moins c'est "Rectangle à coins arrondis 1" et non "Rectangle : coins arrondis 1"
Si un shape n'est pas trouvé alors on a une erreur.
- Faites un essai en supprimant " If Target.Count > 1 Then Exit Sub" pour voir si ce n'est pas un souci de plage.

Testez cette PJ qui ressemble à votre code pour voir.

 

[vgendron]

Bonjour
sans ton fichier pour tester le comportement, je dirais que le pb vient de cette ligne.?
Application.EnableEvents = False

 

[sylvanu]

Bonjour Vgendron,
Mais si la cellule modifiée n'est pas M11, cette ligne n'est pas exécutée. 😉

 

[vgendron]

Bonjour Vgendron,
Mais si la cellule modifiée n'est pas M11, cette ligne n'est pas exécutée. 😉

Hello Sylvanu
exact.. mais je t'avoue que maintenant, j'ai la flemme de chercher sur un simple bout de code sans fichier..

 

[pat66]

re,

trop fort sylvanu,

R16 est bien fusionnée ainsi R16:T16 , en défusionnant cela fonctionne, mais franchement ca m'arrange pas si je dois modifiée mes colonnes, il y a t'il une solution sans défusionner ? , merci

 

[vgendron]

essaie avec range("R16").cells(1,1)

 

[pat66]

merci vgendron,

mais avec

If ActiveSheet.Range("R16").Cells(1, 1) = "" Then

cela ne fonctionne pas non plus

 

[vgendron]

il va peut etre falloir te décider à poster ton fichier;. parce que la.. on navigue à l'aveugle.

 

[sylvanu]

Re,

R16 est bien fusionnée ainsi R16:T16 , en défusionnant cela fonctionne, mais franchement ca m'arrange pas si je dois modifiée mes colonnes, il y a t'il une solution sans défusionner ?

Le problème est que vous éliminez toute selection de cellules fusionnées :

If Target.Count > 1 Then Exit Sub

Donc supprimez cette ligne comme déjà évoquée au post #2 :

- Faites un essai en supprimant " If Target.Count > 1 Then Exit Sub" pour voir si ce n'est pas un souci de plage.

🙂

 

[sylvanu]

Re,
Mais vous pouvez avoir un souci maintenant si vous sélectionnez plusieurs cellules.
Testez plutôt ceci :

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count = 1 Then
    If Target.Address = "$M$11" Then
    Application.EnableEvents = False
        If Target + Worksheets("Feuil1").[V9] < [D93] Then ' A adapter
          If MsgBox("Compte tenu de votre âge """ & Worksheets("Feuil1").[V9] & " ans"", la durée envisagée est inférieure à la durée de cotisations nécessaire pour atteindre l'âge de la retraite fixé à """ & ActiveSheet.[D93] & " ans"". " & "Souhaitez vous appliquer la durée minimale ? ", 292, "ESPOIRS") = 6 Then ' (" & [E94] & " ans)
          [M11] = [E94]
            Else
                Application.Undo
            End If
        End If
        Application.EnableEvents = True
    End If
End If
If ActiveSheet.Range("R16") = "" Then
    ActiveSheet.Shapes("Rectangle : coins arrondis 29").Visible = False
    ActiveSheet.Shapes("Rectangle : coins arrondis 56").Visible = False
    ActiveSheet.Shapes("Rectangle : coins arrondis 69").Visible = False
    ActiveSheet.Shapes("Ellipse 71").Visible = False
    ActiveSheet.Shapes("Ellipse 72").Visible = False
    ActiveSheet.Shapes("Ellipse 73").Visible = False
Else
    ActiveSheet.Shapes("Ellipse 71").Visible = True
    ActiveSheet.Shapes("Ellipse 72").Visible = True
    ActiveSheet.Shapes("Ellipse 73").Visible = True
End If
End Sub

 

[pat66]

re,

vraiment balaise !!!! merci sylvanu

effectivement ce venait bien de :

If Target.Count > 1 Then Exit Sub

puisque R16 = R16:T16
Donc les 2 solutions fonctionnent dans mon cas avec ou sans

If Target.Count = 1 Then

merci à tous pour votre aide et en particulier à sylvanu qui a encore résolu mon problème

cdt