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"

Bonsoir flamilo, le forum,

La macro fonctionne parfaitement, c'est la mise en forme des lignes grise une sur deux qui pose problème, elle sont considéré comme des données.

En les supprimant pas de soucis.

Bonne soirée

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

Merci, beaucoup pour votre réponse j'y avais pas du tout pensé au tableau.

J'ai une autre question si vous pouvez y répondre :
Sur mes facture j'ai des cases à cocher concernant le moyen de paiement, savez comment je pourai les relier à la feuille "Synthèse" sans pour à chaque fois choisir la cellule liée pour chacune des cases ?
Ce serait génial si vous pouviez m'aider,

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

Bonsoir,

Dans ton modele, tu peux utiliser des boutons d'options qui sont plus appropriés pour ce cas ce figure.
Tu lies ces boutons à une cellule pour laquelle tu mets la police en blanc ou un format nombre perso ;;; (je ne l'ai pas fait dans le classeur joint pour que tu vois le fontionnement. Il faudra que tu le fasse dans le modèle)
Ensuite dans ta macro, il te suffira de tester cette cellule et de ventiler la bonne valeur dans la bonne colonne.

J'ai modifié le code et testé sur de nouvelles factures.
 

Pièces jointes

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

En fait je vois pas trop la différence entre ces boutons d'option des cases à cocher. Quelle est la macro que je dois insérer ? Désolé je ne suis pas très doué sur excel et encore moins en langage vba. Si tu pouvez m'envoyer un exemple ce serait génial !
 
Vote positif 0 Vote négatif
Re : Macro copie copie des cellules des factures dans la feuille "Synthèse"

Bonjour,

L'exemple est dans la fichier 🙂
La différence entre les boutons d’options et les cases à cocher c’est que les boutons d’options permettent 1 choix parmi 4 (dans ton cas) alors que la case à cocher permet plusieurs choix parmi 4.
Dans ton cas de figure, l’intérêt est de limiter le risque d’erreur (impossible de cocher 2 options à la fois) et de renvoyer le choix dans une seule cellule.
Dans ton modèle tu places les boutons d’options qui se réfèrent à une cellule, E48 actuellement (j’ai fait la modif dans ton modèle)
Ensuite, il ne reste plus qu’à intégrer dans la macro “actualiser” le contrôle du contenu de E48 et de le ventiler dans ta synthèse le résultat (1, 2, 3 ou 4).
J’ai rajouté un bout de code qui fait ça. Il met une croix dans la bonne cellule.

L’exemple fonctionne à partir de la facture 6, je n’ai pas refait les anciennes facture basées sur des cases à cocher.

Il ne te reste plus qu'à masquer la cellule E48 (où de la mettre ailleurs)

Si tu as d’autres questions n’hésite pas.
 
Dernière édition:
Vote positif 0 Vote négatif
Re : Macro copie copie des cellules des factures dans la feuille "Synthèse"

Je vois pas la macro sur aucune des feuilles ... ni sur le module, je comprends pas trop pourquoi. Tu pourrai essayer de me renvoyer le fichier ou tout simplement de copier la macro sur le forum ?
Merci beaucoup en tout cas !
 
Vote positif 0 Vote négatif
Re : Macro copie copie des cellules des factures dans la feuille "Synthèse"

C'est parfait Gareth MERCI beaucoup !! j'ai juste un petit détail à régler :
les boutons d'options de la feuille "Modèle" sont pris en compte quand j'actualise donc tout en haut j'ai en 2è ligne avant la facture 10001 : modèle
Est- ce que possible de faire en sorte qu'il ne soit pas visible ?
 
Vote positif 0 Vote négatif
Re : Macro copie copie des cellules des factures dans la feuille "Synthèse"

Bonsoir,

En regardant vite fait, peut etre en modifiant :
Code: 
If Sheets(i).Name <> "Synthèse" Then

en

Code: 
If Sheets(i).Name <> "Synthèse" And Sheets(i).Name <> "Modèle" Then
 
Vote positif 0 Vote négatif
Re : Macro copie copie des cellules des factures dans la feuille "Synthèse"

C'est bon la ligne modèle a disparu merci !

J'ai une derniere question (désolé me m'acharner 🙂) : J'ai créer un bouton en plus, relié à une macro pour ranger par mois (voir fichier joint) mais la forme (remplissage,gras, etc...) de la premiere ligne se décale à chaque clic tout comme les boutons et le total... Regarde tu comprendras surement mieux.

J'ai égelement essayé de prendre une macro pour enregistrer en PDF mais cela ouvre en pdf puis imprime, ca ne s'enregistre pas si tu pouvais y jeter un coup d'oeil en meme temps...
 

Pièces jointes

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

Bonsoir,

Voir une solution macro dans le fichier joint
 

Pièces jointes

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
Microsoft 365 worksheet_change
2
Réponses
29
Affichages
490
CortoXls
C
  • Résolu(e)
Microsoft 365 Virgules dans ListView
Réponses
5
Affichages
147
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
509
MBEPID
M
K
  • Résolu(e)
XL 2016 Affichage TextBox
Réponses
6
Affichages
250
KRUG WOO
K
N
  • Question Question
XL 2013 Utilisé deux CommandButton_Click dans la même feuil
Réponses
4
Affichages
115
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
700
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
220
Abi23
A
F
  • Question Question
XL 2021 probleme dans la macro
Réponses
4
Affichages
185
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
141
sylvanu
T
  • Résolu(e)
XL 2016 macro et feuille protégé
2
Réponses
18
Affichages
923
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
543
spike29
S
  • Question Question
Microsoft 365 Trier des données et les afficher sur une autre feuille
Réponses
10
Affichages
509
Jojo973
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
544
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
301
spike29
S
T
  • Résolu(e)
XL 2019 Filtrer certains champs au démarrage avec vba
2
Réponses
15
Affichages
501
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…