Discussion :

[pecofrou]

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 .

Voici ma macro :

Code :

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

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

[tirex28]

Bonjour,

Menu Données > Validation

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


Cordialement,

Tirex28/

[K2O2$]

Salut,

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

Code :

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

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

[K2O2$]

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

[Singular]

...

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 :

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
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

[pecofrou]

Merci pour vos aides.

Mon problème est résolu.