somme à l'interieur des textboxs

[nrdz83]

Bonsoir à tous, voila ma demande dans le classeur ci-joint je cherche à réaliser plusieurs fonctions dans une texbox.

Dans la textbox 17,
-je cherche à la bloquée, c'est à dire quelle soit bloquée à l'écriture.
- Dans cette textbox le résultat des textbox 3 à 16.
- Si il y a la possibilité d'imposer que le résultat de la textbox 17 soit < ou = à la textbox 2 (nb de voix). Si le résultat est > alors l'imposé par msgbox.

D'avance merci à tous pour votre aide, et de m'indiquer si c'est réalisable, mes amitiés .

 

[skoobi]

Re : somme à l'interieur des textboxs

Bonsoir nrdz83,

Je suppose que tu veux additionner les textbox.
De plus, un label est plus approprié qu'un textbox pour le total non?
Ci-joint une proposition en ce sens.

 

[jp14]

Re : somme à l'interieur des textboxs

Bonsoir nrdz83
Bonsoir skoobi

Ci joint le fichier avec
Somme des votes.
Message d'alerte si le nombre de voix et supérieur au nombre de votants.
Filtre au niveau de la saisie ( a tester)

JP

 

[nrdz83]

Re : somme à l'interieur des textboxs

Bonsoir skoobi, merci pour ton concour effectivement le label est plus approprié et je n'y pensé pas du tout.
C'est tout à fait ce dont je recherchais et ton code fonctionne impécable.
Par contre j'ai essayé de l'adapté à mon programme et la hic j'ai cette erreur, pourrais tu me guider sur cette erreur ?

Private Sub CommandButton1_Click()
Dim Resultat As Integer, i As Integer
For i = 3 To 16
  Resultat = Resultat + Val(Controls("TextBox" & i).Value)
Next
If Resultat > TextBox2.Value Then
  MsgBox "Le total doit être inférieur ou égal au nombre de voix.", vbExclamation
  Lb_Total.Caption = ""
Else: Lb_Total.Caption = Resultat
End If
Dim TBox As Control, [COLOR="Red"]i As Byte,[/COLOR] Derlig As Integer, Col As Byte
With Sheets("Feuil1")
For Each TBox In Me.Controls
If Left(TBox.Name, 7) = "TextBox" Then
Col = CDbl(Right(TBox.Name, Len(TBox.Name) - 7)) + 8
    If Col > 10 And Col < 25 Then
    If IsNumeric(TBox) Then
    .Cells(idxLig, Col) = CDbl(TBox)
    End If
End If
End If
Next TBox
End With
Unload UserForm1
End Sub

D'avance merci à tous mes amitiés

 

[nrdz83]

Re : somme à l'interieur des textboxs

Bonsoir jp14 desolé nos messages ce sont croisés, c'est tout à fait ce dont je recherchais, et trés original le fait de "faire voter les morts".
Je vais essayer d'adapter ce code à mon programme.

Encore un grand merci à vous tous mes amitiés 😎

 

[Cousinhub]

Re : somme à l'interieur des textboxs

Bonsoir,

Mr Bean....

Regarde la définition de tes variables....

Dim Resultat As Integer, i As Integer

en première ligne...

et ensuite :

Dim TBox As Control, i As Byte, Derlig As Integer, Col As Byte

Il fait quoi, du "i", VBA?

de l'Integer, ou du Byte?

Amicalement

 

[skoobi]

Re : somme à l'interieur des textboxs

Oula attention!

Tu déclares les variables à des endroits différents.
Déja, il faut toujours déclarer les variables au début d'un code et comme tu re-déclares "i" après l'avoir fais au début...

Edit: salut Hub, ça fait plaisir de te croiser 🙂. En fait, notre ami nrdz83 a surement fait un simple "copie/colle" de mon code...

Edit2: oupppsss, pas vu JP, salut 🙂

 

[BOISGONTIER]

Re : somme à l'interieur des textboxs

Bonsoir,

Totalisation au fur et à mesure de la saisie avec module de classe (éventuellement contrôles)

JB

 

[nrdz83]

Re : somme à l'interieur des textboxs

rebonsoir à tous boisgontier, jp14, bhbh,skoobi,
j'ai sauvegardé ton classeur boisgontier il me servira surement un de ces jours.

Effectivement skoobi j'avais copié les deux codes, mais je viens de noter ton anotation sur les variables (en fait j'en note tellement que je m'y perd par moment), oups.

Bhbh je regarde tes explications et j'ai trouvé mon erreur merci. (Tu peux constater que je met en applications tes remarques judicieuses et conseillères, tout à fait normal d'ailleur.)

JP14 j'ai réussi à adapter ton code à mon classeur et que du bonnheur et encore merci.

En conclusion un trés grand merci à vous tous pour votre aides, remarques et observations.

Toutes mes amitiés Mr bean 😎