aide pour facturation

Créer une discussion
Répondre
  • Initiateur de la discussion Initiateur de la discussion tama10
  • 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
T

tama10

XLDnaute Nouveau
Bonjour, je suis nouveaux et j'aurais besoin d'aide.
Je suis en train d'installer une petite facturation sur Excel et j'aimerais mettre en place une macro qui me permette lorsque j'appuie sur un bouton de sauvegarder les factures dans la feuille "contenu facture".
Voilà, je compte sur vous cela fait pas mal de temps que je suis dessus en vain
merci
 

Pièces jointes

Dernière édition:
Trier par date Trier par votes
Re : aide pour facturation

Salut
Bienvenu sur ce site
Mais tu n'a pas posté au bon endroit
Il faut que tu post sur le Forum Excel
Si tu t'y connais un peu en Vba, je peux te passer un fichier, assez poussé, mais pas encore terminé
Cordialement
 
Vote positif 0 Vote négatif
Re : aide pour facturation

Bonjour et bienvenue



Voici une macro qui fait ce que tu souhaites
Code: 
Sub recopiefact()
Dim s1 As Worksheet, s2 As Worksheet, fin&, t
Set s1 = Sheets("creation Facture")
Set s2 = Sheets("Contenu facture")
With s1
t = Array(.[D17], .[C21], .[F10], .[F11], .[F12], .[G12], _
        .[B25], .[G25], .[H25], .[I25], _
        .[B26], .[G26], .[H26], .[I26], _
        .[B27], .[G27], .[H27], .[I27], _
        .[B28], .[G28], .[H28], .[I28], _
        .[B29], .[G29], .[H29], .[I29], _
        .[B30], .[G30], .[H30], .[I30], _
        .[B31], .[G31], .[H31], .[I31], _
        .[B32], .[G32], .[H32], .[I32], _
        .[B33], .[G33], .[H33], .[I33], _
        .[B34], .[G34], .[H34], .[I34], _
        .[B35], .[G35], .[H35], .[I35], _
        .[I40], .[I41], .[I42])
End With
fin = s2.[A65536].End(xlUp).Offset(1).Row
s2.Range(s2.Cells(fin, "A"), s2.Cells(fin, "BA")) = t
End Sub

Pour la faire fonctionner
Dans Excel
1) Outils/Macros/Microsoft Visual Basic Editor
2) Insertion/Module
3) Copier/Coller les lignes bleus dans ce module
4) Retourner dans Excel (ALT+Q)
5)Outils/Macros/recopiefact (cliquer sur Exécuter)

EDITION: comme tu es débutant en VBA, je rajoute une pièce jointe avec le VBA incorporé.
 

Pièces jointes

Dernière édition:
Vote positif 0 Vote négatif
Re : aide pour facturation

Re
il me plait bien ce petit bout de code et quand j'ai voulu l'adapter il ne veut pas y mettre toutes les lignes (environ 45)
Y a t'il un moyen de le faire évoluer ?
en tous les cas je suis un peu jaloux de vos capacités à façonner excel
Chapeau bas à tous
 
Vote positif 0 Vote négatif
Re : aide pour facturation

Merci beaucoup pour votre réponse.
C'est exactemlent ce que je rechercher.
Dire que j'ai mis plusieurs mois en vain...
J'ai une derniere petite question, est ce qu'il est possible d'ajouter une feuille ou il soit possible de visualiser chaque facture?en cliquant sur le n° de facture?
Après tout sera parfait.
Merci
 
Vote positif 0 Vote négatif
Re : aide pour facturation

