Bonsoir Alphonse et à tous,
Ce que je voulais dire dans ma réponse précédente, c'est de faire faire par le code de ton Usf le collage dans les feuilles Détails Chèque et Détails espèces.
J'ai ajouté des lignes dans ton code et je l'ai fait fonctionner sans soucis.
Pour chacune des deux feuilles, le nom et le montant de la colonne 'G' de la feuille 'Commandes' s'ajoutent les uns en dessous des autres dans les cellules prévues.
Voici le code de l'Usf, (j'ai ajouté :' 'ajouté' pour les lignes que j'ai faites.
Private Sub BtValider_Click()
Dim DerLigCom As Integer
Dim DerLigChe As Integer 'ajouté
Dim DerLigEsp As Integer 'ajouté
Dim Montant 'ajouté
If Me.CbMode.ListIndex = -1 Then
MsgBox 'Sélectionnez un mode de paiement.'
ElseIf Me.CbPersonnel.ListIndex = -1 Then
MsgBox 'Sélectionnez une personne.'
ElseIf Me.CbNature.ListIndex = -1 Then
MsgBox 'Sélectionnez un ticket.'
ElseIf Me.TxNombre.Value <= 0 Or Me.TxNombre.Value = '' Then
MsgBox 'Saisissez le nombre de tickets.'
Else
With Sheets('Commandes')
DerLigCom = .Range('A65536').End(xlUp).Row + 1
.Range('A' & DerLigCom) = CDate(Me.TxDate.Value)
.Range('B' & DerLigCom) = Me.CbMode.Value
.Range('C' & DerLigCom) = Me.CbPersonnel.Value
.Range('D' & DerLigCom) = Me.CbNature.Value
.Range('F' & DerLigCom) = Me.TxNombre.Value
End With
If Me.CbMode = 'Chèque' Then 'ajouté
Montant = Cells(DerLigCom, 7).Value 'ajouté
With Sheets('Details Chèques') 'ajouté
DerLigChe = .Range('A65536').End(xlUp).Row + 1 'ajouté
.Range('A' & DerLigChe) = Me.CbPersonnel.Value 'ajouté
.Range('B' & DerLigChe) = Montant 'ajouté
End With 'ajouté
End If 'ajouté
If Me.CbMode = 'Espèces' Then 'ajouté
Montant = Cells(DerLigCom, 7).Value 'ajouté
With Sheets('Détails Espèces') 'ajouté
DerLigEsp = .Range('A65536').End(xlUp).Row + 1 'ajouté
.Range('A' & DerLigEsp) = Me.CbPersonnel.Value 'ajouté
.Range('B' & DerLigEsp) = Montant 'ajouté
End With 'ajouté
End If 'ajouté
Unload Me
End If
End Sub
J'espère que celà te conviendras.
Ps. Vraiment sympa ton horloge. je vais essayer de faire ça.