Problème avec une TextBox

Fermé
AntoineDr Messages postés 15 Date d'inscription jeudi 8 janvier 2015 Statut Membre Dernière intervention 11 janvier 2015 - Modifié par AntoineDr le 11/01/2015 à 14:42
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 - 12 janv. 2015 à 12:07
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
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

f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
Modifié par f894009 le 11/01/2015 à 14:49
Re,

quel probleme ...??????

Avez-vous mis un point d'arret pour verifier la variable i ????
0
AntoineDr Messages postés 15 Date d'inscription jeudi 8 janvier 2015 Statut Membre Dernière intervention 11 janvier 2015
11 janv. 2015 à 14:54
Mis un point d'arrêt ?

Je me rend compte que je n'ai pas déclarer la variable déjà avec un
Dim i as Integer
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
11 janv. 2015 à 14:57
Re,

c'est ce qu'il faut faire normalement. Est-ce qu'apres la declaration ca marche???
0
AntoineDr Messages postés 15 Date d'inscription jeudi 8 janvier 2015 Statut Membre Dernière intervention 11 janvier 2015
11 janv. 2015 à 15:25
Cela ne fonctionne toujours pas le problème est toujours au même endroit.
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751
12 janv. 2015 à 07:55
Bonjour,

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

0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
Modifié par f894009 le 12/01/2015 à 11:46
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 .....§§§§
0
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 751 > f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024
12 janv. 2015 à 12:03
Salut 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+
0
f894009 Messages postés 17205 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 19 octobre 2024 1 709
12 janv. 2015 à 12:07
Re,

Donc, problème résolu. Sais pas, a pas repondu
0