Discussion :

[jpma75]

Bonjour,

Dans la cellule A6, j'ai la formule {=SI(SOMMEPROD((champ<>"")*(A8:A19<>"")*(A8:A19<champ));FAUX;VRAI)}

champ correspond à la plage A7:A18

Dans champ, j'ai actuellement 9 valeurs (noms) donc de A7 à A15, triées par ordre alphabétique

Si j'ajoute un nouveau nom en A16, la cellule A6 affiche FAUX si la liste n'est plus triée.

Je pensais pouvoir détecter le changement de TRUE à FALSE (et vis versa) avec :

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address = "$A$6" Then (ma procédure de tri)
End Sub

... mais ça ne détecte rien ! Cela vient-il du fait que la valeur est booléenne ?

En vous remerciant par avance pour vos lumières,
Cordialement,
jp

[jpma75]

J'ai même essayé avec ceci : If Not Intersect(Target, Range("A6")) Is Nothing Then MsgBox "ma procédure de tri..."

... mais en vain !

[jpma75]

Sur ce lien : https://silkyroad.developpez.com/VBA/EvenementsFeuille/

je lis :

II-E. Worksheet_Change▲
Private Sub Worksheet_Change(ByVal Target As Range)

Cet évènement est déclenché lorsque le contenu d'une cellule est modifiée dans la feuille.
La procédure ne prend pas en compte la modification des mises en forme dans la cellule. Consultez l'exemple proposé dans le chapitre Worksheet_SelectionChange pour identifier la modification d'une mise en forme.

Nota:
Cet événement ne se produit pas si la feuille vient d'être recalculée (Utilisation de la touche F9 en mode calcul sur ordre).

Sauf erreur, mon code ne correspond pas à ces deux exclusions !

[Patrice740]

Bonjour,

L'évènement _Change ne détecte que les changements de valeurs ou de formule dans la feuille, par le changement du résultat d'un calcul de formule.
Ce changement de résultat ne peut intervenir que lorsqu'il y a changement des antécédents primaires : c'est la modifications de ces antécédents qu'il faut surveiller pour détecter le changement du résultat de la formule.
Un exemple simple avec la formule suivante feuille 1 :

Code formule :

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

=NBVAL(Feuil2!B4:B8)

Il faut utiliser l'évènement de la feuille 2 dans la plage B4:B8, à condition bien sûr que ces cellules ne soient pas aussi des formules ..;

[jpma75]

Bonjour et merci Patrice,

L'évènement _Change ne détecte que les changements de valeurs ou de formule dans la feuille, par le changement du résultat d'un calcul de formule.

Je n'avais pas trouvé cette info sur le site que j'ai cité en référence ; sans doute ai-je mal lu.

Donc, dans ce cas précis, c'est sans espoir... Je vais réfléchir à une autre piste. L'idée de déclencher automatiquement le tri de ma plage à l'ajout d'un nom, me plaisait bien...
j'espère que personne ne me répondra avant que j'y aie réfléchi !!

Cdt

[jpma75]

Merci de ne pas avoir répondu avant moi

Je viens de retrouver un vieux code dans une de mes applis et en prim', les noms seront en majuscules ! Et ça m'évite une formule matricielle sur la feuille de calcul !

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
Private Sub Worksheet_Change(ByVal Target As Range)
Dim C As Range
Dim i&
Dim plage_noms As Range
 
    Set plage_noms = Range("A7:A18")
 
    If Not plage_noms Is Nothing Then
        Application.EnableEvents = False
        For Each C In plage_noms.Cells
            C = UCase(C)
        Next
 
        For i = 2 To plage_noms.Count
            If plage_noms(i) <> "" Then
                If plage_noms(i - 1) > plage_noms(i) Or plage_noms(i - 1) = "" Then
                    Range("A7:B18").Sort Key1:=[a1]
                End If
            End If
        Next
        Application.EnableEvents = True
    End If
End Sub

Tout semble bien fonctionner maintenant.