Discussion :

[greg778]

j'aurai pu mieux m'exprimer, j'ai mais F6 comme j'aurai pu mettre F265 !
j'ai bien vérifié sur la plage F10:F197 que j'ai définie et la procédure ne se fait pas...

tu n'as pas le même problème??

[SfJ5Rpw8]

j'aurai pu mieux m'exprimer, j'ai mais F6 comme j'aurai pu mettre F265 !
j'ai bien vérifié sur la plage F10:F197 que j'ai définie et la procédure ne se fait pas...

tu n'as pas le même problème??

ben non sa marche... redonne nous ton code modifié au cas ou ...

[greg778]

voilà...

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
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.Address = Target.Address) And (mCellule.Value = Target.Value) Then Exit Sub   ' Cas ou pas de changement de cellule
 If (Not Intersect(mCellule, Range("F10:F197")) Is Nothing) Then
  If Intersect(mCellule, Range("F10:F197")).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
End If
Set mCellule = Target.Cells(1, 1) 'Memorise cellule précédente//
mVal = mCellule.Value 'Memorise valeur précédente
 
End Sub

[SfJ5Rpw8]

c'est quoi :

Code :

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

And Target.Column = 6

la colonne 6 c'est F si tu te déplace vers la droite tu passe sur la colonne G , la 7 donc le reste du code n'est pas effectué... pourquoi as tu rajouter ce test ?

:

[greg778]

bien vu bbil,

c t un reste de test que j'avais mis au début...

c nickel, encore un tout grand merci,

à+,
greg