Problème texbox vba excel

tienouu Messages postés 2 Date d'inscription   Statut Membre Dernière intervention   -  
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   -
Bonjour,
je vous écris car j'ai un problème dans une macro affectée à un bouton excel.
En effet dans le programme qui suit, lorsque je l'exécute, je suis confronté à une Erreur 424 "Objet requis" dès la premiere ligne
Je ne comprends pas et vous demande donc de l'aide. Voici le code:

Sub Bouton17_QuandClic()
'controles
If zone1.Text = "" Or zone2.Text = "" Or zone3.Text = "" Or zone4.Text = "" Then
MsgBox ("Veuillez entrer une adresse IP")
Else
If Not IsNumeric(Val(zone1.Text)) Or Not IsNumeric(Val(zone2.Text)) Or Not IsNumeric(Val(zone3.Text)) Or Not IsNumeric(Val(zone4.Text)) Then
MsgBox ("Veuillez saisir une adresse IP de type numérique")
Else
If Val(zone1.Text) >= 255 Or Val(zone1.Text) <= 0 Or Val(zone2.Text) >= 255 Or Val(zone2.Text) < 0 Or Val(zone3.Text) >= 255 Or Val(zone3.Text) < 0 Or Val(zone4.Text) >= 255 Or Val(zone4.Text) < 0 Then
MsgBox ("Veuillez entrer des valeurs comprise entre 0 et 255")
Else
'classe
If Val(zone1.Text) = 127 Then
MsgBox ("Valeur 127 interdite")
Else
If Val(zone1.Text) > 0 And Val(zone1.Text) < 127 Then
Range("G7") = "A"
Else
If Val(zone1.Text) > 127 And Val(zone1.Text) < 192 Then
Range("G7") = "B"
Else
If Val(zone1.Text) >= 192 And Val(zone1.Text) < 255 Then
Range("G7") = "C"
End If
End If
End If
End If
End If
End If
End If
A voir également:

1 réponse

Réponse 1 / 1
gbinforme Messages postés 14946 Date d'inscription   Statut Contributeur Dernière intervention   4 724
 
bonjour

Ce n'est pas facile de voir ton problème car l'on ne sait pas à quoi correspondent tes "zones" et si ce sont des contrôles sur une feuille il faudrait faire référence à la feuille concernée si ta macro n'est pas sur la feuille.
0