Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

XL 2016 Additionné le total des textbox dans userform

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion dede869
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
D

dede869

XLDnaute Occasionnel
Bonjour j'ai un userform qui contiens une liste box avec les nom des équipes, lorsque que je sélectionne une équipe, les noms des 4 joueurs s'affiche dans 4 textbox qui a coté de chaque nom il y a des textbox qui sert a entre des chiffre de la 1e partie, j'aimerais pouvoir visualiser le total des 4 pointage de la premiere partie en bas.

Merci de votre aide

André Fillion
 

Pièces jointes

Trier par date Trier par votes
Bonjour André 🙂

Dans listbox_click avant End Sub rajoute pour chaque textbox

On Error Resume Next
total1 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox23)
TextBox29 = total1
total2 = Val(TextBox6) + Val(TextBox12) + Val(TextBox18) + Val(TextBox24)
TextBox30 = total2
 
Dernière édition:
Vote positif 0 Vote négatif
dede869 à dit:
Bonjour et merci de ton aide mais ca ne fonctionne pas, rien ne s'incrit dans les textbon de total.
Cliquez pour agrandir...
 
Vote positif 0 Vote négatif
Re

C'est normal, il faut supprimer tout les TextBox_Change().Dans la 29 tu as laissé les conditions. Ensuite

VB: 
On Error Resume Next
total1 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox23)
TextBox29 = Val(total1)
total2 = Val(TextBox6) + Val(TextBox12) + Val(TextBox18) + Val(TextBox24)
TextBox30 = total2
total3 = Val(TextBox7) + Val(TextBox13) + Val(TextBox19) + Val(TextBox25)
Texbox31 = total3
total4 = Val(TextBox8) + Val(TextBox14) + Val(TextBox20) + Val(TextBox26)
Texbox32 = total4
total5 = Val(TextBox9) + Val(TextBox15) + Val(TextBox21) + Val(TextBox27)
Texbox33 = total5
total6 = Val(TextBox10) + Val(TextBox16) + Val(TextBox22) + Val(TextBox28)
Texbox34 = total6
End If
End Sub

Private Sub TextBox5_AfterUpdate()
total1 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox23)
TextBox29 = Val(total1)
End Sub

Private Sub TextBox11_AfterUpdate()
total1 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox23)
TextBox29 = Val(total1)
End Sub

Private Sub TextBox17_AfterUpdate()
total1 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox23)
TextBox29 = Val(total1)
End Sub

Private Sub TextBox23_AfterUpdate()
total1 = Val(TextBox5) + Val(TextBox11) + Val(TextBox17) + Val(TextBox23)
TextBox29 = Val(total1)
End Sub
 
Dernière édition:
Vote positif 0 Vote négatif


Ok ça fonctionne,merci de ton aide.
 
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

B
  • Question Question
XL 2019 Conserver les formules qui sont enregistrées dans des cellules
Réponses
8
Affichages
279
Phil69970
Z
  • Résolu(e)
Microsoft 365 (résolu) Etablir un classement avec des ex-aequo sur la base d'une autre valeur
Réponses
2
Affichages
378
zedude
Z
  • Question Question
Microsoft 365 Création d'un fichier entier par rapport à des entrées via UserForm
Réponses
1
Affichages
677
job75
R
  • Résolu(e)
Autres Masquer des lignes et colonnes en fonction d'une valeur d'un menu déroulant
Réponses
1
Affichages
512
Romain77144
R
F
  • Question Question
Microsoft 365 Pré-remplissage de champs dans UserForm
Réponses
1
Affichages
679
dysorthographie
S
  • Question Question
Access Base de données
Réponses
7
Affichages
2 K
stakoff
S
B
  • Question Question
XL 2019 Somme des valeurs d'une colonne de listbox en fonction d'un critère
Réponses
1
Affichages
916
vgendron
  • Question Question
Microsoft 365 Recherche Find : impossible dans lignes masquées par le filtre
2 3
Réponses
38
Affichages
3 K
Usine à gaz
T
  • Question Question
XL 2019 Comparer la valeur numérique de 2 textbox
Réponses
6
Affichages
1 K
terrier
T
G
  • Question Question
XL 2016 Ecrire une boucle pour afficher ensemble dans un userform, toutes ses textbox complétées par la boucle! Voir mon code et photos feuilles joints !
Réponses
8
Affichages
978
vgendron
G
  • Résolu(e)
XL 2016 Définir Boucle pour afficher plusieurs tableaux dans des textbox sur une userform (ou sur une feuille Excel)
Réponses
6
Affichages
1 K
gaby.jvx
G
S
  • Question Question
XL 2010 VBA - macro avec 1 boucle qui alterne 1 action à conditions et 1 action sans conditions
2 3 4
Réponses
58
Affichages
8 K
Scorp0211
S
  • Question Question
XL 2013 VBA - A partir d'une combobox sans doublon, afficher dans textbox les données qui ont le même nom que combobox
Réponses
7
Affichages
1 K
donpopo
T
  • Question Question
XL 2016 Modification de données sur 2 feuilles différentes via UserForm
Réponses
14
Affichages
2 K
tontonboulii
T
D
  • Résolu(e)
Microsoft 365 Afficher le calendrier dans text box
2
Réponses
24
Affichages
3 K
patricktoulon
  • Question Question
XL 2016 Somme des heures dans textbox
Réponses
4
Affichages
2 K
AIXELS
B
  • Question Question
XL 2016 UserForm avec gestionnaire de noms et tableaux
Réponses
0
Affichages
1 K
Bullrot
B
A
  • Résolu(e)
Microsoft 365 Sélection une donnée dans une ComboList et les faire s'afficher dans des TextBox et les modifier
Réponses
4
Affichages
2 K
AppleDance
A
Y
  • Question Question
XL 2016 calcul coût moyen VBA dans Userform
Réponses
0
Affichages
1 K
youpi457032
Y
  • Résolu(e)
XL 2016 Récupération de Valeur de CheckBox (dans un UserForm) et placement dans une zone de texte
Réponses
2
Affichages
2 K
Jgral
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…