Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

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

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion apdf
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

S'inscrire
A

apdf

XLDnaute Occasionnel
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
 
Dernière édition:
Trier par date Trier par votes
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 ..........
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
 
Dernière édition:
Vote positif 0 Vote négatif
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
 
Dernière édition:
Vote positif 0 Vote négatif
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

Code: 
' 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
 
Dernière édition:
Vote positif 0 Vote négatif
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
Cliquez pour agrandir...
pourrais-tu préciser davantage ? ici tout fonctionne

je joint le fichier pour que tu puisses tester

à+
Philippe
 

Pièces jointes

Vote positif 0 Vote négatif
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.

Code: 
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"

Code: 
'.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
 
Vote positif 0 Vote négatif
Re : Enregistrement et copie feuil1 sur une feuil2 du même classeur

Re, à 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
 
Dernière édition:
Vote positif 0 Vote négatif
Identifiez-vous ou inscrivez-vous pour participer.
Rejoins nos membres "Supporter XLD" et booste ton expérience Excel !
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

C
  • Question Question
XL 2021 Cellules qui ne s'effacent pas sur formulaire et renvoi de valeurs du formulaire
Réponses
1
Affichages
497
gbinforme
G
  • Résolu(e)
Microsoft 365 Save qu'une feuille d'un classeur
Réponses
4
Affichages
779
Electron24
B
  • Question Question
XL 2019 ventiler une base de données sur plusieurs feuilles d'un même classeur
Réponses
5
Affichages
725
bernardhericher
B
C
  • Résolu(e)
XL 2016 VBA : inversion de Date sur Range.Resize ... = Tableau après Transpose du Tableau
Réponses
2
Affichages
249
crocrocro
C
M
  • Résolu(e)
Microsoft 365 enregistrement copie du classeur ouvert avec mot de passe et incrémentation
2
Réponses
27
Affichages
2 K
meyscal
M
C
  • Question Question
XL 2016 Copier et coller une valeur dans plusieurs Listobjects d'une même feuille
Réponses
5
Affichages
465
chris
  • Question Question
XL 2021 Accélérer la copie du classeur actif faite par vba
2 3 4
Réponses
45
Affichages
3 K
Usine à gaz
H
  • Résolu(e)
Microsoft 365 Incrémentation d'un numéro de devis/facture
2
Réponses
24
Affichages
2 K
dysorthographie
  • Question Question
XL 2016 Transfert feuilles vers nouveau classeur - Activation du contenu ?
Réponses
11
Affichages
883
job75
B
  • Question Question
XL 2016 Macro pour identifier un texte dans un tableau et appliquer une modification sur une cellule sur la même ligne
Réponses
5
Affichages
561
ChTi160
  • Résolu(e)
XL 2021 Faire une copie de mon classeur quand "Target" change
2 3
Réponses
30
Affichages
3 K
Usine à gaz
I
  • Question Question
XL 2016 Mon code VBA me renvoi une erreur
Réponses
6
Affichages
776
INFINITY100
I
M
  • Question Question
Microsoft 365 Macro enregistrement PDF avec nom dans une cellule
Réponses
2
Affichages
1 K
kiki29
A
  • Question Question
XL 2013 Macro pour copier des colonne d'une feuille A dans un classeur sur une feuille B dans un autre classeur .
Réponses
7
Affichages
1 K
Hasco
  • Question Question
Microsoft 365 Rechercher dans feuil2 sans l'activer et coller si trouvé en Feuil1
Réponses
6
Affichages
715
Usine à gaz
  • Question Question
XL 2021 Collecter des données et les restituer après mise en forme dans un autre onglet
Réponses
8
Affichages
708
JoBar57
P
  • Résolu(e)
Microsoft 365 Transfert de ligne sur une autre feuille du même fichier selon condition.
Réponses
9
Affichages
1 K
Phil69970
L
  • Question Question
XL 2019 Trouver la data correspondant selon un tableau ; deux colonnes et une ligne.
2 3 4
Réponses
54
Affichages
3 K
job75
Y
  • Résolu(e)
XL 2016 Transfère des données réparties sur des lignes à une base de données
2
Réponses
19
Affichages
2 K
soan
S
  • Question Question
XL 2019 Extraire données d'un classeur vers un autre en réorganisant et renommant les colonnes
Réponses
10
Affichages
2 K
XLSM75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…