Je me plante sur TxtLigne.Value = TxtLigne.Value + 1
Je voudrais tant qu'on ne clic pas sur fermer et que l'on reste donc sur la
même facture, qu'on incrémente la TxtLigne de +1
(ligne de facture 1, ligne de facture 2 etc etc...)
Je me plante sur TxtLigne.Value = TxtLigne.Value + 1 Je voudrais tant qu'on ne clic pas sur fermer et que l'on reste donc sur la même facture, qu'on incrémente la TxtLigne de +1 (ligne de facture 1, ligne de facture 2 etc etc...)
Une idée Merci Pascal
Bonjour.
Si TxtLigne est une textbox, mets :
TxtLigne.Value = CLng(TxtLigne.Value) + 1
Cordialement.
Daniel
Je me plante sur TxtLigne.Value = TxtLigne.Value + 1
Je voudrais tant qu'on ne clic pas sur fermer et que l'on reste donc sur la
même facture, qu'on incrémente la TxtLigne de +1
(ligne de facture 1, ligne de facture 2 etc etc...)
Je me plante sur TxtLigne.Value = TxtLigne.Value + 1 Je voudrais tant qu'on ne clic pas sur fermer et que l'on reste donc sur la même facture, qu'on incrémente la TxtLigne de +1 (ligne de facture 1, ligne de facture 2 etc etc...)
Une idée Merci Pascal
pb
Non j'ai essayé cela mais j'ai un message d'erreur Membre de méthode ou de données introuvables "Daniel.C" a écrit dans le message de news:
Bonjour. Si TxtLigne est une textbox, mets : TxtLigne.Value = CLng(TxtLigne.Value) + 1 Cordialement. Daniel
Je me plante sur TxtLigne.Value = TxtLigne.Value + 1 Je voudrais tant qu'on ne clic pas sur fermer et que l'on reste donc sur la même facture, qu'on incrémente la TxtLigne de +1 (ligne de facture 1, ligne de facture 2 etc etc...)
Une idée Merci Pascal
Non j'ai essayé cela mais j'ai un message d'erreur
Membre de méthode ou de données introuvables
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
unXsqWD5JHA.5048@TK2MSFTNGP03.phx.gbl...
Bonjour.
Si TxtLigne est une textbox, mets :
TxtLigne.Value = CLng(TxtLigne.Value) + 1
Cordialement.
Daniel
Je me plante sur TxtLigne.Value = TxtLigne.Value + 1
Je voudrais tant qu'on ne clic pas sur fermer et que l'on reste donc sur
la même facture, qu'on incrémente la TxtLigne de +1
(ligne de facture 1, ligne de facture 2 etc etc...)
Je me plante sur TxtLigne.Value = TxtLigne.Value + 1 Je voudrais tant qu'on ne clic pas sur fermer et que l'on reste donc sur la même facture, qu'on incrémente la TxtLigne de +1 (ligne de facture 1, ligne de facture 2 etc etc...)
Une idée Merci Pascal
Modeste
Bonsour® Daniel.C avec ferveur ;o))) vous nous disiez :
Si TxtLigne est une textbox, mets : TxtLigne.Value = CLng(TxtLigne.Value) + 1
;o))) textbox comme son nom l'indique reçoit du TEXTE
TxtLigne.Value = Str(CInt(TxtLigne.Value) + 1) ou bien TxtLigne.Value = Format(CInt(TxtLigne.Value) + 1,"# ##0")
Bonsour® Daniel.C avec ferveur ;o))) vous nous disiez :
Si TxtLigne est une textbox, mets :
TxtLigne.Value = CLng(TxtLigne.Value) + 1
;o))) textbox comme son nom l'indique reçoit du TEXTE
TxtLigne.Value = Str(CInt(TxtLigne.Value) + 1)
ou bien
TxtLigne.Value = Format(CInt(TxtLigne.Value) + 1,"# ##0")
Bonsour® Daniel.C avec ferveur ;o))) vous nous disiez :
Si TxtLigne est une textbox, mets : TxtLigne.Value = CLng(TxtLigne.Value) + 1
;o))) textbox comme son nom l'indique reçoit du TEXTE
TxtLigne.Value = Str(CInt(TxtLigne.Value) + 1) ou bien TxtLigne.Value = Format(CInt(TxtLigne.Value) + 1,"# ##0")
pb
Non dans un cas comme dans l'autre j'ai toujours ce message d'erreur
"Modeste" a écrit dans le message de news:
Bonsour® Daniel.C avec ferveur ;o))) vous nous disiez :
Si TxtLigne est une textbox, mets : TxtLigne.Value = CLng(TxtLigne.Value) + 1
;o))) textbox comme son nom l'indique reçoit du TEXTE
TxtLigne.Value = Str(CInt(TxtLigne.Value) + 1) ou bien TxtLigne.Value = Format(CInt(TxtLigne.Value) + 1,"# ##0")
Non dans un cas comme dans l'autre j'ai toujours ce message d'erreur
"Modeste" <GD@libre.fr> a écrit dans le message de news:
OVV9olD5JHA.4492@TK2MSFTNGP02.phx.gbl...
Bonsour® Daniel.C avec ferveur ;o))) vous nous disiez :
Si TxtLigne est une textbox, mets :
TxtLigne.Value = CLng(TxtLigne.Value) + 1
;o))) textbox comme son nom l'indique reçoit du TEXTE
TxtLigne.Value = Str(CInt(TxtLigne.Value) + 1)
ou bien
TxtLigne.Value = Format(CInt(TxtLigne.Value) + 1,"# ##0")
Non dans un cas comme dans l'autre j'ai toujours ce message d'erreur
"Modeste" a écrit dans le message de news:
Bonsour® Daniel.C avec ferveur ;o))) vous nous disiez :
Si TxtLigne est une textbox, mets : TxtLigne.Value = CLng(TxtLigne.Value) + 1
;o))) textbox comme son nom l'indique reçoit du TEXTE
TxtLigne.Value = Str(CInt(TxtLigne.Value) + 1) ou bien TxtLigne.Value = Format(CInt(TxtLigne.Value) + 1,"# ##0")
Daniel.C
Si la valeur de la textbox n'est pas numérique, c'est sans espoir. Ajoute : MsgBox TxtLigne.Value avant la ligne en erreur. Daniel
Non dans un cas comme dans l'autre j'ai toujours ce message d'erreur
"Modeste" a écrit dans le message de news:
Bonsour® Daniel.C avec ferveur ;o))) vous nous disiez :
Si TxtLigne est une textbox, mets : TxtLigne.Value = CLng(TxtLigne.Value) + 1
;o))) textbox comme son nom l'indique reçoit du TEXTE
TxtLigne.Value = Str(CInt(TxtLigne.Value) + 1) ou bien TxtLigne.Value = Format(CInt(TxtLigne.Value) + 1,"# ##0")
Si la valeur de la textbox n'est pas numérique, c'est sans espoir.
Ajoute :
MsgBox TxtLigne.Value
avant la ligne en erreur.
Daniel
Non dans un cas comme dans l'autre j'ai toujours ce message d'erreur
"Modeste" <GD@libre.fr> a écrit dans le message de news:
OVV9olD5JHA.4492@TK2MSFTNGP02.phx.gbl...
Bonsour® Daniel.C avec ferveur ;o))) vous nous disiez :
Si TxtLigne est une textbox, mets :
TxtLigne.Value = CLng(TxtLigne.Value) + 1
;o))) textbox comme son nom l'indique reçoit du TEXTE
TxtLigne.Value = Str(CInt(TxtLigne.Value) + 1)
ou bien
TxtLigne.Value = Format(CInt(TxtLigne.Value) + 1,"# ##0")
> ;o))) textbox comme son nom l'indique reçoit du TEXTE
Bonjour Modeste. ... et des nombres : ActiveSheet.TextBox1.Value = 1 fonctionne. Cordialement. Daniel
MichDenis
Bonjour Pb,
Pour utiliser les fonctions de conversion d'Excel, tu dois utiliser dans tes textbox le même séparateur décimale défini dans le panneau de configuration de Windows.
Par exemple, tu pourrais utiliser quelque chose comme :
Je me plante sur TxtLigne.Value = TxtLigne.Value + 1 Je voudrais tant qu'on ne clic pas sur fermer et que l'on reste donc sur la même facture, qu'on incrémente la TxtLigne de +1 (ligne de facture 1, ligne de facture 2 etc etc...)
Une idée Merci Pascal
Bonjour Pb,
Pour utiliser les fonctions de conversion d'Excel,
tu dois utiliser dans tes textbox le même séparateur décimale
défini dans le panneau de configuration de Windows.
Par exemple, tu pourrais utiliser quelque chose comme :
Je me plante sur TxtLigne.Value = TxtLigne.Value + 1
Je voudrais tant qu'on ne clic pas sur fermer et que l'on reste donc sur la
même facture, qu'on incrémente la TxtLigne de +1
(ligne de facture 1, ligne de facture 2 etc etc...)
Pour utiliser les fonctions de conversion d'Excel, tu dois utiliser dans tes textbox le même séparateur décimale défini dans le panneau de configuration de Windows.
Par exemple, tu pourrais utiliser quelque chose comme :
Je me plante sur TxtLigne.Value = TxtLigne.Value + 1 Je voudrais tant qu'on ne clic pas sur fermer et que l'on reste donc sur la même facture, qu'on incrémente la TxtLigne de +1 (ligne de facture 1, ligne de facture 2 etc etc...)
Une idée Merci Pascal
Modeste
Bonsour® Daniel.C avec ferveur ;o))) vous nous disiez :
;o))) textbox comme son nom l'indique reçoit du TEXTE
... et des nombres :
;o))) mais aussi des dates .... 3/06/2009 ;o))) mais ne pas oublier bien que ActiveSheet.TextBox1.Value = ActiveSheet.TextBox1.Text Textbox posséde les 2 propriétés Value et Text
cependant marche pas : CDate(ActiveSheet.TextBox1.Value + 1) marche pas : CDate(ActiveSheet.TextBox1.Text + 1)
;o))) toujours se méfier du typage implicite des données !!!!
Bonsour® Daniel.C avec ferveur ;o))) vous nous disiez :
;o))) textbox comme son nom l'indique reçoit du TEXTE
... et des nombres :
;o)))
mais aussi des dates ....
3/06/2009
;o)))
mais ne pas oublier bien que
ActiveSheet.TextBox1.Value = ActiveSheet.TextBox1.Text
Textbox posséde les 2 propriétés Value et Text
cependant
marche pas : CDate(ActiveSheet.TextBox1.Value + 1)
marche pas : CDate(ActiveSheet.TextBox1.Text + 1)
Bonsour® Daniel.C avec ferveur ;o))) vous nous disiez :
;o))) textbox comme son nom l'indique reçoit du TEXTE
... et des nombres :
;o))) mais aussi des dates .... 3/06/2009 ;o))) mais ne pas oublier bien que ActiveSheet.TextBox1.Value = ActiveSheet.TextBox1.Text Textbox posséde les 2 propriétés Value et Text
cependant marche pas : CDate(ActiveSheet.TextBox1.Value + 1) marche pas : CDate(ActiveSheet.TextBox1.Text + 1)
;o))) toujours se méfier du typage implicite des données !!!!
Daniel.C
> cependant marche pas : CDate(ActiveSheet.TextBox1.Value + 1) marche pas : CDate(ActiveSheet.TextBox1.Text + 1)
Normal, puisque une textbox renvoie une valeur de type string, c'est pourquoi il faut la convertir avant de réaliser une opération numérique dessus. Daniel
> cependant
marche pas : CDate(ActiveSheet.TextBox1.Value + 1)
marche pas : CDate(ActiveSheet.TextBox1.Text + 1)
Normal, puisque une textbox renvoie une valeur de type string, c'est
pourquoi il faut la convertir avant de réaliser une opération numérique
dessus.
Daniel
> cependant marche pas : CDate(ActiveSheet.TextBox1.Value + 1) marche pas : CDate(ActiveSheet.TextBox1.Text + 1)
Normal, puisque une textbox renvoie une valeur de type string, c'est pourquoi il faut la convertir avant de réaliser une opération numérique dessus. Daniel
