XL 2010 Calcul dans TextBox

M

mic6259

XLDnaute Occasionnel
Bonjour
Pourriez-vous m'aidais pour que dans le TextBox4 calcul de TextBox2 multiplier par TextBox3 et dans Textbox7 multiplier TextBox5 par TextBox6
Merci beaucoup
 

Pièces jointes

  • A Modifier.xlsm
    27.9 KB · Affichages: 4
Trier par date Trier par votes
M

mic6259

XLDnaute Occasionnel
cp4 à dit:
Bonjour,
Ajoutes les 3 lignes en fin de procédure.
VB: 
Private Sub ComboBox1_Change()

   Dim Ligne As Long
   Dim AA As Integer
   If Me.ComboBox1.ListIndex = -1 Then Exit Sub
   Ligne = Me.ComboBox1.ListIndex + 2
   For AA = 1 To 8
      Me.Controls("TextBox" & AA) = Ws.Cells(Ligne, AA + 1)
   Next AA
   Sheets("Comptes").Activate
   ln = ComboBox1.ListIndex + 2
   Sheets("Comptes").Range("A" & ln & ":K" & ln).Select

   TextBox4 = CDbl(TextBox2.Value) * CDbl(TextBox3.Value)
   TextBox7 = CDbl(TextBox5.Value) * CDbl(TextBox6.Value)
   TextBox8 = CDbl(TextBox4.Value) + CDbl(TextBox7.Value)
End Sub
Cliquez pour agrandir...
Super réponse rapide et efficace
Merci cp4
Cordialement
 
Vote positif 0 Vote négatif
fanfan38

fanfan38

XLDnaute Barbatruc
Bonjour
Je me permets car j'ai modifié ton fichier
les données sont sous forme tableau structuré (les formules se recopie automatiquement, entre autre)
et j'ai completé les autres boutons

A+ François
 

Pièces jointes

  • A Modifier.xlsm
    28.6 KB · Affichages: 3
Vote positif 0 Vote négatif
M

mic6259

XLDnaute Occasionnel
fanfan38 à dit:
Bonjour
Je me permets car j'ai modifié ton fichier
les données sont sous forme tableau structuré (les formules se recopie automatiquement, entre autre)
et j'ai completé les autres boutons

A+ François
Cliquez pour agrandir...
Bonjour fanfan
Excusez-moi encore une fois.
Voilà, votre solution est très bien mais pour ajouter d'autres TextBox je sais le faire, le problème c'est que sur votre fichier je n'y arrive pas.
Pourriez vous me donner la solution
Merci beaucoup
 
Vote positif 0 Vote négatif
fanfan38

fanfan38

XLDnaute Barbatruc
Bonjour
Je t'en ai ajouté quelques uns
Clic sur ceux à supprimer et appuie sur supprimer
Pour modifier les étiquettes clic droit propriété
Pour d'autre renseignement soit précis...
A+ François
 

Pièces jointes

  • A Modifier.xlsm
    29 KB · Affichages: 3
Vote positif 0 Vote négatif
M

mic6259

XLDnaute Occasionnel
fanfan38 à dit:
Bonjour
Je t'en ai ajouté quelques uns
Clic sur ceux à supprimer et appuie sur supprimer
Pour modifier les étiquettes clic droit propriété
Pour d'autre renseignement soit précis...
A+ François
Cliquez pour agrandir...
Voila je viens de voir le fichier, comment peut-on ajouter Dans la cellule J1 Nombre de Personnes qui fais partie de Tableau T_Compte pour que je puisse avoir le total de TexteBo2+TextBox5
Merci pour votre patiente
 
Vote positif 0 Vote négatif
M

mic6259

XLDnaute Occasionnel
fanfan38 à dit:
Bonjour
Je t'en ai ajouté quelques uns
Clic sur ceux à supprimer et appuie sur supprimer
Pour modifier les étiquettes clic droit propriété
Pour d'autre renseignement soit précis...
A+ François
Cliquez pour agrandir...
fanfan38 à dit:
Bonjour
Je me permets car j'ai modifié ton fichier
les données sont sous forme tableau structuré (les formules se recopie automatiquement, entre autre)
et j'ai completé les autres boutons

A+ François
Cliquez pour agrandir...
Voila je viens de voir le fichier, comment peut-on ajouter Dans la cellule J1 Nombre de Personnes qui fais partie de Tableau T_Compte pour que je puisse avoir le total de TexteBo2+TextBox5
Merci pour votre patiente
 
Vote positif 0 Vote négatif
fanfan38

fanfan38

