Probleme d'ajout de données en vba

[cass]

Bonsoir,

dans ma feuille "facturation", j'ai crée une facture en bas de la facture un boutton qui me permet (un fois la facture rempli) de "valider" ma facture. J'aimerais bien que les les cellules D14, D15, I11 et L52 se copient dans la feuille "journal de vente " en ligne 4 et que la facture nouvellement enregistré fasse désendre les autres .

@+

 

[@+Thierry]

Bonsoir Cass

Il y aurait pas mal de trucs à arranger mais là je vais me coucher, mais pour une première approche suite à ta question :

Private Sub validation_Click()
Dim L As Integer

With Facturation
If .Range("i11") = "" Or .Range("d14") = "" Or .Range("d15") = "" Or .Range("l52") = 0 Then
MsgBox "Tous les champs ne sont pas remplis !"
Exit Sub
End If
End With


With Sheets("Journal vente")
L = .Range("B65536").End(xlUp).Row + 1
.Range("B" & L) = Facturation.Range("D15")
.Range("C" & L) = Facturation.Range("I11")
.Range("D" & L) = Facturation.Range("D14")
.Range("E" & L) = Facturation.Range("L52")
End With

End Sub

Bonne Nuit
@+Thierry

 

[cass]

bonjour Thierry,

Merci pour la rapidité de ta réponse (vu a l'heure ou j'ai posté mon message )

@++