Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2019 Private Sub Worksheet_Change(ByVal Target As Range)

P

pat66

XLDnaute Impliqué
Pourriez vous m'aider à contruire cette instruction avec Private Sub Worksheet_Change(ByVal Target As Range)

Quand je change grâce a un userform, qui propose 4 durées la valeur dans AE5, je souhaite que cela enclenche une vérification

SI AE5 = 9 = rien ne se passe
SI AE5 <> 9
MsgBox("Si vous changez la durée d'utilisation, le montant de AS17 sera réinitialisé à zero ! ", vbYesNo + vbQuestion, "Excel")
Si clic sur Non rien ne se passe
Si clic sur Oui alors 3 instructions
AS17 = 0
AE5 = 9
on masque la colonne entière ("AT")

fin d'instruction

un grand merci
 
Dernière édition:
Trier par date Trier par votes

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir Patrick,
Sans fichier test, juste un essai en PJ sans réelles vérifs :
VB: 
Sub Worksheet_Change(ByVal T As Range)
    If T.Count > 1 Then Exit Sub
    If Not Intersect(T, Range("AE5")) Is Nothing Then
        If T = 9 Then Exit Sub
        If MsgBox("Si vous changez la durée d'utilisation, le montant de AS17 sera réinitialisé à zero ! ", vbYesNo, "Question à l'utilisateur") = vbYes Then
            [AS17] = 0
            [AE5] = 9
            Range("AT:AT").EntireColumn.Hidden = True
        End If
    End If
End Sub
 

Pièces jointes

  • PatrickLopez.xlsm
    13.9 KB · Affichages: 10
Vote positif 0 Vote négatif
P

pat66

XLDnaute Impliqué
Sylvanu

j'ai un bug avec If T.Count > 1 Then Exit Sub
la boite me dit = objet requis !!

voila la macro complète :
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("Planning Treso").Unprotect ("SC6")
Application.ScreenUpdating = 0

Rows("31:50").EntireRow.Hidden = False
If Range("ae5").Value = 6 Then Rows("31:50").EntireRow.Hidden = True
If Range("ae5").Value = 9 Then Rows("34:50").EntireRow.Hidden = True
If Range("ae5").Value = 12 Then Rows("37:50").EntireRow.Hidden = True
If Range("ae5").Value = 15 Then Rows("40:50").EntireRow.Hidden = True
If Range("ae5").Value = 20 Then Rows("45:50").EntireRow.Hidden = True
If Range("ae5").Value = 25 Then Rows("50:50").EntireRow.Hidden = True

If T.Count > 1 Then Exit Sub
If Not Intersect(T, Range("AE5")) Is Nothing Then
If T = 9 Then Exit Sub
If MsgBox("Si vous changez la durée d'utilisation, le montant de AS17 sera réinitialisé à zero ! ", vbYesNo, "Question à l'utilisateur") = vbYes Then
[AS17] = 0
[AE5] = 9
Range("AT:AT").EntireColumn.Hidden = True
End If
End If

Worksheets("Planning Treso").Protect ("SC6")
End Sub
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Evidemment, avez vous remarqué que la cible est appelée Target dans votre macro mais T dans la mienne.
On ne peut rarement faire du copié collé des macros.
Donc remplacez tous les T, et mettez le T.count >1 dés le début :
Code: 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count > 1 Then Exit Sub
Worksheets("Planning Treso").Unprotect ("SC6")
Application.ScreenUpdating = 0

Rows("31:50").EntireRow.Hidden = False
If Range("ae5").Value = 6 Then Rows("31:50").EntireRow.Hidden = True
If Range("ae5").Value = 9 Then Rows("34:50").EntireRow.Hidden = True
If Range("ae5").Value = 12 Then Rows("37:50").EntireRow.Hidden = True
If Range("ae5").Value = 15 Then Rows("40:50").EntireRow.Hidden = True
If Range("ae5").Value = 20 Then Rows("45:50").EntireRow.Hidden = True
If Range("ae5").Value = 25 Then Rows("50:50").EntireRow.Hidden = True


If Not Intersect(Target, Range("AE5")) Is Nothing Then
If Target = 9 Then Exit Sub
    If MsgBox("Si vous changez la durée d'utilisation, le montant de AS17 sera réinitialisé à zero ! ", vbYesNo, "Question à l'utilisateur") = vbYes Then
        [AS17] = 0
        [AE5] = 9
        Range("AT:AT").EntireColumn.Hidden = True
    End If
End If

Worksheets("Planning Treso").Protect ("SC6")
End Sub

Cependant votre macro est bizarre car dès qu'une valeur va changer dans la feuille toute la première partie sera exécutée. Ca va ralentir le système.
Si vous vouliez limiter l’exécution de la macro quand AE5 change de valeur alors la première partie doit se trouver après le If Not Intersect.
Mais évidemment cela dépend de ce que vous voulez faire.
 
Vote positif 0 Vote négatif
P

pat66

