Discussion :

[Denis_67]

Bonjour

J'ai une feuille dans laquelle, l'utilisateur sélectionne des projets dans une liste.

Suite à la sélection, je remplis la feuille.

Si l'utilisateur sélectionne un autre projet le feuille est mise à jour.

Cependant s'il clique et finalement reste sur le même projet, la mise à jour se fait quand même, car le système voit une modification de la cellule.

existe-il une astuce pour que si la même valeur est sélectionnée, on ne relance pas la mise à jour ?
je pose la question avant de me lancer dans un bricolage où je copierais lors du chargement la valeur dans une autre cellule et que je comparerais à l'entrée de la private sub ?

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B1")) Is Nothing Then MsgBox ("bonjour")
End Sub

Merci
Denis

[Menhir]

En quoi consiste cette "mise à jour" ?

existe-il une astuce pour que si la même valeur est sélectionnée, on ne relance pas la mise à jour ?

Il doit en exister plusieurs.
Une idée parmi d'autres : en fin de procédure, tu mets la valeur de B1 dans le commentaire de la cellule.
En début de procédure, tu vérifies que la valeur courante de B1 est différente de la valeur contenue dans le commentaire.

[jpvba]

Bonjour Denis,


Perso, j’essaierais de minimiser l'utilisation de change ... cela alourdis vraiment ton fichier. J'ai un collègue ayant fait quelque-chose du genre et ça été vraiment pénible pour les utilisateurs.


Avez-vous votre code, car là je ne crois que personne ne peuvent deviner.

[Denis_67]

Merci pour vos messages, désolé de n'avoir pas été assez clair.

Je veux dire que lorsque je sélectionne une valeur (liste déroulante) en B1,

une fonction efface les données présente sur la feuille

et va de nouveau les remplir à partir des données stockées sur une autre feuille dont la clé et la valeur de la cellule B1

Donc chaque fois que je sélectionne une valeur en B1 j'efface et je remplis avec les nouvelles valeurs.
Dans le cas où l'utilisateur cherche hésite et finalement décide de rester sur le même projet, la moulinette passe quand même.

C'était pour éviter ce petit désagrément, mais pas de quoi y passer des heures c'était au cas il y ait une astuce évdente.
Denis

[Menhir]

une fonction efface les données présente sur la feuille
et va de nouveau les remplir à partir des données stockées sur une autre feuille dont la clé et la valeur de la cellule B1

Je ne sais pas quelle est la nature de ces données mais peut-être y a-t-il quelques données clés que tu peux vérifier en comparant les données de ta feuilles et celles stockées sur l'autre feuille en relation avec la sélection.
S'il y a correspondance parfaite, tu n'effaces pas.

Au pire, lorsque ta macro copie les données de l'autre feuille, tu peux mettre quelque part la valeur sélectionnée dans ta liste déroulante et, en début de procédure, vérifier que la sélection est différente de cette valeur collée au "coup" précédent.

Si tu ne peux pas faire cette comparaison, voir la solution utilisant le commentaire proposée dans mon message précédent.

[pijaku]

Bonjour,

Je n'ai pas testé, mais ça devrait aller.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Private Sub Worksheet_Change(ByVal Target As Range)
Static OldVal As String
If Not Intersect(Target, Range("B1")) Is Nothing Then
   If OldVal <> Target.Value Then Call Macro1
   OldVal = Target.Value 
End If
End Sub

[Theze]

Bonjour,

Une piste en jouant avec SelectionChange() et Change() :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Dim Valeur As Variant
 
Private Sub Worksheet_Change(ByVal Target As Range)
 
    If Target.Address(0, 0) <> "B1" Then Exit Sub
    If Target.Value = Valeur Then Exit Sub
 
    Valeur = Target.Value
    'suite du code si la valeur est défférente
    '...
    '...
    MsgBox "Changée !"
 
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
 
    If Target.Address(0, 0) <> "B1" Then Exit Sub
 
    Valeur = Target.Value
 
End Sub