Problème avec une TextBox
Bonjour,
Je code le rendu d'un livre (l'emprunt ne pose aucun problème), il suffit pour une personne de noter le numéro de livre dans une textbox et cela doit permettre au livre d'être remis à la disposition des clients en enlevant la date de rendu dans le gestionnaire. Voici le code qui s'y réfère.
Le problème vient de
Je code le rendu d'un livre (l'emprunt ne pose aucun problème), il suffit pour une personne de noter le numéro de livre dans une textbox et cela doit permettre au livre d'être remis à la disposition des clients en enlevant la date de rendu dans le gestionnaire. Voici le code qui s'y réfère.
Le problème vient de
i = numdoc.Text + 1
Private Sub CommandButton4_Click()
i = numdoc.Text + 1
If Feuil1.Cells(i, 1) = "" Then
MsgBox ("Ce document n'existe pas, veuillez recommencer")
ElseIf Feuil1.Cells(i, 5) = "" Then
MsgBox ("Ce document n'était pas emprunté,veuillez recommencer")
Else
Feuil1.Cells(i, 5) = ""
End If
numdoc = ""
End Sub
2 réponses
-
Re,
quel probleme ...??????
Avez-vous mis un point d'arret pour verifier la variable i ???? -
ModérateurBonjour,
Votre TextBox numdoc, comme tous les textbox, renvoie un String (chaîne de caractères). Essayez de transformer ce String en Integer, comme ceci :i = CInt(numdoc.Text) + 1
-
Bonjour pijaku et bonne annee
Dans un autre message de AntoineDr, je lui est mis un exemple code avec declaration de la variable i, mais il est vrai que que la conversion chaine/entier devrait etre faites
https://forums.commentcamarche.net/forum/affich-31358104-conserver-les-donnees-d-un-userform-a-l-autre#p31359228
je precise que c'est pour de l'excel2011 (mac) et avec les differents essais que j'ai fait y a pas de probleme donc .....§§§§ -
Modérateur@f894009Salut f894009,
J'ai vu ton exemple.
Je n'ai apporté ici ma petite pierre que pour un éventuel internaute ayant le même souci.
Donc, problème résolu.
Bonne journée et bonne année à toi.
A+ -
-
