XL 2010 Calcul dans TextBox

[mic6259]

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

 

[mic6259]

Bonjour,
Ajoutes les 3 lignes en fin de procédure.

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

Super réponse rapide et efficace
Merci cp4
Cordialement

 

[fanfan38]

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

 

[mic6259]

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

Merci beaucoup fanfan
J'avais remarqué ce détaille et ça me convenais, mais évidemment cette proposition me convient beaucoup mieux
Cordialement

 

[mic6259]

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

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

 

[fanfan38]

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

 

[mic6259]

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

D'accord je vais voir cette après-midi, je doit m'absenter
Merci
Cordialement

 

[mic6259]

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

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

 

[mic6259]

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

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

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

 

[fanfan38]

Ci joint ma solution

A+ François

 

[mic6259]

Ci joint ma solution

A+ François

Merci beaucoup, mais comment avez vous fait pour ajouter la cellule J16 qui s'ajoute au tableau, pour moi je n'y arrive pas et j'aimerais comprendre
Cordialement

 

[mic6259]

Merci beaucoup, mais comment avez vous fait pour ajouter la cellule J16 qui s'ajoute au tableau, pour moi je n'y arrive pas et j'aimerais comprendre
Cordialement

Je me suis trompé c'est la cellule J1

 

[fanfan38]

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

  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

 

[mic6259]

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

  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

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

 

[fanfan38]

Je consulte beaucoup

Formulaire liste multi-colonnes

A+ François