Bonjour le forum
pourquoi c'est limité ?
je m'explique le code ci dessous est à son max
si on y ajoute une ligne => message d'erreur "trop de caractères de continuité de ligne"
Code: 
Sub recopiefact()
Dim s1 As Worksheet, s2 As Worksheet, fin&, t
Set s1 = Sheets("creation Facture")
Set s2 = Sheets("Contenu facture")
With s1
t = Array(.[D17], .[C21], .[F10], .[F11], .[F12], .[G12], _
        .[B25], .[G25], .[H25], .[I25], _
        .[B26], .[G26], .[H26], .[I26], _
        .[B27], .[G27], .[H27], .[I27], _
        .[B28], .[G28], .[H28], .[I28], _
        .[B29], .[G29], .[H29], .[I29], _
        .[B30], .[G30], .[H30], .[I30], _
        .[B31], .[G31], .[H31], .[I31], _
        .[B32], .[G32], .[H32], .[I32], _
        .[B33], .[G33], .[H33], .[I33], _
        .[B34], .[G34], .[H34], .[I34], _
        .[B35], .[G35], .[H35], .[I35], _
        .[B36], .[G36], .[H36], .[I36], _
        .[B37], .[G37], .[H37], .[I37], _
        .[B38], .[G38], .[H38], .[I38], _
        .[B39], .[G39], .[H39], .[I39], _
        .[B40], .[G40], .[H40], .[I40], _
        .[B41], .[G41], .[H41], .[I41], _
        .[B22], .[G42], .[H42], .[I42], _
        .[B43], .[G43], .[H43], .[I43], _
        .[B44], .[G44], .[H44], .[I44], _
        .[B45], .[G45], .[H45], .[I45], _
        .[B46], .[G46], .[H46], .[I46], _
        .[B47], .[G47], .[H47], .[I47], _
        .[I50], .[I51], .[I52])
End With
fin = s2.[A65536].End(xlUp).Offset(1).Row
s2.Range(s2.Cells(fin, "A"), s2.Cells(fin, "BA")) = t
End Sub
 
Vote positif 0 Vote négatif
Re : aide pour facturation

Re, bonjour tactic6


Et comme cela tu as assez d'items dans ton tableau 😉
Code: 
Sub ok()
Dim t, s As Worksheet
Set s = Feuil1
With s
t = Array(.[D17], .[C21], .[F10], .[F11], .[F12], .[G12], .[B25], .[G25], .[H25], .[I25], _
        .[B26], .[G26], .[H26], .[I26], .[B27], .[G27], .[H27], .[I27], .[B28], .[G28], .[H28], .[I28], .[B29], .[G29], .[H29], .[I29], _
        .[B30], .[G30], .[H30], .[I30], .[B31], .[G31], .[H31], .[I31], .[B32], .[G32], .[H32], .[I32], .[B33], .[G33], .[H33], .[I33], _
        .[B34], .[G34], .[H34], .[I34], .[B35], .[G35], .[H35], .[I35], .[B36], .[G36], .[H36], .[I36], .[B37], .[G37], .[H37], .[I37], _
        .[B38], .[G38], .[H38], .[I38], .[B39], .[G39], .[H39], .[I39], .[B40], .[G40], .[H40], .[I40], .[B41], .[G41], .[H41], .[I41], _
        .[B22], .[G42], .[H42], .[I42], .[B43], .[G43], .[H43], .[I43], .[B44], .[G44], .[H44], .[I44], .[B45], .[G45], .[H45], .[I45], _
        .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], _
        .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], _
        .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], _
        .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], _
        .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], _
        .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], _
        .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], _
        .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], _
        .[B34], .[G34], .[H34], .[I34], .[B35], .[G35], .[H35], .[I35], .[B36], .[G36], .[H36], .[I36], .[B37], .[G37], .[H37], .[I37], _
        .[B38], .[G38], .[H38], .[I38], .[B39], .[G39], .[H39], .[I39], .[B40], .[G40], .[H40], .[I40], .[B41], .[G41], .[H41], .[I41], _
        .[B22], .[G42], .[H42], .[I42], .[B43], .[G43], .[H43], .[I43], .[B44], .[G44], .[H44], .[I44], .[B45], .[G45], .[H45], .[I45], _
        .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], _
        .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], _
        .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], _
        .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], _
        .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], _
        .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], _
        .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], _
        .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47], .[B46], .[G46], .[H46], .[I46], .[B47], .[G47], .[H47], .[I47])
        End With
