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

XL 2013 Restitution automatique

Créer une discussion

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
D

davy76

XLDnaute Nouveau
Bonjour a tous,

je fais appel a vous car je souhaiterais faire des fiches de restitution automatique.
Je dispose d'une feuille "bilan hebdo" dans laquelle j'ai des informations.
Je souhaiterais une macro qui va renseigner la feuille "Annexe 1" en créant une nouvelle feuille pour chaque ligne du bilan hebdo.
Comme pour les fiches 1 et 2.
Dans ce fichier cela ferait 26 feuilles.
J'espère avoir été clair.

Merci pour votre aide.
 

Pièces jointes

Trier par date Trier par votes
Bonsoir, voici ton fichier en retour.
Cela copie la dernière ligne saisie dans feuille annexe et crée une feuille avec le N° de la colonne A.
On vérifie également si la dernière feuille existe, par exemple sur ton fichier si la feuille 26 existe rien ne se passe. L'action se fera pour la feuille 27. Voir en Module 3.

VB: 
Option Explicit

Sub annexe()
Dim ShtA As Worksheet
Dim ShtBlh As Worksheet
Dim derLig As Long
Dim f As String
Dim n As Integer
Dim trouve As Boolean
Set ShtA = Sheets("Annexe 1")
Set ShtBlh = Sheets("Bilan hebdo")
derLig = ShtBlh.Range("A" & Rows.Count).End(xlUp).Row
ShtA.[B6].Value = ShtBlh.Range("A" & derLig).Value
ShtA.[B23].Value = ShtBlh.Range("B" & derLig).Value
ShtA.[G14].Value = ShtBlh.Range("C" & derLig).Value
ShtA.[G15].Value = ShtBlh.Range("D" & derLig).Value
ShtA.[G16].Value = ShtBlh.Range("E" & derLig).Value
ShtA.[G17].Value = ShtBlh.Range("F" & derLig).Value
ShtA.[G18].Value = ShtBlh.Range("G" & derLig).Value
ShtA.[A26].Value = ShtBlh.Range("H" & derLig).Value
ShtA.[B26].Value = ShtBlh.Range("I" & derLig).Value
ShtA.[C26].Value = ShtBlh.Range("J" & derLig).Value
ShtA.[D26].Value = ShtBlh.Range("K" & derLig).Value
f = ShtA.[B6].Value
For n = 1 To Sheets.Count
 If Sheets(n).Name = f Then
  trouve = True
  Exit For
 End If
Next n
If trouve Then Exit Sub
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = f
ThisWorkbook.Worksheets("Annexe 1").Cells.Copy ThisWorkbook.Worksheets(f).Cells
Set ShtA = Nothing
Set ShtBlh = Nothing
End Sub
 

Pièces jointes

Vote positif 0 Vote négatif
bonjour,

merci de votre réponse mais dans le bilan hebdo je ne rentre pas les données une par une, je fais un import global, avec votre macro je devrait faire des saisies ligne après ligne et ce n'est pas du tout ce que je cherche.

Merci
 
Vote positif 0 Vote négatif
Bonjour en faisant comme ceci alors. Cela vide le bilan hebdo mais rien n'empêche de faire une sauvegarde.
Il faut via le bouton appeler la macro dupliquer.
La création des 26 feuilles se en 2.47 secondes sur mon PC, surement un moyen plus rapide !?

VB: 
Sub dupliquer()
Dim i As Integer
For i = 1 To 26
annexe
Sheets("Bilan hebdo").Select
Rows(Range("A" & Rows.Count).End(xlUp).Row).Delete
Next i
i = i + 1
End Sub

