excel -> test lors de la perte du focus d'une cellule

Version imprimable

Voir 40 message(s) de cette discussion en une page

23/09/2005, 11h10
greg778

excel -> test lors de la perte du focus d'une cellule

Bonjour,

je voudrais en fait vérifier la valeur de plusieurs cellule, lorsqu'on quitte la cellule.

J'ai par exemple la colonne F dans laquelle je dois vérifier les cellules de 5 à 20. La vérification est la suivante : si la valeur de F5 = la valeur de G4 + 1 alors c ok, sinon message d'alerte!! et ainsi de suite pour F6 à comparer avec G5,...

Cette vérif doit être effectuée que si on quitte la cellule et qu'il y a une valeur. Je ne sais pas comment je dois déclarer tout ça dans excel pour que ça soit applicable à toutes les cellules concernées. (ou alors il faut définir ça pour chaque cellule?)

merci d'avance,
greg

essai ça ... :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Dim mCellule As Range
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not mCellule Is Nothing Then
If mCellule = Target Then Exit Sub ' Cas ou pas de changement de cellule
 If Not Intersect(mCellule, Range("F5:F20")) Is Nothing Then
    If mCellule.Value <> 0 Then
         If Not mCellule.Offset(-1, 1) + 1 = mCellule Then
           MsgBox "Erreur " & mCellule.Offset(-1, 1).Address & " +1 <> " & mCellule.Address
           mCellule.Activate
           Exit Sub 'Revient sur cellule en erreur
         End If
        End If
   End If
End If
Set mCellule = Target 'Memorise cellule précédente//
End Sub

oki merci,

j'ai essayé ça, mais y'a 2 ptites choses qui m'embête un peu :

1. je ne veux pas que le focus soit redonné à la cellule modifiée, donc j'ai essayé en supprimant mCellule.Activate, mais ça ne fonctionne plus!?!

2. je voudrais faire le test que si la valeur à été modifiée, pas si on passe simplement sur la cellule sans en modifier son contenu...??

rem: un truc que j'ai remarqué aussi, c'est que si je sélectionne plusieurs cellules dans la colonne F, ça bug -> message d'erreur ds VB

voilà ton code que j'avais un peu modifié...
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Dim mCellule As Range Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Not mCellule Is Nothing Then If mCellule = Target Then Exit Sub ' Cas ou pas de changement de cellule If Not Intersect(mCellule, Range("F10:F50")) Is Nothing Then If mCellule.Value <> 0 Then If Not mCellule.Offset(-1, 2) + 1 = mCellule Then MsgBox "Attention!" 'mCellule.Activate Exit Sub 'Revient sur cellule en erreur End If End If End If End If Set mCellule = Target 'Memorise cellule précédente// End Sub
merci,
greg

23/09/2005, 13h18
greg778

Citation:

Envoyé par greg778

rem: un truc que j'ai remarqué aussi, c'est que si je sélectionne plusieurs cellules dans la colonne F, ça bug -> message d'erreur ds VB

ça fait la même erreur si tu sélectionnes une colonne...

tiens j'espére avoir tout corriger ...:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim mCellule As Range
Dim mVal
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not mCellule Is Nothing And Target.Cells.Count = 1 Then
If mCellule = Target Then Exit Sub ' Cas ou pas de changement de cellule
 If (Not Intersect(mCellule, Range("F10:F50")) Is Nothing) And Intersect(mCellule, Range("F10:F50")).Cells.Count = 1 Then
    If mCellule.Value <> 0 And mCellule.Value <> mVal Then
    If Not mCellule.Offset(-1, 2) + 1 = mCellule Then
           MsgBox "Attention!" & mCellule.Offset(-1, 2).Address & " +1<>  " & mCellule.Address
           'mCellule.Activate
          ' Exit Sub 'Revient sur cellule en erreur
         End If
        End If
   End If
End If
Set mCellule = Target.Cells(1, 1) 'Memorise cellule précédente//
mVal = mCellule.Value 'Memorise valeur précédente
 
End Sub

:roll: :wink:

23/09/2005, 13h46
greg778

j'ai encore une "erreur 91 : Variable objet ou Variable de bloc With non définie" quand je suis par exemple sur une cellule dans une autre colonne et que je descends à la cellule suivante avec la flèche... ??

en tout cas un grand merci, c déjà très bien

jai rajouté

Code:

And Target.Column = 6

dans la première condition pour que le test ne s'effectue que si on modifie une valeur de la colonne F, mais le problème reste le même si je clique dans une autre colonne puis dans la colonne F...

ça ne fait pas d'erreur si la cellule d'où l'on vient et où on va est vide, par contre si l'une des 2 à une valeur <> null, ça fait l'erreur!!

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Dim mCellule As Range
Dim mVal
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not mCellule Is Nothing And Target.Cells.Count = 1 And Target.Column = 6 Then
If mCellule = Target Then Exit Sub ' Cas ou pas de changement de cellule
 If (Not Intersect(mCellule, Range("F10:F197")) Is Nothing) And Intersect(mCellule, Range("F10:F50")).Cells.Count = 1 Then
    If mCellule.Value <> 0 And mCellule.Value <> mVal Then
    If Not mCellule.Offset(-1, 2) + 1 = mCellule Then
           MsgBox "Attention! Vous changez de série!"
           'mCellule.Activate
          ' Exit Sub 'Revient sur cellule en erreur
         End If
        End If
   End If
