bonjour,
 
je voudrais additionner les nombres contenus ds les textbox pour les afficher ds une derniere nommée TextBoxMontantTotal
 

 
 
merci d'avance

Et qu'est-ce qui ne marche pas dans ta formule ?
 

il additionne pas il concatene

Oki il faut que tu utilise val(expression) :
 
TotalAcompte = val(TextboxMontant1)+Val(TextBoxMontant2)....
 
@+

et comment je pourrais faire une boucle pour que ça soit moins long  
genre :

Oui tu peux faire une macro comme celle-ci :

Et l'appeler quand tu la souhaites pour mettre à jour ton total (dans les procèdures textbox_change ou textbox_afterupdate par exemple).
 
@+

pourquoi ça marche pas  
 
 

 
le message d'erreur    
 
argument non facultatif => Val

Parce que tu as enlevé les parenthèses là :
Range("A4" & i).Value = Val(.Controls("TextBoxMontant" & i).Value).
 
 
Edit : et également là :If IsNumeric(Val(.Controls("TextBoxMontant" & i).Value)) = true Then  
et ici : Range("A4" & i).Value = Val(.Controls("TextBoxMontant" & i).Value)
@+

nan c est pas celui là  
 

Ben et avec les 3 ?

ça marche mais il ne fait toujours pas la difference entre un nombre et un caractere
 
le else ne  sert à rien

C'est parce que val() sur des lettres renvois toujours 0. il faut enlever le val de ton isnumeric

OK j essaye demain bonne soirée

merci watashi  
au faite ça veut dire quoi watashi ?

Ca veut dire moi ou je en japonnais, mon pseudo remonte à une certaine crise d'identité
Et sakuraba ?

heu etant fan et pratiquant de sport de combat  
je me suis approprié le prenom d'un combattant Kazushi Sakuraba japonais aussi

C'est po bien de voler      
 
 
 
lollll    

lol  
 
sinon j'ai changé isnumeric par isnumber car les nombres à virgule ne marchaient pas  
 

Je connaissais pas isnumber merci pour l'info

et ça marche toujours pa s

Redonnes ton code tel que tu l'as modifier et cequi marche pas exacteemnt. C'est toujours le else qui se fait pas ?

 
donc je voudrais faire
 
si j'ai pas eut de msgbox ouverte ds VerifAcompte j execute TotalAcompte

à la fin de Msg = MsgBox("La ligne d'acompte N° " & i & " n'est pas valide", vbCritical) j'ai mit exit sub
 
comme ça je vais pas à la fonction TotalAcompte

Ok je vois ce que tu veux faire.
 
Bon voilà ta fonction corrigée :

Mais elle marche seulement si tu mets en place pour tous tes textbox sauf montanttotal ceci :

Celà te fait : le contrôle de saisie numérique (isnumber désolée n'existe pas chez moi...) , le remplacement du "." saisi par la "," qui rend compréhensible, Ton montant total est mis à jour à chaque fin de saise dans un textbox.
 
bon courage  

oups j'ai lu et répondu sans lire ton edit faut que je regarde ton histoire de verif accompte.
 
demain par contre
 
Edit : il te manque pleins de bout sur ta sub verif accmpte ... je comprends pas bien... tu lances quand chacune des macros ?

merci trop sympa de m aider à finir cette bombe de prog lol

 
Je t'aide pas à faire des explosifs aumoins  ni a enregistrer le paiement de leur accompte    
 
lol    

lol

 
dans les fonctions j'ai des msgbox qui s'affiche s'il y a des erreurs donc je voudrais que s'il n'y a aucune msgbox qui se lance ( donc pas d erreur ds mon formulaire ) que ça deverrouille le bouton creation  
 

 

Salut
Le mieux pour ça est de créer une variable booléenne (vrai ou faux). Tu lui donne un état de base, tu exécutes ton code. En cas d'erreur (donc dans le else), tu changes l'état de ta variable. A la fin, il te suffit d'activer ou non le bouton si la valeur de ta variable est ou non identique à celui du début.
C 'est clair ??? Sinon j'écrirais ça vite fais...

Au temps pour moi ça sert à rien vu le Exit SUb...  
t'as cas désactiver le bouton au début (comme ça si tu sort de ta boucle il sera désactivé), et de le réactiver à la fin (si le programmes arrive jusque là c'est que tout c'est bien passé...).
Voilà j'espère que ça t'iras.

j'ai utilisé comme tu me l'as conseillé UserForm1.Creation.Enabled = False

C ce que tu voulais ou bien ???

oui

 
OBJET INTROUVABLE ??

trouvé j'avais supprimé une textbox