macro pour liaison repetée à la ligne

[Rouxpoil]

Bonjour,
Je sollicite vos service car j'ai du mal à réaliser une macro.

Le problème :

J'ai une facture où je rentre le NOM, PRENOM, UN MONTANT. Ayant plusieurs clients dans la journée, je voudrais que lorsque je clique sur un bouton, ces trois éléments se collent dans un tableau à part. Tableau qui calculerai le total de ma journée.

Ci-joint le fichier pour que vous compreniez plus facilement.

 

[job75]

Re : cas où B12 est vide

Bonjour Rouxpoil, le forum,

Voici la macro (dans le code de la feuille) et le fichier :

Private Sub CommandButton1_Click()
If Range("B12") = "" Then MsgBox "Entrez le nom du client...", 48: Range("B12").Select: Exit Sub
Dim ref As Range
Application.ScreenUpdating = False
ActiveSheet.AutoFilterMode = False
With Range("A62:B65536")
.AutoFilter
.AutoFilter field:=1, Criteria1:=Range("B12").Value
.AutoFilter field:=2, Criteria1:=Range("B14").Value
Set ref = Range("A65536").End(xlUp)
.AutoFilter
End With
Application.ScreenUpdating = True
If ref.Address = "$A$62" Then
Set ref = Range("A65536").End(xlUp).Offset(1)
Else
If MsgBox("Ce client existe déjà, voulez-vous modifier le montant ?", 4) = 7 Then Exit Sub
End If
ref.Value = Range("B12")
ref.Offset(0, 1) = Range("B14")
ref.Offset(0, 2) = Range("total")
End Sub

A+

 

[Rouxpoil]

Re : macro pour liaison repetée à la ligne

merci à vous de m'être venu en aide