XL 2019 Worksheet_Change(ByVal Target As Range), 3 alternatives

P

pat66

XLDnaute Impliqué
Bonjour le forum,

auriez vous la gentillesse de me donner un coup de main svp

Conditions souhaitées dans workbook change de la Feuille 1 :

Code: 
[CODE=vb]If Worksheets("Feuil1").Range("AM106").Value = 2 and Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 51").Visible = True Then
Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 6").Visible = False
Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 36").Visible = true
else
Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 6").Visible = true
Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 36").Visible = false
end if
[/CODE]

mais je souhaite en plus que que si une des deux conditions n'est pas remplie, alors :
Code: 
Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 6").Visible = false
Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 36").Visible = false

un grand merci

Pat66
 
Solution
patricktoulon
re
bonjour
la chose est tres simple
je te cite
'en d 'autres termes
'Si AM6 = 1 et la forme 51 est visible, on affiche la forme 6 et on masque la forme 36
'Si AM6 = 2 et la forme 51 est visible, on affiche la forme 36 et on masque la forme 6
'mais si la forme 51 est masquée, on masque les formes 6 et 36 quelque soit le contenu de AM6
Cliquez pour agrandir...
dans le module de la Feuil1
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
onCacheOnMontre
End Sub



Dans un module standard
change les nomsdes shapes pour les tiens
dans cet exemple avec ces dux lignes tu gère les 3 conditions
Code: 
Sub onCacheOnMontre()
dim cel as range
Set cel = sheets("Feuil1").[AM106]
With sheets("Feuil2")
.Shapes("forme6").Visible = cel = 1 And...
Trier par date Trier par votes
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
Bonjour,

pat66 à dit:
auriez vous la gentillesse de me donner un coup de main svp
Cliquez pour agrandir...
On va essayer ;)

Une proposition :
VB: 
    If Worksheets("Feuil1").Range("AM106").Value = 2 And Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 51").Visible = True Then
        Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 6").Visible = False
        Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 36").Visible = True
    Else
        If Worksheets("Feuil1").Range("AM106").Value = 2 Or Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 51").Visible = True Then
            Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 6").Visible = False
            Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 36").Visible = False
        Else
            Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 6").Visible = True
            Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 36").Visible = False
        End If
    End If
 
Vote positif 0 Vote négatif
P

pat66

XLDnaute Impliqué
bonjour le forum
Bonjour TooFatBoy,

un grand merci à vous deux pour votre aide et encore une fois TooFatBoy m'a mis sur la piste, voici la solution qui répond à mes attentes :

If Worksheets("Feuil1").Range("AM106").Value = 2 And Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 51").Visible = True Then
Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 6").Visible = False
Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 36").Visible = True
Else
Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 6").Visible = True
Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 36").Visible = False
End If
If Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 51").Visible = False Then
Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 6").Visible = False
Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 36").Visible = False
End If

bon we
 
Vote positif 0 Vote négatif
Dranreb

Dranreb

XLDnaute Barbatruc
Bonjour.
Vérifiez si ça ne revient pas à :
VB: 
Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 36").Visible _
      = Worksheets("Feuil1").Range("AM106").Value = 2 And Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 51").Visible
Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 6").Visible _
      = Worksheets("Feuil1").Range("AM106").Value <> 2 And Not Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 51").Visible
Vous devriez quand même donner des noms plus significatifs à vos Shape, vous ne pourriez que vous y retrouver plus facilement.
 
Vote positif 1 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
Bonjour tous
peut être aussi variabliser pour le mal aux yeux
VB: 
Private Sub Worksheet_Change(ByVal Target As Range)
Dim F1 As Worksheet, F2 As Worksheet

Set F2 = Worksheets("Feuil2")
Set F1 = Worksheets("Feuil1")

F2.Shapes("Rectangle : coins arrondis 36").Visible = _
       F1.Range("AM106").Value = 2 And F2.Shapes("Rectangle : coins arrondis 51").Visible


F2.Shapes("Rectangle : coins arrondis 6").Visible = _
       F1.Range("AM106").Value <> 2 And Not F2.Shapes("Rectangle : coins arrondis 51").Visible
End Sub
 
Vote positif 0 Vote négatif
P

pat66

XLDnaute Impliqué
bonjour à tous,

effectivement vos solutions sont beaucoup plus propres et je vous en remercie, mais elles ne tiennent pas compte de la 3eme condition :
VB: 
If Shapes("Rectangle : coins arrondis 51").Visible = False Then
Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 6").Visible = False
Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 36").Visible = False

cdt
 
Vote positif 0 Vote négatif
P

pat66

XLDnaute Impliqué
oui bien sur, patrickToulon et Dranreb sont les mêmes solutions, mais écrites différemment et malheureusement cette condition n'est pas respectée :
If Shapes("Rectangle : coins arrondis 51").Visible = False Then
Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 6").Visible = False
Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 36").Visible = False
 
Vote positif 0 Vote négatif
P

pat66

XLDnaute Impliqué
en d'autres termes
Si AM6 = 1 et la forme 51 est visible, on affiche la forme 6 et on masque la forme 36
Si AM6 = 2 et la forme 51 est visible, on affiche la forme 36 et on masque la forme 6
mais si la forme 51 est masquée, on masque les formes 6 et 36 quelque soit le contenu de AM6
 
Dernière édition:
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
Pourtant, au niveau logique, ça semble parfaitement correspondre à ta demande. 🤔

