Enregistrement et copie feuil1 sur une feuil2 du même classeur

[apdf]

Bonjour,

J'ai un formulaire que j'enregistre dans un dossier nommé "Factures" par le nom du client et par le N° de facture avec l'aide de JCGL qui marche trés bien et que je salut au passage. J'aimerais pour finaliser mon formulaire que lorsque j'enregistre, les données de la feuille "facture" se copie vers la feuille "Facture client" qui se trouve sur le même classeur.
Je joint mon classeur qui seras plus parlant

Merci d'avance

Cordialement

Max

 

[phlaurent55]

Re : Enregistrement et copie feuil1 sur une feuil2 du même classeur

Bonjour Max,

ce que tu demandes est déjà présent dans le code ..........

' Enregistrement ou mise à jour infos Facture
Private Sub SaveInfos(Facture As Worksheet, FactureClients As Worksheet, ByVal i As Long)
With FactureClients
  .Rows(i).Insert Shift:=xlDown
  .Cells(i, 1) = Facture.Range("L4")                    ' Réf
  .Cells(i, 2) = Facture.Range("N11")                   ' N°
  .Cells(i, 3) = Facture.Range("I17")                   ' Date
  .Cells(i, 4) = Facture.Range("I10")                   ' N° Facture
  .Cells(i, 5) = Facture.Range("C13")                   ' Nom
  .Cells(i, 7) = Facture.Range("C14")                   ' Adresse
  .Cells(i, 8) = Facture.Range("C15")                   ' Code P.
  .Cells(i, 9) = Facture.Range("F15")                   ' Ville
  .Cells(i, 10) = Facture.Range("C16")                   ' Tél.
  .Cells(i, 11) = Facture.Range("F16")                  ' Portable
  .Cells(i, 12) = Facture.Range("C17")                  ' Fax
  .Cells(i, 13) = Facture.Range("F17")                  ' E-mail
  .Cells(i, 3).NumberFormat = "m/d/yyyy"
  '.Hyperlinks.Add .Cells(i, 5), SaveFacture(Facture)    ' Lien hyperlink
  .Cells(i, 5).Font.Size = 9
  .Cells(i, 14) = Facture.Range("J36")                  ' Montant HT
  .Cells(i, 15) = Facture.Range("J38")                  ' Montant TVA 19.6 %
  .Cells(i, 16) = Facture.Range("J39")                  ' Montant TVA 5.5 %
  .Cells(i, 18) = Facture.Range("J41")                  ' Montant TTC
  .Cells(i, 17) = Facture.Range("J40")                  ' Montant TVA
End With
MsgBox "Infos facture " & Sh1.Range("I10") & " enregistrées !", 64
End Sub

............. le problème vient de la variable i
je remplacerais -----> Rows(i).Insert Shift:=xlDown
par ----------------> Rows(6).Insert Shift:=xlDown

ensuite il faudra modifier les ------> .Cells(i, .......
et les remplacer par --------------> .Cells(6, .....

je me pose des questions au sujet de 64 à la fin du MsgBox ??????????
si ce nombre est en relation avec le contenu de la colonne B, la manière de s'y prendre n'est pas bonne

à+
Philippe

 

[Efgé]

Re : Enregistrement et copie feuil1 sur une feuil2 du même classeur

Bonjour apdf, Bonjour phlaurent55 🙂, Bonjour JC si tu passes par là 🙂 ,__Le 64 sert à afficher le "Information" de la message Box__Cordialement

 

[apdf]

Re : Enregistrement et copie feuil1 sur une feuil2 du même classeur

Bonjour Philippe, Efgé,

Je te remercie Philippe mais j'ai fait comme tu la décrit mais je ne comprend pas il y a que deux colonnes qui s'affiche "n12 et n11" a tu une solution

Merci d'avance

Le code modifier

' Enregistrement ou mise à jour infos Facture
Private Sub SaveInfos(Facture As Worksheet, FactureClients As Worksheet, ByVal i As Long)
With FactureClients
  .Rows(6).Insert Shift:=xlDown
  '.Cells(6, 1) = Facture.Range("L4")                    ' Réf
  .Cells(6, 2) = Facture.Range("N12")                   ' N°
  .Cells(6, 3) = Facture.Range("I17")                   ' Date
  .Cells(6, 4) = Facture.Range("N11")                   ' N° Facture
  .Cells(6, 5) = Facture.Range("C13")                   ' Nom
  .Cells(6, 7) = Facture.Range("C14")                   ' Adresse
  .Cells(6, 8) = Facture.Range("C15")                   ' Code P.
  .Cells(6, 9) = Facture.Range("F15")                   ' Ville
  .Cells(6, 10) = Facture.Range("C16")                   ' Tél.
  .Cells(6, 11) = Facture.Range("F16")                  ' Portable
  .Cells(6, 12) = Facture.Range("C17")                  ' Fax
  .Cells(6, 13) = Facture.Range("F17")                  ' E-mail
  .Cells(6, 3).NumberFormat = "m/d/yyyy"
  .Hyperlinks.Add .Cells(i, 5), SaveFacture(Facture)    ' Lien hyperlink
  .Cells(6, 5).Font.Size = 9
  .Cells(6, 14) = Facture.Range("J36")                  ' Montant HT
  .Cells(6, 15) = Facture.Range("J38")                  ' Montant TVA 19.6 %
  .Cells(6, 16) = Facture.Range("J39")                  ' Montant TVA 5.5 %
  .Cells(6, 18) = Facture.Range("J41")                  ' Montant TTC
  .Cells(6, 17) = Facture.Range("J40")                  ' Montant TVA
End With
'MsgBox "Infos facture " & Sh1.Range("I10") & " enregistrées !"
End Su

@+

Max

 

[phlaurent55]

Re : Enregistrement et copie feuil1 sur une feuil2 du même classeur

Re

je ne comprend pas il y a que deux colonnes qui s'affiche "n12 et n11" a tu une solution

pourrais-tu préciser davantage ? ici tout fonctionne

je joint le fichier pour que tu puisses tester

à+
Philippe

 

[apdf]

Re : Enregistrement et copie feuil1 sur une feuil2 du même classeur

Re,

Tu as raison j'ai trouvé mon erreur il fallait mettre la ligne ci-dessous en premier.

Call SaveInfos(Sheets("Facture"), Sheets("FactureClients"), lRow)

dans le code que tu as supprimer pour le test.

par la même occasion pourrez tu me dire comment puige faire pour mettre le lien ci dessous dans la feuille "FactureClients"

'.Hyperlinks.Add .Cells(i, 6), SaveFacture(Facture)    ' Lien hyperlink

de façon a rappeler la facture en cliquant dessus

Merci d'avance et bonne journée


@+

Max

 

[phlaurent55]

Re : Enregistrement et copie feuil1 sur une feuil2 du même classeur

Re,

par la même occasion pourrez tu me dire comment puige faire pour mettre le lien ci dessous dans la feuille "FactureClients"

Code :
'.Hyperlinks.Add .Cells(i, 6), SaveFacture(Facture) ' Lien hyperlink



de façon a rappeler la facture en cliquant dessus

à mon grand regret, je ne suis pas un champion en ce qui concerne les liens Hypertexte 😡😡😡

par contre je remarque que tu fais une erreur avec:
.Hyperlinks.Add .Cells(i,..........
.Hyperlinks.Add .Cells(6,.........

à+
Philippe

 

[apdf]

Re : Enregistrement et copie feuil1 sur une feuil2 du même classeur

Re,

Je te remercie encore je vais essayer de mettre un post que pour se code.

Je te souhaite une bonne journée

@+

Max