comparer un textbox avec la valeur d'une cellule

[natorp]

bonjour à tous

j'aimerais comparer la valeur numérique entrée dans un textbox avec le contenu numérique d'une cellule

Dim pages As Variant
pages = Cells(3, 16)
If pages > TextBox1 Then
MsgBox "Vous devez entrez un nombre de pages supérieur !", vbCritical, "Erreur de saisie"
Exit Sub
End If

j'arrive bien à récupérer la valeur pages, mais le test ne se fait pas....

merci d'avance

Gérard

 

[@+Thierry]

Bonjour Natord et WElcome to XLD

ben si tu déclare Page as Variant c'est normal... Essaie en Integer ou en Double (selon si ce sont des numérique entiers ou pas que tu as à gérer...)

voici un exemple de procédure pour avec les tests pour ton cas :

Option Explicit

Private Sub CommandButton1_Click()
Dim pages As Double
Dim MaRange As Range
Set MaRange = ThisWorkbook.Sheets("Feuil1").Range("P3")

If Not IsNumeric(MaRange) Then
MsgBox "La Valeur en Cellule P3 n'est pas Numérique", vbCritical, "Erreur de saisie"
Exit Sub
End If
If Not IsNumeric(TextBox1) Then
MsgBox "La Valeur de la TextBox1 n'est pas Numérique", vbCritical, "Erreur de saisie"
Exit Sub
End If
pages = MaRange
If pages > TextBox1 Then
MsgBox "Vous devez entrez un nombre de pages supérieur !", vbCritical, "Erreur de saisie"
Exit Sub
Else: MsgBox "Bingo"
End If
End Sub

Bon Dimanche
@+Thierry

 

[natorp]

merci de ta réponse

avec double ça fonctionne exactement comme j'ai besoin....

bonsoir
Gérard

 

[@+Thierry]

You are Welcome Gérard

(encore un Gérard !)

​

@+Thierry​