activation d'une macro après sasie d'une valeur sous excel

Version imprimable

Bonjour,

Je suis débutant et j'ai une macro sous excel qui me permet de contrôle la valeur saisie dans une cellule.

Je souhaiterais que ce contrôle soit toujours actif à la saisie de la valeur.

Merci par avance pour votre aide :oops:.

Voici ma macro :
Code:

1 2 3 4 5 6 7 8 9 Sub CTRL_MT() Worksheets("toto").Select Dim V1 As Single V1 = Range("B7").Value If V1 < 21500 Or V1 > 50000 Then MsgBox "Vous devez sasir un montant entre 21500 € et 50000 €", vbAbortRetryCancel End If
End Sub

06/12/2007, 13h10
tirex28

Bonjour,

Menu Données > Validation

C'est plus fiable, plus souple et plus rapide qu'une quelconque macro.

Cordialement,

Tirex28/

Salut,

Il faut placer ton code dans l'evenement change de ta feuille :

Code:

1
2
3
4
5
6
7
8
9
10
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Row = 7 And Target.Column = 2 Then   'correspond a la cellule B7
        Dim V1 As Single
 
        V1 = Range("B7").Value
        If V1 < 21500 Or V1 > 50000 Then
            MsgBox "Vous devez sasir un montant entre 21500 € et 50000 €"
        End If
    End If
End Sub

06/12/2007, 13h20
K2O2$

Oui, ce serait plus pratique de passer par le menu validation.

Citation:

Envoyé par tirex28

...

Menu Données > Validation

C'est plus fiable, plus souple et plus rapide qu'une quelconque macro.

...

Oui mais, juste au cas où tu aurais éventuellement besoin de quelque chose que la validation ne permet pas...

À insérer dans le module de la feuille contenant la cellule à valider:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Const AdresseAValider1 As String = "B7"  ' Addresse de la cellule à valider #1
Dim PrevTargetVal1 As Variant            ' Valeur initiale de la cellule à valider #1
 
Private Sub Worksheet_Change(ByVal Target As Range)
    ' Ne fonctionnne que si une seule cellule est sélectionnée
    If Target.Cells.Count = 1 Then
        ' Si Target est la cellule B7
        If Not Intersect(Range(AdresseAValider1), Target) Is Nothing Then
            If ... valeur est erronée ... Then
                ...
                ' Remettre la valeur initiale en place et repositionner sur la cellule
                If Not IsEmpty(PrevTargetVal1) Then
                    Application.EnableEvents = False
                    Target.Value = PrevTargetVal1
                    Application.EnableEvents = True
                End If
                Target.Select
            End If
        End If
    End If
End Sub
 
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    ' Si la cellule en cours est celle à valider
    If Target.Cells.Count = 1 Then
        If Not Intersect(Range(AdresseAValider1), Target) Is Nothing Then
            ' Mémoriser la valeur initiale de la cellule
            PrevTargetVal1 = Target.Value
        End If
    End If
End Sub

06/12/2007, 21h52
pecofrou

Merci pour vos aides.

Mon problème est résolu.

:king: