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

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion pat66
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
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
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
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
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
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
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
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
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
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
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
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
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
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

P
  • Résolu(e)
Microsoft 365 Afficher ou masquer formes si une cellule est vide
Réponses
11
Affichages
509
pat66
P
J
  • Question Question
Microsoft 365 Worksheet_Change ou Worksheet_Calculate
Réponses
9
Affichages
404
job75
job75
P
  • Résolu(e)
Microsoft 365 Plusieurs conditions avec Sub Worksheet_Activate() ou Change
Réponses
10
Affichages
541
pat66
P
P
  • Résolu(e)
XL 2019 Améliorer voire accélérer une Macro
Réponses
6
Affichages
638
patricktoulon
patricktoulon
P
  • Résolu(e)
XL 2019 Optimiser une macro
Réponses
12
Affichages
727
pat66
P
P
  • Question Question
XL 2019 Select Case 3 conditions imbriquées avec 2 variables
2
Réponses
20
Affichages
1 K
Dranreb
Dranreb
P
  • Question Question
XL 2019 Verrouiller plusieurs cellules avec condition
Réponses
3
Affichages
993
fanch55
fanch55
P
  • Résolu(e)
XL 2019 Conditions dans Worksheet_Change(ByVal Target As Range)
Réponses
4
Affichages
567
pat66
P
P
  • Résolu(e)
XL 2019 Plusieurs conditions avec Sub Worksheet_Change (ByVal Target As Range)
2
Réponses
18
Affichages
1 K
pat66
P
P
  • Résolu(e)
Microsoft 365 Private Sub Worksheet_Change(ByVal Target As Range)
Réponses
8
Affichages
770
pat66
P
P
  • Résolu(e)
XL 2010 Réduire la macro
Réponses
2
Affichages
542
Panda79360
P
P
  • Résolu(e)
XL 2019 Problème avec Worksheet_Change(ByVal Target As Range)
2 3
Réponses
33
Affichages
4 K
pat66
P
M
  • Question Question
Autres VBA - cumuler 2 Private Sub Worksheet_change(ByVal Target As Range)
Réponses
5
Affichages
857
AtTheOne
AtTheOne
P
  • Résolu(e)
XL 2019 combiner 2 conditions dans Worksheet_Change(ByVal target As Range)
Réponses
10
Affichages
689
TooFatBoy
TooFatBoy
P
  • Résolu(e)
XL 2019 Test cellule avec Sub worksheet_change(ByVal target As Range)
Réponses
8
Affichages
848
pat66
P
Nenesse45
  • Question Question
XL 2019 Afficher ou masquer une forme selon l'état visibilité d'une feuille.
Réponses
4
Affichages
2 K
mapomme
mapomme
PHV.FSM
  • Question Question
XL 2016 Calculer la position sur l'écran d'une position sur la grille (XL 2003)
2
Réponses
27
Affichages
4 K
Nicolas JACQUIN
Nicolas JACQUIN
P
  • Question Question
XL 2019 Sub Worksheet_Change(ByVal Target As Range) ne selectionne pas la cellule
Réponses
2
Affichages
821
pat66
P
U
  • Question Question
Autres [RESOLU] Application.ScreenUpdating = False
Réponses
4
Affichages
1 K
un internaute
U
K
  • Question Question
XL 2013 Worksheet_change copier/coller sur un autre classeur
Réponses
6
Affichages
927
Dafaka7
D
Retour