MsgBox UBound(t)
End Sub

Plus d'infos dans l'aide de VBA
caractère de continuité de ligne
Caractère composé d'un espace suivi d'un trait de soulignement ( _) et utilisé dans l'environnement de développement pour répartir une même ligne logique de code sur plusieurs lignes physiques. Les caractères de continuité de ligne ne permettent pas de scinder une ligne de code dans une expression de chaîne.
Cliquez pour agrandir...
 
Dernière édition:
Vote positif 0 Vote négatif
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

M
  • Résolu(e)
XL 2016 creation d'un logicile de facturation
Réponses
3
Affichages
222
MALKO
M
S
  • Résolu(e)
Microsoft 365 Choisircols et ajout de colonne
Réponses
14
Affichages
255
AtTheOne
AtTheOne
M
  • Résolu(e)
XL 2016 Comment contourner la fonction Indirect d'Excel avec code VBA
Réponses
11
Affichages
449
ma6me
M
C
  • Question Question
XL 2021 Planning emplacements camping et facture
Réponses
9
Affichages
310
fanfan38
fanfan38
S
  • Question Question
Microsoft 365 Consolider des données de plusieurs feuilles
Réponses
2
Affichages
231
Sissou71
S
D
  • Résolu(e)
XL 2019 Nouveau Numéro
2 3 4
Réponses
57
Affichages
2 K
patricktoulon
patricktoulon
S
  • Question Question
Microsoft 365 Tableaux Structurées : récupérer des données uniques pour consolider un bilan
Réponses
4
Affichages
251
vgendron
vgendron
P
  • Question Question
XL 2019 Créer des formules dans un tableau croisé dynamique
Réponses
10
Affichages
388
merinos-BernardEtang
merinos-BernardEtang
C
  • Question Question
XL 2021 Excel facturation avec BD clients (modèle utilisable joint) - liste déroulante =INDIRECT sur classeur séparé
Réponses
12
Affichages
974
Calizarine
C
R
  • Résolu(e)
Microsoft 365 Champ recherche ou liste déroulante...
Réponses
3
Affichages
195
vgendron
vgendron
M
  • Question Question
XL 2021 Aide pour sauvegarde des données dans un calendrier automatique Excel
Réponses
2
Affichages
107
mimednejma
M
N
  • Résolu(e)
Autres Aide pour planning 3x8 (15 personnes)
2 3
Réponses
30
Affichages
876
NVE
N
D
  • Question Question
XL 2021 Création d’un logiciel de livraison
Réponses
1
Affichages
228
Victor21
Victor21
A
  • Question Question
Microsoft 365 Macro pour recherche de cellules entre 2 fichiers Excel
Réponses
7
Affichages
202
AtTheOne
AtTheOne
J
  • Question Question
Microsoft 365 userform avec contrôle image
Réponses
12
Affichages
295
JULLIEN Philippe
J
S
  • Question Question
XL 2019 Fichier de tirage au sort sans doublons avec valeurs en plus
Réponses
1
Affichages
302
sylvanu
sylvanu
ob7523
  • Question Question
XL 2016 consommation électrique
Réponses
4
Affichages
145
ob7523
ob7523
D
  • Question Question
XL 2021 3 problèmes : Bouton VBA (fusion et suppression) & doublons
Réponses
4
Affichages
508
Dubuyz1
D
D
  • Question Question
Microsoft 365 Code VBA pour date DD/MM/YYYY
Réponses
6
Affichages
310
Staple1600
Staple1600
vgendron
  • Question Question
XL 2021 VBFlexGrid / Combolist
Réponses
6
Affichages
422
vgendron
vgendron
Retour