Pb de formules

[Alphonse]

Bonjour a tous, voici mon probleme :
J'ai une feuille Commandes, Détails Chèque, détails espèces.
J'ai eu une formule qui me permetait 'de filtré' c'est a dire que les lignes de payements par chèque sur la feuille commandes se reporté sur la feuille Détails chèque et de mm pour espèce.

En esperant que vous ayé compris ma demande je vous remerci par avance [file name=2_20051101124527.zip size=41879]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/2_20051101124527.zip[/file]

 

[aguwar]

Bonjour Alphonse et à tous,

Pourquoi pas dans 'BtValider_Click' juste avant 'With Sheets('Commandes')' ne pas faire :
Si 'chèque' Alors coller la variable dans la feuille 'Détails Chèques'
et idem pour Espèces.
Si cela est possible bien sur.

Pour ma part, je trouve ton fichier très très bien.

 

[Marc_du_78]

Bonjour le forum, aguwar, Alphonse
Désolé de ne pouvoir t'aider, débutant, pourrais-tu me dire comment tu obtients ta pendule sur ta feuille commande
En te souhaitant une bonne fin de journée.

 

[Alphonse]

je l'ai eu sur ce forum lol mais si tu veux je te l'envoie

 

[Marc_du_78]

Bonsoir le forum, Alphonse
Oui c'est bien volontiers et je t'en remercie

 

[Alphonse]

et voila monsieur
Lien supprimé

 

[Alphonse]

aguwar écrit:

Bonjour Alphonse et à tous,

Pourquoi pas dans 'BtValider_Click' juste avant 'With Sheets('Commandes')' ne pas faire :
Si 'chèque' Alors coller la variable dans la feuille 'Détails Chèques'
et idem pour Espèces.
Si cela est possible bien sur.

Pour ma part, je trouve ton fichier très très bien.

Je ne comprend pas , J'attend une solution merci a vous

 

[Marc_du_78]

Bonsoir le forum, Alphonse
Grand merci pour le lien que tu m'as donné
Bonne soirée

 

[aguwar]

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.

 

[Alphonse]

Etant débutant pourrais tu me la mettre a la suite du bouton valider de mon userform ?



Merci de ton aide

 

[aguwar]

Bonjour à tous, bonjour Alphonse

Drôlement bien ton fichier pour un débutant.
En réalité il n'y a pas besoin de bouton, les commandes sont ajoutées à celles de la USF.
Comme je l'ai fait fonctionner dans ton fichier, je le renvoi modifié sous le nom de 'Formule3'.
A plus si tu veux. [file name=Formule3.zip size=48615]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Formule3.zip[/file]