Discussion :

[Pauline1106]

Bonjour à tous,

Je prépare un fichier pour la gestion de la location de matériel dans la collectivité où je travaille.
Il y a un 1er tableau (A4:AG57) où on enregistre les demandes des différentes associations et un 2ème tableau (A60:AG102) qui calcule si cette ressource est disponible à la date souhaitée. Je souhaite que quand l'utilisateur rempli la demande dans le 1er tableau un message l'avertisse si la réservation est possible ou non en fonction du 2ème tableau.
Voici le code que j'ai rédigé pour le moment.
Le problème c'est que le code ne se déclenche pas. Pouvez-vous m'éclaircir sur mes erreurs?
Merci

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column >= 3 And Target.Column <= 33 And Target.Row >= 63 And Target.Row <= 102 Then Reservation
End Sub
 
 
Sub Reservation()
If Target < 0 Then MsgBox "Réservation impossible.La ressource n'est pas disponible." Else: If Target > 0 Then MsgBox "Réservation possible. Pensez à enregistrer."
 
End Sub

[Philippe Tulliez]

Bonjour,

Le problème c'est que le code ne se déclenche pas. Pouvez-vous m'éclaircir sur mes erreurs?

Tu es certaine que le code ne se déclenche pas ?
As-tu mis un arrêt (F9) à la ligne 2 ou 3 de ta procédure ?

Sauf erreur de ma part, ton problème vient de ta deuxième procédure nommée Reservation qui ne connaît pas la variable Target.
Cela t'aurais sauté aux yeux directement si tu avais placé en tête de module la ligne Option Explicit

[riaolle]

Bonjour et bienvenue au forum !
Quand on veut appeler une fonction, normalement on utilise Call.
De plus, tu ne peux pas utiliser Target dans une méthode. Target est une ARGUMENT de Worksheet_Change, il faut que tu mettes une argument aussi à Reservation :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column >= 3 And Target.Column <= 33 And Target.Row >= 63 And Target.Row <= 102 Then Call Reservation(Target)
End Sub
 
Sub Reservation(maCellule As Range)
If maCellule.Value < 0 Then 
    MsgBox "Réservation impossible.La ressource n'est pas disponible." 
Else
    If maCellule.Value > 0 Then MsgBox "Réservation possible. Pensez à enregistrer."
End If
End Sub

[Pauline1106]

Bonjour à tous, j'ai essayé de faire des changements sur ma formule mais même avec le code suivant ça ne se déclenche pas.
Est-ce que le problème vient du fait que la modification de la cellule vient du formule et non d'une saisie?
Merci

Code :

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

1
2
3
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column >= 3 And Target.Column <= 33 And Target.Row >= 63 And Target.Row <= 102 Then MsgBox "Réservation impossible. La ressource n'est pas disponible."
End Sub

[riaolle]

Est-ce que le problème vient du fait que la modification de la cellule vient du formule et non d'une saisie?

Oui, la modification d'une cellule par formule ne délenche pas Worksheet_Change.
Il faut que tu trouves un autre evenement pour déclencher ta macro.

[eriiic]

Bonjour,

ou utiliser l'événement Change sur les cellules saisies qui impactent le résultat de ta formule.
Par exemple si tu as en B2 :
=A2*3+D2
c'est la saisie en A2 et D2 qui t'intéressent et que tu dois superviser.
eric

[Pauline1106]

Bonjour à tous,

J'ai modifié ma macro en enlevant l'évènement private sub worksheet_change qui ne fonctionnait pas pour avoir la macro suivante:

Code :

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

1
2
3
4
5
6
Sub Valeursnegatives()
Dim c As Range
For Each c In Range("C63:AG102")
If c <> "" And c < 0 Then MsgBox "Réservation impossible. La ressource n'est pas disponible." Else: If c <> "" And c > 0 Then MsgBox "Réservation possible. Pensez à enregistrer."
Next c
End Sub

Avec ce code ça fonctionne presque! J'aimerais que la macro soit testée seulement sur les cellules qui viennent d'être modifiées dans C63:AG102 et pas l'ensemble à chaque fois.
Auriez-vous une solution?

Merci

[riaolle]

Comment sont modifiées les cellules ? Par formule ? Comme dit précédemment, la modification d'une solution par formule n'est pas repérée.
Je sais pas trop quel est ton but avec ta macro, mais au lieu de faire une macro qui renvoie un message, tu peux peut-être utiliser une mise en forme conditionnelle :

• Rouge si cellule <> "" et cellule < 0
• Vert si cellule <> "" et cellule > 0