Transfert données textbox+

Excel
1

Bonjour tout le forum,

dans le fichier ci-joint je voudrai faire ce qui suit;

lorsque je fais appel au UserForm CALCUL depuis l’onglet Feuil1, je clique sur une ligne de données dans la Listbox.

  1. Si ensuite je saisi une somme pour un acompte et que je clique sur le bouton TRANSFERER ACOMPTE EN CAISSE je voudrai que ce montant s’inscrive dans l’onglet CAISSE dans la colonne du mois en cours et à la ligne qui correspond au nom du Textbox10 du UserForm CALCUL.

  2. Une fois l’acompte saisi, il affichera en Textbox9 le solde restant. Si je clique alors sur le bouton TRANSFERER SOLDE RESTANT EN CAISSE il devra ajouter ce montant à l’inscription acompte faite dans l’onglet CAISSE.

Cela doit absolument se faire ainsi si possible.
J’ai mis des codes aux boutons respectifs mais je n’arrive pas à faire le transfert.

Merci de bien vouloir m’aider pour cela.

Rubis57
Rubis57-Transfert_Données_Textbox.xlsm (55,0 Ko)

2

Re,

Essaie :

Private Sub CommandButton3_Click()
  Dim Ligne As Variant, Mois As Long, col As Long
  Mois = Month(Date)
  With Sheets("CAISSE")
    Ligne = Application.Match(Me.TextBox10, .[B:B], 0)
    If IsNumeric(Ligne) Then
      col = Mois + 3
      Application.Index(.[A1:O13], Ligne, col) = Replace(Me.TextBox7.Text, ",", ".")
      
    End If
  End With
  Sheets("CAISSE").Activate
End Sub

Private Sub CommandButton4_Click()
  Dim Ligne As Variant, Mois As Long, col As Long
  Mois = Month(Date)
  With Sheets("CAISSE")
    Ligne = Application.Match(Me.TextBox10, .[B:B], 0)
    If IsNumeric(Ligne) Then
      col = Mois + 3
      Application.Index(.[A1:O13], Ligne, col) = Application.Index(.[A1:O13], Ligne, col) + _
        Replace(TextBox9.Text, " €", "")
    End If
  End With
  Unload Me
  Sheets("CAISSE").Activate
  Unload Me
End Sub

Daniel

1 « J'aime »
3

Re,

Super, :+1:cela me convient et fonctionne très bien.

A une prochaine certainement.

Rubis57