XLDnaute Impliqué
sylvanu à dit:
Bonsoir,
C'est déjà le cas, car si on répond "non" on n'effectue strictement aucun changement. On n'effectue un traitement que si on appuie sur Oui.
Cliquez pour agrandir...

Non actuellement avec ta macro, si AE5 = 9 et que je change la valeur ex 12, le mesBox s'affiche bien mais si je clique sur "non", AS17 aucun changement = parfait, mais AE5 devient quand même 12, je souhaiterai qu'en cliquant sur "non" AE5 reste à 9

merci
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Oh, ça je ne sais pas faire.
Vous ne voulez pas que AE5 garde sa valeur ( qui serait 12) mais qu'il revienne à sa valeur précédente.
Puisque la macro est appelée sur changement de valeur. L'ancienne valeur n'est pas mémorisée. la macro est appelée avec sa valeur actuelle.
Je n'ai pas de solution à vous proposer, mais peut être que quelqu'un de plus futé vous trouvera une solution.
 
Vote positif 0 Vote négatif
P

pat66

XLDnaute Impliqué
en fait voila la macro que j'utilises et qui a cette fonction, mais le problème c'est qu'elle m'enlève la protection de la feuille, un mystère pour moi !!!

If Not Application.Intersect(Target, Range("AE5")) Is Nothing Then
If Range("AE5") <> "9" Then
'Columns("AT").EntireColumn.Visible = False
'Else
Columns("AT").EntireColumn.Hidden = True
End If
End If
Application.ScreenUpdating = -1
If Target.Address <> "$AE$5" Then Exit Sub
If Target.Value = "9" Then
ActiveSheet.Shapes("OK").Visible = True
Else
ActiveSheet.Shapes("OK").Visible = False
End If
If Range("AE5").Value <> "9" Then
ret = MsgBox("Si vous changez la durée d'utilisation, le montant de l'épargne écourté sera réinitialisé ! ", vbYesNo + vbQuestion, "Excel")
If ret = vbYes Then
Range("AS17").Value = 0
Else
Range("AE5").Value = 9
End If
End If
 
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Cette macro ne touche pas à la protection de la feuille.
N'avez vous pas d'autres macros ?
NB : Votre second If Range("AE5").Value <> "9" Then est inutile puisqu'il y en a un déjà précédemment.
Mais dans votre macro du post #5 vous aviez : Worksheets("Planning Treso").Unprotect ("SC6") il a disparu ?


Concernant l'autre point, peut être une solution avec un Worksheet_SelectionChange qui est appelée quand on clique la cellule AE5, alors la valeur est mémorisée dans une variable public.
A tester.
 

Pièces jointes

  • PatrickLopez (2).xlsm
    15.1 KB · Affichages: 4
Vote positif 0 Vote négatif
P

pat66

XLDnaute Impliqué
C'est vraiment sympa de m'aider Sylvanu, vous avez trouvé la solution, euréka !!
oui c'est vrai j'ai aussi cette fonction sur la page et c'est la qu'était le problème, j'avais oublié la protection à
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("AE5")) Is Nothing Then
UserForm1.Show
End If
End Sub

je viens de tester avec la protection, cela fonctionne bien, la feuille reste protégée et je vais en profiter pour nettoyer mo Private Sub Worksheet_SelectionChange(ByVal Target As Range)

un grand merci

bonne soirée
 
Vote positif 0 Vote négatif
P

pat66

XLDnaute Impliqué
c'est super !!, le voici en l'état actuel
'Private Sub Worksheet_Change(ByVal Target As Range)
' Worksheets("Planning Treso").Unprotect ("SC6")
' Application.ScreenUpdating = 0
' If Not Application.Intersect(Target, Range("AE5")) Is Nothing Then
' If Range("AE5") <> "9" Then
' 'Columns("AT").EntireColumn.Visible = False ' mon souhait pour la colonne AT, elle se cache si AE5 est<> de 9 ou s'affiche si AE5 = 9
' 'Else
' Columns("AT").EntireColumn.Hidden = True
' End If
' End If
'
' Application.ScreenUpdating = -1
'
' If Target.Address <> "$AE$5" Then Exit Sub
' If Target.Value = "9" Then
' ActiveSheet.Shapes("OK").Visible = True
' Else
' ActiveSheet.Shapes("OK").Visible = False
' End If
'
' 'le même code avec choix oui non annulé
' If Range("AE5").Value <> "9" Then
' ret = MsgBox("Si vous changez la durée d'utilisation, le montant de l'épargne écourté sera réinitialisé ! ", vbYesNo + vbQuestion, "Excel")
' If ret = vbYes Then
' Range("AS17").Value = 0
' Else
' Range("AE5").Value = 9
' End If
' End If
'
' Worksheets("Planning Treso").Protect ("SC6")
'End Sub


