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

Macro copie copie des cellules des factures dans la feuille "Synthèse"

Créer une discussion
  • Initiateur de la discussion Initiateur de la discussion flamilo
  • 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
F

flamilo

XLDnaute Junior
Bonjour, j'ai pris une macro d'une autre discussion que j'ai adapter à mes cellules, cella donne ça :

Sub Macro1()
Application.ScreenUpdating = False
' la ligne suivante efface toutes les données de la feuille "General"
Sheets("Synthèse").Rows("2:" & Range("A65535").End(xlUp).Row + 1).ClearContents
For i = 1 To Sheets.Count
derligne = Sheets("Synthèse").Range("A65535").End(xlUp).Row + 1
If Sheets(i).Name <> "Synthèse" Then
With Sheets("Synthèse")
.Cells(derligne, 1).Value = Sheets(i).[E1]
.Cells(derligne, 2).Value = Sheets(i).[E2]
.Cells(derligne, 3).Value = Sheets(i).[E4]
.Cells(derligne, 4).Value = Sheets(i).[F4]
.Cells(derligne, 5).Value = Sheets(i).[E6]
.Cells(derligne, 6).Value = Sheets(i).[E7]
.Cells(derligne, 7).Value = Sheets(i).[E9]
.Cells(derligne, 8).Value = Sheets(i).[E10]
.Cells(derligne, 9).Value = Sheets(i).[E11]
.Cells(derligne, 10).Value = Sheets(i).[F40]

End With
End If
Next i
End Sub

J'ai relié cette macro à un bouton mais mon problème est que je ne sais pas pourquoi, dès que j'actionne la macro 24 lignes sont sautées avant mes données
 

Pièces jointes

Trier par date Trier par votes
Re : Macro copie copie des cellules des factures dans la feuille "Synthèse"

merci sauf que les factures sont rangées par jour et non plus par mois (il y a plusieurs mois de septembre) et est ce possible de faire en sorte que le résultat de TOTAL ainsi que mes boutons a droite ne se décale pas vers le bas ?

Regarde le fichier
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro copie copie des cellules des factures dans la feuille "Synthèse"

Désolé j'avais oublié de rajouter le total, je l'ai mis dans le fichier joint. Je l'ai rajouté dans la macro 'Actualiser'.
Mais quand on sépare en mois, le résultat descend..
 

Pièces jointes

Vote positif 0 Vote négatif
Re : Macro copie copie des cellules des factures dans la feuille "Synthèse"

Bonsoir,

Le mieux serait de mettre
Code: 
With Sheets("Synthèse")
    .Cells(2, 15).Value = "=SUM(J:J)"
End With

à la fin de la macro Sub ParMois()
 
Vote positif 0 Vote négatif
Re : Macro copie copie des cellules des factures dans la feuille "Synthèse"

Bonjour, dans le classeur suivant j'aimerai insérer sur le premiere feuille une liste déroulante ou quelque chose dans le même genre dans le laquelle je pourrais choisir : Facture, date, prénom, nom, société, adresse, cp ville, email, montant, espèce, chèque, CESU ou non réglé.
(Ce sont les titres de mes colonnes dans la premieres feuille)
J'aimerai donc qu'en choisissant un de ses critères le tableau se range :

- en ordre alphabétique et chronologique pour : facture, prénom, nom, société, adresse, email, montant

- par mois pour la date (que les factures du mois de juin se regroupent avec le montant du mois de juin à coté puis on saute une ligne et les factures du mois de juillet suivent.... etc)

- par arrondissement pour le code postale (que les factures de l'arrondissement se regroupent avec le montant de l'arrondissement à coté puis on saute une ligne etc....)

- par mode de paiement pour "espèce, chèque, CESU et non réglé"

C'est surement possible mais je ne sais pas comment... pourriez-vous m'aider ?
 

Pièces jointes

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
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
482
CortoXls
C
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
146
Electron24
C
  • Résolu(e)
XL 2013 Renvoyer 2 dans la cellule
Réponses
2
Affichages
261
candido57
C
M
  • Question Question
XL 2013 MACRO VBA pour imprimer tous les bulletins d'un établissement scolaire
Réponses
4
Affichages
507
MBEPID
M
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
245
KRUG WOO
K
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
111
patricktoulon
B
  • Question Question
XL 2013 Comment trier les nom des feuilles et fusionner leur tableaux dans une une autre feuille ?
Réponses
10
Affichages
698
Compte Supprimé 979
C
A
  • Résolu(e)
XL 2016 Recherche d'un mot dans une cellule et surlignage de la ligne
Réponses
4
Affichages
219
Abi23
A
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
180
kiki29
  • Résolu(e)
XL 2019 macro avec fonction copié coller si rempli par la macro
Réponses
12
Affichages
276
AtTheOne
A
  • Question Question
XL 2019 Copie d'une valeur dans la cellule à côté d'une valeur trouvé
Réponses
1
Affichages
135
sylvanu
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
919
laurent950
S
  • Résolu(e)
Microsoft 365 Mailing mise en forme HTML : revenir à la ligne automatique si trop de texte saisie
2
Réponses
17
Affichages
539
spike29
S
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
508
Jojo973
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
540
jeff1494
  • Résolu(e)
Microsoft 365 Vba : Transférer des données d'un tableau dans un autre fichier
Réponses
7
Affichages
570
Chaton77
S
  • Résolu(e)
Microsoft 365 VBA Concaténer contenu de plusieurs cellules dans une seule avec séparateurs / évolutifs
Réponses
3
Affichages
300
spike29
S
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
495
telemarrk
T
D
  • Question Question
XL 2021 Filtre Multi Critères Listview VBA
2
Réponses
21
Affichages
2 K
Dranreb
J
  • Question Question
Microsoft 365 Copie des onglets dans un fichier séparé depuis une liste en VBA
Réponses
3
Affichages
145
job75
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…