Pour un ami artisan et pour chercher à apprendre, j’essaye de créer un facturier. En m’aidant de différent forum, j’ai pu avancer un peu (CF en P.J.).
Je bloque en ce moment sur le problème suivant.
J’aimerai saisir sur la feuille « Cumul » un devis ou facture.
Ce que je cherche à faire, c’est avec la feuille “ Facture“, ne rentrer que le n° de facture créé dans “Cumul“ pour que tous les renseignements s’affichent dans les cases idoines.
J’espère que mes explications ne sont pas trop brouillonnent.
En revanche la colonne Qté de la feuille "Cumul", semble ne pas se reporter sur le feuille "Facture".
J'ai essayé de copier coller ta formule dans la colonne en changeant "Code article" par Qté, mais ça ne fonctionne pas. Une piste ?
Sub Nouvelle_facture()
'Avertissement avant effacage
Dim Rep As Integer
Rep = MsgBox("Attention, la facture sera effacée, l'avez-vous sauvegardée ? Sinon choisir Le bouton cumul avant", vbYesNo + vbQuestion, "mDF XLpages.com")
If Rep = vbYes Then
Else
Exit Sub
End If
' Nouvelle_facture Macro
With Sheets("Facture")
.Range("B11") = Range("B11") + 1
.Range("D10") = "" 'Select
.Range("I3:J3").ClearContents
.Range("A18:A37").ClearContents
.Range("E18:E37").ClearContents
.Range("E39:E40").ClearContents
.Range("G42").ClearContents
.Range("G44").ClearContents
End With
histoire d'enlever les .select laissés par l'enregistreur, mais sans optimiser les codes
Sub Nouvelle_facture()
'Avertissement avant effacage
Dim Rep As Integer
Rep = MsgBox("Attention, la facture sera effacée, l'avez-vous sauvegardée ? Sinon choisir Le bouton cumul avant", vbYesNo + vbQuestion, "mDF XLpages.com")
If Rep = vbYes Then
Else
Exit Sub
End If
' Nouvelle_facture Macro
With Sheets("Facture")
.Range("B11") = Range("B11") + 1
.Range("D10") = "" 'Select
.Range("I3:J3").ClearContents
.Range("A18:A37").ClearContents
.Range("E18:E37").ClearContents
.Range("E39:E40").ClearContents
.Range("G42").ClearContents
.Range("G44").ClearContents
End With
histoire d'enlever les .select laissés par l'enregistreur, mais sans optimiser les codes
En fait, maintenant qu'à partir de la feuille "Facture", je peux chercher, avec le n° de facture, la facture, reconstituée, je vais saisir les factures dans la feuille cumul. La macro ne servira donc plus.
En revanche merci de vos contributions car ils m'en apprennent beaucoup sur la possibilité d'aborder de différentes façons un même sujet.
En revanche, y a-t'il une autre façon d'aborder la formule ci-dessous en VBA ?