Discussion :

[ilissnmiden92]

Bonjour chers forumistes,

J'ai besoin de votre aide, j'essaie de réaliser une macro qui me permet à partir de ça


en fonction du résultat de mon B1: qui est une variable ( valeur calculée à partir d'une formule)

Il faut que je vienne saisir des valeurs dans B2 et B3 sachant que le total doit etre forcément égal à mon B1 ni plus ni moins ===> B1=B2+B3
Sachant que je ne suis pas obligée de remplir B2 et B3, une suffit du moment que le total correspond à B1

Dans mon exemple: B1=10
il faut que quand je vienne saisir dans ma B2=3
qu'il y ait un message qui me calcule la différence B1-B2.
Dans mon exemple il faut que dés que je saisisse B2=3 un message du genre " attention il vous reste 7h à saisir" ( 10-3)

Autre exemple: si B1=10 et que j'ai saisi dans B2=10, c'est ok RAS

Je voulais faire un MsgBox mais je ne peux pas intégrer une formule dans le message

Je ne sais pas si je suis claire mais je reste à dispo si ya des réponses

merci d'avance

[LawNasK]

Bonjour,

Dans le code de ta feuille :

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
Private Sub Worksheet_Change(ByVal Target As Range)
    Dim KeyCells As Range
    Dim resultat As Double
 
    ' La variable KeyCells contient les cellules qui déclencheront
    ' une alerte si elles sont modifiées.
    Set KeyCells = Range("B2")
 
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        If Range("B2").Value < Range("B1").Value
            resultat = Range("B1").Value - Range("B2").Value
            MsgBox("Il reste " & resultat  & "h à saisir.")
        End If
    End If
End Sub

C'est ce que tu voulais ?

[ilissnmiden92]

A oui c'est très bien, merci beaucoup
du coup je dois intégrer deux autres conditions, j'ai essayé avec ton code mais j'ai besoin de ton aide encore

Si
B1=10
B2=
B3=

Il faut que ma B2= B1-B3
mais si je saisis (dans notre exemple) 11, il faut que excel interdit la saisie

une autre condition, ma B2 ne doit pas excéder 7, donc pareil meme si 7<B1
il faut qu'excel rejette la saisie.

Du coup j'ai rajouté à ton code:

Code :

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

1
2
3
4
5
6
7
  If Range("B2").Value > Range("B1").Value Then
            MsgBox (" Vous ne pouvez pas saisir cette valeur")
        End If
 
        If Range("B2").Value > 7 Then
            MsgBox (" Vous ne pouvez pas saisir au dela de 7h")
         End If

Mais là ça affiche le message mais ça prend la saisie, ca n'interdit pas la valeur

Je ne sais pas si j'ai été claire,

Merci pour ton aide

pour etre plus claire
il faut que:

B2=B1-B3 ET B1<=7

si oui je mettrai le msgbox que tu m'as mis
sinon rejeter la saisie faite

[LawNasK]

Code :

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

1
2
3
4
5
6
7
  If Range("B2").Value > Range("B1").Value Then
            MsgBox ("Vous ne pouvez pas saisir cette valeur.")
        End If
 
        If Range("B2").Value > 7 Then
            MsgBox ("Vous ne pouvez pas saisir plus que 7h.")
         End If

Tu peux rajouter dans l’exécution de ces conditions:

Code :

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

Range("B2").Value = ""

C'est un peu Bob le bricoleur mais ça fonctionne.

[ilissnmiden92]

Merci pour le "", ça a marché,
du coup, un dernier problème

Code :

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

1
2
3
4
5
If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        If Range("B2").Value < Range("B1").Value
            resultat = Range("B1").Value - Range("B2").Value
            MsgBox("Il reste " & resultat  & "h à saisir.")
        End If

ET

Code :

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

1
2
3
4
5
6
7
If Range("B2").Value <= 7 Then
 
' En fait il faut que je cumule les 2 dans la même condition:
            resultat = Range("B1").Value - Range("B2").Value
            MsgBox("Il reste " & resultat  & "h à saisir.")
 
        End If

Il faut que ca soit ainsi:

Code :

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

If Range("B2").Value < Range("B1").Value [/B]ET [B]Range("B2").Value <= 7 Then

merci

[LawNasK]

Code :

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

If Range("B2").Value < Range("B1").Value [/B]ET [B]Range("B2").Value <= 7 Then

Code :

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

If Range("B2").Value < Range("B1").Value AND Range("B2").Value <= 7 Then

[ilissnmiden92]

Bonjour Law Nask,
Ca ne marche pas malheureusement, quand je saisis 8 en B2, excel le prend

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 KeyCells As Range
    Dim resultat As Double
 
    ' La variable KeyCells contient les cellules qui déclencheront
    ' une alerte si elles sont modifiées.
    Set KeyCells = Range("B2")
    If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
   If Range("B2").Value < Range("B1").Value Then
 
            Range("B2").Value <=7      'ma valeur B2 ne doit pas dépasser 7 JE CROIS QUE C'EST LA  OU CA COINCE 
            resultat = Range("B1").Value - Range("B2").Value
            MsgBox ("Il reste " & resultat & "h à saisir.")
        End If
        If Range("B2").Value > Range("B1").Value Then
            MsgBox (" Vous ne pouvez pas saisir cette valeur")
            Range("B2").Value = ""
        End If
 
    End If
 
 
End Sub