Ta demande initiale :
VB: 
Sub test_1()
'
    C_1 = Worksheets("Feuil1").Range("AM106").Value
    C_2 = Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 51").Visible

    Set Coin_6 = Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 6")
    Set Coin_36 = Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 36")

    If (C_1 = 2) And (C_2 = True) Then
        Coin_6.Visible = False
        Coin_36.Visible = True
    Else
        Coin_6.Visible = True
        Coin_36.Visible = False
    End If

    If (C_1 <> 2) Or (C_2 = False) Then
        Coin_6.Visible = False
        Coin_36.Visible = False
    End If

End Sub

Ce qui peut se remplacer par :
VB: 
Sub test_2()
'
    C_1 = Worksheets("Feuil1").Range("AM106").Value
    C_2 = Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 51").Visible

    Set Coin_6 = Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 6")
    Set Coin_36 = Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 36")

    Coin_6.Visible = (C_1 <> 2) And (C_2 = False)
    Coin_36.Visible = (C_1 = 2) And (C_2 = True)

End Sub

Et c'est exactement la réponse de Dranreb.

Peux-tu m'expliquer où il y a erreur, car je ne vois pas. :(
 
Dernière édition:
Vote positif 0 Vote négatif
P

pat66

XLDnaute Impliqué
re,

ton post 10 =
si je mets 2 dans AM106 et que la forme 51 est visible, la forme 36 s'affiche et la forme 6 est masquée = ok
si je mets 1 dans AM106 et que la forme 51 est visible, les formes 6 et 36 sont masquées, hors la forme 6 devrait s'afficher et la forme 36 être masquée

Les formes 6 et 36 ne doivent être masquées uniquement que si la forme 51 est masquée
 
Vote positif 0 Vote négatif
TooFatBoy

TooFatBoy

XLDnaute Barbatruc
pat66 à dit:
si je mets 1 dans AM106 et que la forme 51 est visible, les formes 6 et 36 sont masquées, or la forme 6 devrait s'afficher et la forme 36 être masquée
Cliquez pour agrandir...
Non, ce n'est pas ce que tu as demandé en #1 :
pat66 à dit:
mais je souhaite en plus que que si une des deux conditions n'est pas remplie, alors :
Code: 
Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 6").Visible = false
Worksheets("Feuil2").Shapes("Rectangle : coins arrondis 36").Visible = false
Cliquez pour agrandir...

Dans ton exemple, une des deux conditions n'est pas remplie (AM106<>2 mais Forme51 visible), donc on devrait avoir les deux formes masquées.
 
Dernière édition:
Vote positif 0 Vote négatif
patricktoulon

patricktoulon

XLDnaute Barbatruc
pat66 à dit:
en d'autres termes
Si AM6 = 1 et la forme 51 est visible, on affiche la forme 6 et on masque la forme 36
Si AM6 = 2 et la forme 51 est visible, on affiche la forme 36 et on masque la forme 6
mais si la forme 51 est masquée, on masque les formes 6 et 36 quelque soit le contenu de AM6
Cliquez pour agrandir...
Bonjour
bon ben la c'est déjà plus clair
alors c'est simple je viens de tester ca match
remplace "A1" par "AM106"

deux conditions en remplissent 3
exemple
VB: 
'en d 'autres termes
'Si AM6 = 1 et la forme 51 est visible, on affiche la forme 6 et on masque la forme 36
'Si AM6 = 2 et la forme 51 est visible, on affiche la forme 36 et on masque la forme 6
'mais si la forme 51 est masquée, on masque les formes 6 et 36 quelque soit le contenu de AM6
 

Sub onCacheOnMontre()
Set cel = [A1]
With ActiveSheet
.Shapes("forme6").Visible = cel = 1 And .Shapes("forme51").Visible
.Shapes("forme36").Visible = cel = 2 And .Shapes("forme51").Visible
End With
End Sub

'sub pour me cacher la 51 pour les tests (à supprimer bien sur )
Sub cachemontre51()
With ActiveSheet.Shapes("forme51"): .Visible = Not .Visible: End With
onCacheOnMontre
End Sub
 
Vote positif 0 Vote négatif

Discussions similaires

P
  • Résolu(e)
XL 2019 Améliorer voire accélérer une Macro
Réponses
6
Affichages
363
patricktoulon
patricktoulon
P
  • Résolu(e)
Microsoft 365 Plusieurs conditions avec Sub Worksheet_Activate() ou Change
Réponses
10
Affichages
276
pat66
P
P
  • Résolu(e)
XL 2019 Optimiser une macro
Réponses
12
Affichages
432
pat66
P
P
  • Question
XL 2019 Select Case 3 conditions imbriquées avec 2 variables
2
Réponses
20
Affichages
671
Dranreb
Dranreb
P
  • Question
XL 2019 Verrouiller plusieurs cellules avec condition
Réponses
3
Affichages
749
fanch55
fanch55
P
  • Résolu(e)
XL 2019 Conditions dans Worksheet_Change(ByVal Target As Range)
Réponses
4
Affichages
344
pat66
P
P
  • Résolu(e)
XL 2019 Plusieurs conditions avec Sub Worksheet_Change (ByVal Target As Range)
2
Réponses
18
Affichages
686
pat66
P
P
  • Résolu(e)
XL 2010 Réduire la macro
Réponses
2
Affichages
290
Panda79360
P
P
  • Résolu(e)
Microsoft 365 Private Sub Worksheet_Change(ByVal Target As Range)
Réponses
8
Affichages
324
pat66
P
P
  • Résolu(e)
XL 2019 Problème avec Worksheet_Change(ByVal Target As Range)
2 3
Réponses
33
Affichages
3 K
pat66
P

Membres actuellement en ligne

17 membres et 117 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
312 210
Messages
2 086 279
Membres
103 170
dernier inscrit
HASSEN@45