End If
Set mCellule = Target.Cells(1, 1) 'Memorise cellule précédente//
mVal = mCellule.Value 'Memorise valeur précédente
 
End Sub

oui ... cela arrive si intersection entre les 2 plages de cellules est nulle sur le test du nombre de cellule ....en écrivant le test en 2 ligne ça l'air mieux :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not mCellule Is Nothing And Target.Cells.Count = 1 Then
If mCellule = Target Then Exit Sub ' Cas ou pas de changement de cellule
 If (Not Intersect(mCellule, Range("F10:F50")) Is Nothing) Then
  If Intersect(mCellule, Range("F10:F50")).Cells.Count = 1 Then
    If mCellule.Value <> 0 And mCellule.Value <> mVal Then
    If Not mCellule.Offset(-1, 2) + 1 = mCellule Then
           MsgBox "Attention!" & mCellule.Offset(-1, 2).Address & " +1<>  " & mCellule.Address
           'mCellule.Activate
          ' Exit Sub 'Revient sur cellule en erreur
         End If
        End If
   End If
  End If
End If
Set mCellule = Target.Cells(1, 1) 'Memorise cellule précédente//
mVal = mCellule.Value 'Memorise valeur précédente
 
End Sub

23/09/2005, 14h38
greg778

merci j'essaye ça!
23/09/2005, 14h39
SfJ5Rpw8

qu'elle ligne?
23/09/2005, 14h41
greg778

j'ai rien dit!! en recopiant j'ai oublie de rajouter la déclaration des variables!!

en tout cas un tout grand merci, c nickel,
il me reste à analyser tout ça pour pouvoir le refaire....

à+,
greg
23/09/2005, 15h13
greg778

je t'embête encore!!

lorsque j'entre une nouvelle valeur et que je descends à la case du dessous avec enter ou down, ça fonctionne, mais pas quand je passe à la case de droite avec right!?! Est-ce dû au fait qu'on fait une restriction sur la colonne F??

merci
25/09/2005, 15h02
leroissejp

test lors de la perte du focus d'une cellule

Bonjour,
A bbil, est-ce que ton code fonctionne avec Excel 97, parce que j'ai voulu l'essayer et il ne se passe rien du tout. Quel résultat devrait donner ce code à l'écran ??

jpleroisse
25/09/2005, 15h27
SfJ5Rpw8

Re: test lors de la perte du focus d'une cellule

Citation:

Envoyé par leroissejp

Bonjour,
A bbil, est-ce que ton code fonctionne avec Excel 97, parce que j'ai voulu l'essayer et il ne se passe rien du tout. Quel résultat devrait donner ce code à l'écran ??

jpleroisse

pour excel 97 ... je sais pas ... sinon pour tester le code modifie données dans zone F10:F50
et lit à nouveau la demande de greg :wink:
26/09/2005, 16h00
greg778

bbil, je t'embête encore!! un dernier ptit problème...

lorsque j'entre une nouvelle valeur dans la plage vérifiée et que je descends à la case du dessous avec enter ou down, ça fonctionne, mais pas quand je passe à la case de droite avec right!?! (or c'est ce que je dois faire pour compléter ma feuille, d'abord rentrer la valeur ds la colonne F puis dans la colonne G)
Est-ce dû au fait qu'on fait une restriction sur la colonne F??

merci
26/09/2005, 16h03
SfJ5Rpw8

Citation:

Envoyé par greg778

bbil, je t'embête encore!! un dernier ptit problème...

lorsque j'entre une nouvelle valeur dans la plage vérifiée et que je descends à la case du dessous avec enter ou down, ça fonctionne, mais pas quand je passe à la case de droite avec right!?! (or c'est ce que je dois faire pour compléter ma feuille, d'abord rentrer la valeur ds la colonne F puis dans la colonne G)
Est-ce dû au fait qu'on fait une restriction sur la colonne F??

merci

que ce passe-t'il lorsque tu va vers la droite ...?
26/09/2005, 16h14
greg778

justement, il ne se passe rien! la vérification ne se fait pas...
26/09/2005, 16h16
SfJ5Rpw8

oui à force de rajouter des tests....
bon je crois que le probléme viens de cette ligne :

Code:

If mCellule = Target Then Exit Sub ' Cas ou pas de changement de cellule

remplace la par :

Code:

If (mCellule.Address = Target.Address) And (mCellule.Value = Target.Value) Then Exit Sub ' Cas ou pas de changement de cellule

:cry:
26/09/2005, 16h26
greg778

et bien non bbil, ça ne change pas...

si j'entre une nouvelle valeur ou que je modifie la valeur en F6 par exemple et que je me place sur G6 à l'aide de la flèche droite, le test ne s'effectue pas...
26/09/2005, 16h43
SfJ5Rpw8

Citation:

Envoyé par greg778

et bien non bbil, ça ne change pas...

si j'entre une nouvelle valeur ou que je modifie la valeur en F6 par exemple et que je me place sur G6 à l'aide de la flèche droite, le test ne s'effectue pas...

oui mais en F6 c'est normal la ligne :

Code:

If (Not Intersect(mCellule, Range("F10:F50")) Is Nothing) Then

limite l'action de F10 à F50 ... ( c'est toi qui as modifié cette ligne un peu plus haut...) :wink:

Voir 40 message(s) de cette discussion en une page