Discussion :

[wecko]

Bonjour, je souhaiterai actionner ma commande VBA à la perte du focus de la case choisi.

La case (6, 3) ne doit pas aller au delas de 3 soit 1,2 ou 3 et si un autre chiffre est entré alors une msgbox apparait disant que La Catégorie doit être comprise entre 1 et 3 et tout cela après la perte du focus...

Merci de bien vouloir m'indiquer la méthode à suivre !

Code :

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

1
2
If (Sheets("fiche arrivée").Cells(2, 3) > 1 Or Sheets("fiche arrivée").Cells(2, 3) < 3) Then
MsgBox ("La Catégorie doit être comprise entre 1 et 3")

[zyhack]

dans le module de ta feuille ajoute ceci

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
If Application.Intersect(Cells(2, 3), Range(Target.Address)) Then
  If Cells(2, 3) < 1 Or Cells(2, 3) > 3 Then _
    MsgBox ("La Catégorie doit être comprise entre 1 et 3")
End If
End Sub

j'ai aussi inversé le sens des comparaison < et >

[wecko]

Merci de ta réponse mais lorsque je perd le focus, il y a une erreur:

Erreur d'éxecution '91'

Variable objet ou variable de bloc note With non définie

[zyhack]

utilise plutot ce code

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Cells(2, 3), Range(Target.Address)) Is Nothing Then
  If Cells(2, 3) < 1 Or Cells(2, 3) > 3 Then _
    MsgBox ("La Catégorie doit être comprise entre 1 et 3")
End If
End Sub

j'ai modifié une ligne

[laetitia]

Bonjour,

Peut être comme cela??

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("c3")) Is Nothing Then
If Target <> 1 And Target <> 2 And Target <> 3 Then MsgBox "La Catégorie doit être comprise entre 1 et 3"
End If
End Sub

[zyhack]

bonjour laetitia

attention ce ne serai pas plutot

Code :

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

If Not Application.Intersect(Target, Range("c2")) Is Nothing Then

a+

[laetitia]

rebonjour zyhack effectivement erreur pas bonne ligne

[wecko]

Merci beaucoup pour votre aide zyhack et laetitia mais lorsque j'ai testé le dernier code, plus rien ne se passe à la perte du focus

[zyhack]

quel code à tu essayé?

[wecko]

Celui la :

Code :

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

1
2
3
4
5
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Target, Range("c2")) Is Nothing Then
If Target <> 1 And Target <> 2 And Target <> 3 Then MsgBox "La Catégorie doit être comprise entre 1 et 3"
End If
End Sub

[zyhack]

essaye le 2eme que je t'ai donné

Code :

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

1
2
3
4
5
6
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Cells(2, 3), Range(Target.Address)) Is Nothing Then
  If Cells(2, 3) < 1 Or Cells(2, 3) > 3 Then _
    MsgBox ("La Catégorie doit être comprise entre 1 et 3")
End If
End Sub

je l'ai retesté et il fonctionne

[wecko]

A mon avis je ne l'ai pas mit au bon endroit, pouvez vous m'indiquer ou le mettre ?

[zyhack]

Dans le code de la feuille

dans vb tu double clic sur le nom de ta feuille dans la partie gauche, ce qui ouvre une fenêtre de saisie.

[wecko]

Merci beaucoup ! Ça marche très bien, je le met en résolue