Discussion :

[thomas93]

Bonjour chers développeurs !

J'ai besoin de vous !
Je suis face à un problème :
Je souhaiterais afficher un MsgBox lorsque sur la feuille, dans la colonne D, une cellule prend la valeur 100.
Ce que je n'arrive pas à coder, c'est la partie "dynamique", autrement dit, DES qu'une cellule prend la valeur 100, alors j'affiche un message.

Je vous remercie d'avance pour votre aide,

THOMAS

[Philippe Tulliez]

Bonjour,

Je souhaiterais afficher un MsgBox lorsque sur la feuille, dans la colonne D, une cellule prend la valeur 100.
Ce que je n'arrive pas à coder, c'est la partie "dynamique", autrement dit, DES qu'une cellule prend la valeur 100, alors j'affiche un message.

Placer le code dans la procédure événementielle Worksheet_Change de la feuille en question.
Exemple

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Value = 100 Then MsgBox "Coucou"
End Sub

A lire Les évènements dans la feuille de calcul Excel

[thomas93]

Je te remercie pour ta réactivité !

Ceci ne marche pas :/ je pense que c'est du au fait que le 100 sort d'une formule. J'ai testé si c'est moi même qui le rentre, alors dans ce cas ça fonctionne. Mais dans mon cas, ca ne marche pas.
Aussi j'aurais aimé cibler uniquement la colonne D. Est ce possible ?

Merci encore !

[deedolith]

Tu doit d'abord obtenir le nom de la colonne, puis tester si c'est D. Le tout avant de tester la valeur de la cellule.

La fonction suivante te donnera la nom de la colonne:

Code :

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

1
2
3
4
5
6
7
8
Public Function getColumnName(ByRef oCell As Range)
    Dim strColumn As String
 
        '// obtient l'adresse de la colonne, sous forme A:A
    strColumn = oCell.EntireColumn.Address(False, False, xlA1)
        '// retourne le nom de la colonne
    getColumnName = Split(strColumn, ":")(1)
End Function

Quand à detecter les changements de valeurs, l'evennement n'est levé que suite a un changement direct de l'utilisateur (frappe au clavier), les changements indirect (issue d'une formule par exemple) ne declenchent pas l'evennement.

[thomas93]

Je souhaite faire cela uniquement dans la colonne D. Seulement si 100 s'affiche dans une cellule de la colonne D.

[Philippe Tulliez]

Bonjour,

Ceci ne marche pas :/ je pense que c'est du au fait que le 100 sort d'une formule. J'ai testé si c'est moi même qui le rentre, alors dans ce cas ça fonctionne. Mais dans mon cas, ca ne marche pas.

Evidemment cette procédure événementielle réagit si l'on modifie la valeur comme une constante et pas si sa valeur change par le résultat d'une formule
A ma connaissance, on ne peut pas intercepter l'événement si la valeur d'une cellule est modifiée par le résultat d'une formule.
Il y a bien cette possibilité de vérifier la valeur du dépendant de la cellule où a lieu le changement.
Exemple

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
 If Target.Dependents.Value = 100 Then MsgBox "Coucou"
End Sub

Attention que dans cet exemple il faut que le dépendant soit sur la même feuille et il ne peut pas avoir plusieurs cellules dépendantes. Sinon il faut utiliser modifier la procédure.

Aussi j'aurais aimé cibler uniquement la colonne D. Est ce possible ?

Oui si tu veux tester la colonne où a lieu le changement

Code :

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

If Target.row = 4 then

S'il s'agit de tester si la formule se trouve sur la colonne 4 (D), je n'ai pas le temps de chercher pour l'instant mais voici le code pour afficher la colonne du dépendant

Code :

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

If Target.Dependents.Value = 100 Then MsgBox Target.Dependents.Column

[EDIT]
Pour éviter que le programme se mette en erreur si une cellule concernée par la procédure événementielle n'a pas de cellule dépendante il faut bien entendu intercepter l'erreur
Exemple

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Worksheet_Change(ByVal Target As Range)
 On Error GoTo ErrorHandler
  If Target.Dependents.Value = 100 And Target.Dependents.Column = 4 Then
   MsgBox "Oui"
  End If
Exit Sub
ErrorHandler:
 On Error GoTo 0
End Sub

[thomas93]

Peu importe la localisation dans la feuille. Ce que je souhaite avant tout est d'afficher un msgbox lorsqu'une cellule de la colonne D prend la valeur 100 (100 étant le résultat d'une formule :/ )
Je suis bloqué ! :/

[Philippe Tulliez]

Bonjour,
Et bien je crois avoir mis le code correspondant.
je précise que je ne fais pas partie de ton personnel car je trouve le ton un peu impératif