Discussion :

[jpfouquette]

Bonjour,

J'ai décidé pour faciliter mon travail de créer un fichier excel facilitant le paiement de mes clients, pour cela j'ai déjà effectué entre autre :

Un bouton sur excel
Qui m'ouvre un Userform, une fois que je rempli cet Userform (4 TextBox + 1 ComboBox )
Les données sont reparti sur une feuille pour faire un reçu

Jusque là tout fonctionne.

Maintenant j'aimerais savoir si il serait possible ques ces données remplies dans mon userform soit également retransmise autre part (autrement dit sur une autre feuille) je pense que oui mais comment demander cette double répartition ?
Et surtout j'aimerais que sur cette 2e feuilles les données soit reportées à chaque fois sur une nouvelle ligne et là j'avoue que je bloque complétement...


Enfin petite question au passage,
Quand sur mon "reçu" les données s'affichent est-il possible qu'après avoir imprimé ce reçu les données s'effacent ? (actuellement les données restent jusqu'à ré-utilisation) c'est un détail certe mais sait-on jamais.

Merci d'avance

[casefayere]

Re,

si ton fichier est le même que ton avant dernier problème, un exemple à adapter et surtout à comprendre avant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CommandButton1_Click()
Dim dl As Long
With Sheets("Reçu")
  .Range("C10").Value = TextBox1.Value
  .Range("C12").Value = TextBox2.Value
  .Range("C17").Value = TextBox3.Value
  .Range("C18").Value = ComboBox1.Value
  .Range("C14").Value = TextBox4.Value
End With
With Sheets("Journal")
  dl = .Range("A" & .Rows.Count).End(xlUp).Row + 1
  .Range("A" & dl).Value = TextBox1.Value
  .Range("B" & dl).Value = TextBox2.Value
  .Range("C" & dl).Value = TextBox3.Value
  .Range("D" & dl).Value = ComboBox1.Value
  .Range("E" & dl).Value = TextBox4.Value
End With

[jpfouquette]

Merci bien, étant plus qu'un débutant tu m'aides beaucoup !