Sub annexe()
Dim ShtA As Worksheet
Dim ShtBlh As Worksheet
Dim derLig As Long
Dim f As String
Dim n As Integer
Dim trouve As Boolean
Set ShtA = Sheets("Annexe 1")
Set ShtBlh = Sheets("Bilan hebdo")
derLig = ShtBlh.Range("A" & Rows.Count).End(xlUp).Row
ShtA.[B6].Value = ShtBlh.Range("A" & derLig).Value
ShtA.[B23].Value = ShtBlh.Range("B" & derLig).Value
ShtA.[G14].Value = ShtBlh.Range("C" & derLig).Value
ShtA.[G15].Value = ShtBlh.Range("D" & derLig).Value
ShtA.[G16].Value = ShtBlh.Range("E" & derLig).Value
ShtA.[G17].Value = ShtBlh.Range("F" & derLig).Value
ShtA.[G18].Value = ShtBlh.Range("G" & derLig).Value
ShtA.[A26].Value = ShtBlh.Range("H" & derLig).Value
ShtA.[B26].Value = ShtBlh.Range("I" & derLig).Value
ShtA.[C26].Value = ShtBlh.Range("J" & derLig).Value
ShtA.[D26].Value = ShtBlh.Range("K" & derLig).Value
f = ShtA.[B6].Value
For n = 1 To Sheets.Count
 If Sheets(n).Name = f Then
  trouve = True
  Exit For
 End If
Next n
If trouve Then Exit Sub
Sheets.Add(After:=Worksheets(Worksheets.Count)).Name = f
ThisWorkbook.Worksheets("Annexe 1").Cells.Copy ThisWorkbook.Worksheets(f).Cells
Set ShtA = Nothing
Set ShtBlh = Nothing
End Sub
 

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

  • Question Question
XL 2021 Saisies multiples
Réponses
4
Affichages
152
job75
S
  • Question Question
Microsoft 365 Consolider des données de plusieurs feuilles
Réponses
2
Affichages
236
Sissou71
S
  • Question Question
Microsoft 365 Création automatique de feuille et le remplissage correspondant
Réponses
8
Affichages
247
gbinforme
G
  • Question Question
XL 2021 Remplissage de plusieurs cellules dans une colonne
Réponses
5
Affichages
135
AtTheOne
S
  • Question Question
Microsoft 365 Reproduction d'un tableau sur plusieurs feuilles
Réponses
8
Affichages
242
TooFatBoy
F
  • Question Question
XL 2013 VBA- Liaisons entre 2 feuilles
Réponses
1
Affichages
129
vgendron
E
  • Résolu(e)
XL 2016 Verrouiller page avec accès "filtre" + "mise en page personnalisée"
Réponses
9
Affichages
285
Phil69970
K
  • Question Question
Microsoft 365 Excel - Répartition Charge de travail (mensuel)
Réponses
10
Affichages
519
Kristelle1555
K
C
  • Résolu(e)
XL 2016 humains VS chatGPT
Réponses
9
Affichages
412
AtTheOne
D
  • Question Question
Microsoft 365 TCD et sélection automatique suivant les filtres
Réponses
2
Affichages
122
Daniel200666
D
J
  • Résolu(e)
Microsoft 365 ComboBox en cascade
2 3
Réponses
40
Affichages
1 K
AtTheOne
S
  • Question Question
XL 2016 A la recherche d'une formule
Réponses
7
Affichages
137
job75
M
  • Question Question
XL 2021 Avoir des tableaux liés à une base de données
2
Réponses
24
Affichages
759
Nain porte quoi
N
R
  • Résolu(e)
XL 2010 vba excel : recherche concordance chaine texte dans cellule et données stockées dans un tablo (array)
Réponses
4
Affichages
182
Raynaud.JF
R
M
  • Question Question
Microsoft 365 Comptabilité : Création d'un fichier automatique d'analyse de comptes
Réponses
2
Affichages
688
Max
M
M
  • Question Question
Microsoft 365 Analyse de données, copie conditionnée
Réponses
7
Affichages
653
Max
M
B
  • Question Question
Mise à jour d’un tableau
Réponses
8
Affichages
324
belhoucine dine
B
J
  • Question Question
Microsoft 365 VBA Sum.if - Application de la formule dans la cellule et non pas sa valeur
Réponses
6
Affichages
335
JeanPi37
J
D
  • Question Question
XL 2021 prise de rdv en ligne transporteur
Réponses
0
Affichages
118
dirty_harry_8
D
D
  • Question Question
XL 2019 Suppression doublons combinés entre deux cellules associées et présentation sous forme de tableau
Réponses
13
Affichages
666
alexga78
A
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…