Discussion :

[Cahlagan]

Bonjour,

Je travaille sur un fichier Excel et je suis allé faire un tour sur ChatGPT, pour voir comment il s'en sortirait. Eh bien... Il m'a fait 152 propositions, dont les 3/4 avec une erreur 13. Passons...

Il s'agit d'un fichier avec macros événementielles, et j'ai un problème avec l'événement Change. Je vais essayer d'être le plus clair possible. Il s'agit d'un fichier qui listera des suivis, avec différentes infos sur le client (nom, date de naissance, etc). Deux colonnes m'intéressent particulièrement: la colonne D (depuis D9 et suivantes) et M (M9 et suivantes). La colonne D contiendra le nombre de séances (que des chiffres, à saisir directement) et la colonne M propose un menu déroulant, avec quatre valeurs uniquement: "A venir", "En cours", "Suspendu", "Terminé". Lors de la création d'un suivi, une ligne est ajoutée. Par défaut, elle n'a pas (encore) de valeur en D et sa valeur en M, par défaut, est "A venir". Premier contrôle à effectuer par l'événement Change: dès qu'une valeur sera saisie en D (un nombre, donc), il doit automatiquement passer, en M, de "A venir" à "En cours". Mais il doit laisser le menu déroulant accessible, car l'utilisateur pourra par la suite changer, à tout moment, entre "En cours", "Suspendu", "Terminé". Il ne remettra jamais "A venir", cette valeur-là n'étant sélectionnée qu'au début, avant que celui-ci commence.

La deuxième partie de la macro doit colorer la ligne en question, en fonction de la valeur en M: Si M = "A venir", Excel doit choisir certaines couleurs, d'autres couleurs pour les 3 autres valeurs. Sur cette partie-là, je devrais men sortir. C'est plus la structure de la première partie qui est délicate.

Et à tous ceux qui auront la gentillesse de me suggérer des pistes ou des bouts de code, merci d'éviter l'erreur 13. Je ne sais pas pourquoi, je l'ai depuis peu en horreur...

[patrice67]

Bonjour Cahlang

Tu peux mettre cette procédure dans le module de la feuille qui va être traitée.
Il faut également ouvrir un module pour insérer la variable publique.

Quand tu vas cliquer sur une cellule la variable publique Cell_Val récupère la valeur de la cellule.
Si la valeur dans cette variable est vide à l'insertion d'une valeur numérique dans la colonne D avec des lignes supérieures à 8 et que la donnée soit bien numérique on fait écrire "A venir" dans la colonne M à la même hauteur de ligne


Module feuille ********************************

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Adr As String
Dim Spl
Application.EnableEvents = False

Adr = Target.Address
If VBA.InStr(Adr, ":") <> 0 Then Application.EnableEvents = True: Exit Sub ' Non traité car c'est une plage et non une cellule
Spl = Split(Adr, "$")
If Spl(1) = "D" And VBA.CInt(Spl(2)) > 8 Then
If Not IsNumeric(Target.Value) Then MsgBox ("La valeur n'est pas numérique."): Application.EnableEvents = True: Exit Sub
If Cell_Val = "" Then Range("M" & Target.Row) = "A venir"
End If
Application.EnableEvents = True
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cell_Val = Target.Value
End Sub





Module ********************************

Public Cell_Val ' Mémorise les données de la colonne D

Cordialement Patrice

[deedolith]

Salut,

Module ********************************

Public Cell_Val ' Mémorise les données de la colonne D

Inutile que cette variable soit publique, la déclarer privée à la feuille suffit amplement.

[patrice67]

Bonjour deedolith,

Je suis d'accord avec toi que j'aurais pu déclarer cette variable comme Private dans le module de la feuille.

Cldt

[Cahlagan]

patrice67, deedolith,

Merci pour vos propositions! Avant d'avoir reçu vos réponses, j'ai trouvé une macro qui semble fonctionner correctement:

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 Excel.Range) 
    If Target.Column = 4 Then 
        ThisRow = Target.Row 
        If Target.Value <> "" Then 
            Range("M" & ThisRow).Value = "En cours" 
        End If 
    End If 
End Sub

Elle a un avantage sur celle proposée par patrice67: comme elle est plus simple, je la comprends mieux! Elle ne tient pas compte du fait qu'il faut démarrer à partir de D9, mais ce n'est pas problématique: il n'y aura pas de valeur entre D1 et D8. Celle de patrice67 est-elle plus fiable ou fonctionnelle par rapport à la demande de ce que devrait faire la macro?

[Cahlagan]

Ah non, je me rends tout de même compte d'une erreur! Comme la macro est libellée, lorsque l'utilisateur notera "Suspendu" ou "Terminé", au prochain changement de valeur saisi en D, la macro reviendra à "En cours"...
Cela devrait être plus juste ainsi:

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 Excel.Range) 
    If Target.Column = 4 Then 
        ThisRow = Target.Row 
        If Target.Value <> "" And Range("M" & ThisRow).Value = "A venir" Then 
            Range("M" & ThisRow).Value = "En cours" 
        End If 
    End If 
End Sub

Le cas de figure où il n'y a pas de valeur en D (Target.Value = ""), lorsqu'un nouveau suivi est créé, fait que la valeur "En cours" restera inchangée.
Dès qu'une valeur est saisie, Excel notera "En cours". Mais si ensuite, l'utilisateur sélectionne "Suspendu" ou "Terminé", la valeur ne changera plus puisque la première partie de la condition est réalisée (Target.Value <>""), mais pas la seconde. Cela me semble correct ainsi.