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 ?

Personne n'a la solution a mon problème ?

Réponse trouvé il fallait mettre ActiveCell.text