Encore un problème UserForm

[koukou40]

Re,
Encore un problème !
Tout est expliqué dans le fichier joint...

Encore merci pour vos efforts.🙂

koukou40


Cijoint.fr - Téléchargement du fichier

 

[skoobi]

Re : Encore un problème UserForm

Re,

le lien vers le premier fichier ne marche pas.

 

[koukou40]

Re : Encore un problème UserForm

Le premier lien est obsolète, c'est le second le + important !

koukou40

 

[jeanpierre]

Re : Encore un problème UserForm

Bonsoir koukou40, skoobi,

Le second ne donne aucune explication.... (rien d'expliqué dedans)
Peux-tu poser, ici, ta question clairement ?

A te lire.

Bonne nuit.

Jean-Pierre

 

[koukou40]

Re : Encore un problème UserForm

En effet, avec une petite explication cela sera plus clair !
Donc je voudrais d'une part, que les valeurs des 4 textbox soient "copiés" dans l'onglet concerné et d'autre part que le total de ces textbox s'affiche dans l'USF.

Merci
koukou40

 

[skoobi]

Re : Encore un problème UserForm

Re,

salut jeanpierre 🙂,

koukou40, voici le code du bouton "Total PA" modifié à ta demande:

Private Sub CommandButton1_Click()
derlig = [E65536].End(xlUp).Row + 1
For t = 1 To 4 ' Step 3
   If Controls("TextBox" & t).Value <> "" Then
      tot = tot + CDbl(Controls("TextBox" & t).Value)
      Sheets("Report Saisie").Cells(derlig, t).Value = Controls("TextBox" & t).Value
   End If
Next
With Sheets("Report Saisie")
.Activate
.Range("E" & derlig) = tot
End With
TextBox5.Value = tot

End Sub