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