Bonjour,
Je cherche depuis un petit moment sur le net mais sans trouver la réponse à mon problème !
Voilà, j'ai réalisé un formulaire.
Dans celui-ci, j'ai une textbox nommé "TxtNumPF" qui doit contenir un chiffre entier
J'ai réalisé la programmation pour éviter que ma textbox "TxtNumPF"soit vide ou contienne du texte...ça pas de soucis !
La ou j'ai un soucis c'est quand je compare la valeur de la texbox à la valeur de ma cellule active !
Code :
Private Sub BoutonOK_Click()
....
....
....
Range("a1" ).Offset(1, 0).Select
Do While Not IsEmpty(ActiveCell.Value)
If ActiveCell.Value = TxtNumPF.Value Then
MsgBox prompt:="Le numéro de Protuit fini existe déjà !!! ", Buttons:=vbExclamation, Title:="ERREUR DE SAISIE"
Exit Sub
Else
ActiveCell.Offset(1, 0).Select
End If
Loop
....
....
....
end sub
et ma boucle lorsque ma cellule active et ma textbox on la même valeur n'affiche pas le message et continue à boucler !
Alors j'ai trouvé d’où venait le problème :
-> En mode pas à pas, la valeur de ma cellule active = 99 et la valeur de ma textbox = "99"
et j'arrive pas à transformer ma textbox pour éviter les "" !?
Avez-vous la solution ?