XLDnaute Barbatruc
VB: 
Private Sub CommandButton2_Click() 'enregistrer
 Dim Ligne As Long, AA As Integer 'déclaration des variables
 If Me.LabelNew.Visible = True Then 'si nouvel enregistrement on ajoute une ligne
   If [T_Compte].Item(1, 1) <> "" Then ln = [T_Compte].Rows.Count + 1 Else ln = 1
 Else
   If Me.ComboBox1.ListIndex = -1 Then Exit Sub 'sinon la ligne est egal au choix du combobox+1
   ln = Me.ComboBox1.ListIndex + 1
 End If
 If MsgBox("Confirmez-vous l'enregistrement de ce contact ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
  [T_Compte].Item(ln, 1) = Me.ComboBox1.Value
  For AA = 1 To 9 'boucle sur les 9 textbox
   If Me.Controls("TextBox" & AA).Visible = True Then 'si textbox est visible
    If AA = 1 Then 'si textbox1 enreg une date
     [T_Compte].Item(ln, AA + 1) = CDate(Me.Controls("TextBox" & AA)) 'AA+1 car la colonne=N° du textbox+1
    Else 'sinon enreg un nombre
     [T_Compte].Item(ln, AA + 1) = CDbl(Me.Controls("TextBox" & AA))
    End If
   End If
  Next AA
 End If
 Unload Me 'ferme l'userform
 UserForm2.Show 'ouvre l'userform (remise à zéro de tous les contrôles)
End Sub
De plus quand le textbox2 ou 5 change je rempli la textbox9
Code: 
  If IsNumeric(Me.TextBox2.Value) And IsNumeric(Me.TextBox5.Value) Then
    Me.TextBox9.Value = CDbl(Me.TextBox2.Value) + CDbl(Me.TextBox5.Value)
  End If
A+ François
 
Vote positif 0 Vote négatif
M

mic6259

XLDnaute Occasionnel
fanfan38 à dit:
VB: 
Private Sub CommandButton2_Click() 'enregistrer
 Dim Ligne As Long, AA As Integer 'déclaration des variables
 If Me.LabelNew.Visible = True Then 'si nouvel enregistrement on ajoute une ligne
   If [T_Compte].Item(1, 1) <> "" Then ln = [T_Compte].Rows.Count + 1 Else ln = 1
 Else
   If Me.ComboBox1.ListIndex = -1 Then Exit Sub 'sinon la ligne est egal au choix du combobox+1
   ln = Me.ComboBox1.ListIndex + 1
 End If
 If MsgBox("Confirmez-vous l'enregistrement de ce contact ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
  [T_Compte].Item(ln, 1) = Me.ComboBox1.Value
  For AA = 1 To 9 'boucle sur les 9 textbox
   If Me.Controls("TextBox" & AA).Visible = True Then 'si textbox est visible
    If AA = 1 Then 'si textbox1 enreg une date
     [T_Compte].Item(ln, AA + 1) = CDate(Me.Controls("TextBox" & AA)) 'AA+1 car la colonne=N° du textbox+1
    Else 'sinon enreg un nombre
     [T_Compte].Item(ln, AA + 1) = CDbl(Me.Controls("TextBox" & AA))
    End If
   End If
  Next AA
 End If
 Unload Me 'ferme l'userform
 UserForm2.Show 'ouvre l'userform (remise à zéro de tous les contrôles)
End Sub
De plus quand le textbox2 ou 5 change je rempli la textbox9
Code: 
  If IsNumeric(Me.TextBox2.Value) And IsNumeric(Me.TextBox5.Value) Then
    Me.TextBox9.Value = CDbl(Me.TextBox2.Value) + CDbl(Me.TextBox5.Value)
  End If
A+ François
Cliquez pour agrandir...
Super merci beaucoup fanfan
Je commence a comprendre le tableau structuré
C'est la première fois que j'utilise ce genre de fichier
Un grand merci
Cordialement
 
Vote positif 0 Vote négatif

Discussions similaires

D
  • Question
XL 2013 Calcul age dans userforme
2
Réponses
22
Affichages
579
patricktoulon
patricktoulon
G
  • Question
XL 2016 Compte à rebours dans un userform
2
Réponses
15
Affichages
615
patricktoulon
patricktoulon
kkamadou
  • Question
importation de donnees dans un fichier excel dans un formulaire
Réponses
3
Affichages
426
kkamadou
kkamadou
lestoiles1
  • Question
XL 2013 Multiplier les données dans la colonne BCDEF selon la quantité dans la colonne G
Réponses
1
Affichages
125
sylvanu
sylvanu
B
  • Résolu(e)
Microsoft 365 affecter des valeurs dans un tableau de noms de variable
Réponses
4
Affichages
733
bérylion
B
S
  • Résolu(e)
XL 2016 Copier/Coller des cellules en multipliant par des cellules sur une autre page
Réponses
3
Affichages
542
migau
migau
crole18
  • Question
XL 2021 Formule bizarre besoin d'aide merci
Réponses
3
Affichages
119
C'est papy Mougeot !
C'est papy Mougeot !
C
  • Question
Microsoft 365 Calcul de la répartition de prime
Réponses
2
Affichages
197
CathU
C
A
  • Résolu(e)
XL 2013 Calcule de produit dans un textbox
Réponses
6
Affichages
427
Appo1985
A
A
  • Résolu(e)
XL 2013 Calcule de produit dans un textbox
Réponses
3
Affichages
376
job75
job75

Membres actuellement en ligne

8 membres et 92 invités.

Partager cette page

Tutos vidéos

Power Query : Ajouter des requêtes (Excel et Power BI)
Créez votre première fonction LAMBDA dans Excel en 3 étapes!
LAMBDA, l’arme secrète de Microsoft pour Excel !
Office Insider - Découvrez les nouveautés Excel avant tout le monde

Statistiques des forums

Discussions
315 126
Messages
2 116 491
Membres
112 763
dernier inscrit
issam2020