et aussi :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("AE5")) Is Nothing Then
UserForm1.Show
End If
Worksheets("Planning Treso").Protect ("SC6")
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonsoir,
On peut optimiser car il y a plusieurs IF AE5<>9 then
on peut les regrouper.
J'ai aussi rajouter la restitution de la valeur si la réponse est Non.
Par contre je n'ai pas testé à cause des UserForm et Shapes que je n'ai pas.
Essayez, si ça coince conserver la votre si elle marche.

VB: 
Public ValeurAE5    ' mémorise la valur de AE5 pour la restituer
Private Sub Worksheet_Change(ByVal Target As Range)
Worksheets("Planning Treso").Unprotect ("SC6")
Application.ScreenUpdating = False
If Target.Address <> "$AE$5" Then Exit Sub
If Not Application.Intersect(Target, Range("AE5")) Is Nothing Then
    If Range("AE5") <> "9" Then
        Columns("AT").EntireColumn.Visible = False ' mon souhait pour la colonne AT, elle se cache si AE5 est<> de 9 ou s'affiche si AE5 = 9
        ActiveSheet.Shapes("OK").Visible = True
        ret = MsgBox("Si vous changez la durée d'utilisation, le montant de l'épargne écourté sera réinitialisé ! ", vbYesNo + vbQuestion, "Excel")
        If ret = vbYes Then
            Range("AS17").Value = 0
        Else
            Range("AE5").Value = ValeurAE5  ' comme la réponse est non, on restitue la valeur initiale
        End If
    Else    ' ici AE5=9
        Columns("AT").EntireColumn.Hidden = True
        ActiveSheet.Shapes("OK").Visible = False
    End If
End If
Worksheets("Planning Treso").Protect ("SC6")
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Not Intersect(Target, Range("AE5")) Is Nothing Then
        ValeurAE5 = [AE5]              ' sauvegarde AE5 pour la restituer plus tard si réponge msgbox est non.
        UserForm1.Show
    End If
    Worksheets("Planning Treso").Protect ("SC6")
End Sub
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.

Discussions similaires

P
  • Résolu(e)
Microsoft 365 Private Sub Worksheet_Change(ByVal Target As Range)
Réponses
8
Affichages
639
pat66
P
P
  • Résolu(e)
Microsoft 365 Copier coller une cellule avant qu'elle ne soit modifiée par Sub Worksheet_Change(ByVal Target As Range)
2
Réponses
19
Affichages
1 K
pat66
P
M
  • Question
Autres VBA - cumuler 2 Private Sub Worksheet_change(ByVal Target As Range)
Réponses
5
Affichages
738
AtTheOne
P
  • Résolu(e)
XL 2019 Conditions dans Worksheet_Change(ByVal Target As Range)
Réponses
4
Affichages
494
pat66
P
  • Question
Microsoft 365 Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Réponses
5
Affichages
983
Claudy
M
  • Résolu(e)
XL 2016 Private Sub ne fonctionne pas
Réponses
4
Affichages
425
MaNU84510
M
P
  • Résolu(e)
XL 2019 Conditions avec Sub Worksheet_Change(ByVal Target As Range)
Réponses
7
Affichages
837
pat66
P
P
  • Résolu(e)
XL 2019 Test cellule avec Sub worksheet_change(ByVal target As Range)
Réponses
8
Affichages
782
pat66
P
P
  • Question
XL 2019 Comment Accélérer cette macro
2
Réponses
18
Affichages
3 K
Staple1600
Y
  • Résolu(e)
XL 2013 Private Sub Worksheet_Change
Réponses
2
Affichages
793
yoda60
Y
K
  • Question
XL 2016 Private Sub Worksheet_Change(ByVal Target As Range) - Comment enchainer
Réponses
10
Affichages
1 K
herve62
M
  • Résolu(e)
XL 2019 Compiler plusieurs Private Sub Worksheet_Change
Réponses
9
Affichages
2 K
macgillian
M
T
  • Résolu(e)
Microsoft 365 Worksheet_Change(ByVal Target As Range)
Réponses
2
Affichages
744
tienou42
T
P
  • Question
XL 2019 Sub Worksheet_Change(ByVal Target As Range) ne selectionne pas la cellule
Réponses
2
Affichages
754
pat66
P
F
  • Question
XL 2010 Cumuler les Private Sub Worksheet_Change
Réponses
3
Affichages
1 K
Francky79
F
  • Résolu(e)
Microsoft 365 si sélection de plusieurs cellules = quitter Private Sub Worksheet_SelectionChange(ByVal R As Range)
2
Réponses
28
Affichages
2 K
Usine à gaz
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
  • Question
XL 2010 À propos de Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Réponses
2
Affichages
588
Magic_Doctor
P
  • Résolu(e)
XL 2019 Utilisation de Worksheet_Change(ByVal Target As Range)
Réponses
5
Affichages
767
PRy
P
K
  • Question
XL 2016 Comment fusionner 2 Private Sub Worksheet_Change(ByVal Target As Range) ?
Réponses
3
Affichages
2 K
Kmi
K
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…