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

amélioration macro

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

descamps

XLDnaute Nouveau
Bonjour,

Je vous joint un petit fichier sous excel 2003 qui me sert de registre de présence.
Chaque mois je sors la feuille correspondant pour chaque travailleur répertorié dans l'onglet "pers13".
La macro créée (et nommée registre) me permet d'insérer le nom de chaque travailleur, sa fonction et son temps de travail sur la fiche mensuelle de pointage sélectionnée.

Mes soucis:

je dois effectuer la manœuvre pour chaque travailleur de la liste (soit altF8 et enter) jusqu'à la fin de ma liste.
bien que ca ne soit pas très contraignant, je suis sur qu'une petite formule insérée dans la macro me rendrait la vie encore plus facile... sinon à quoi servirait ce bel outil...

deuxième petit problème, la macro coupe le nom pour reprendre la 1 ligne à chaque fois...
je dois donc commencer par créer une copie de l'onglet "pers13" avant de commencer.
Je suppose que ce doit pouvoir se mettre également dans la macro...

J’espère que vous pourrez m'aider...

d'ores et déjà merci à tous,

david
 

Pièces jointes

Trier par date Trier par votes
Re : amélioration macro

Bonjour DEscamps, bonjo0ur le forum,

Peut-être comme ça :
Code: 
Sub Registre()
Dim dl As Integer
Dim i As Integer

dl = Sheets("PERS 13").Cells(Application.Rows.Count, 1).End(xlUp).Row
For i = 2 To dl / 2
    With Sheets("PERS 13")
        .Range("A2").Copy Sheets("vendredi 31").Range("C1")
        .Range("B2:D3").Copy Sheets("vendredi 31").Range("C3")
        .Rows("2:3").Delete Shift:=xlUp
    End With
    Sheets("vendredi 31").Select
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True
Next i
End Sub
 
Vote positif 0 Vote négatif
Re : amélioration macro

Bonjour Robert,

désolé pour l'erreur de version excel, j'ai confondu celle du boulot avec la mienne...

Merci beaucoup, la macro fonctionne bien.
J'ai du ajouter une ligne à mon onglet "pers13" sinon elle ne prenait pas le dernier nom de la liste.

je viens de sortir les 2 prochains mois sans problème!

à bientôt et bon WE!

david
 
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

O
  • Résolu(e)
Microsoft 365 Amélioration/réparation d'une Macro et création d'un bouton pour calcul consommation
2
Réponses
27
Affichages
1 K
Olihoes
O
R
  • Résolu(e)
XL 2019 amélioration d'une macro (actualisation auto et automatisation)
Réponses
11
Affichages
705
rh.finances
R
  • Question Question
XL 2016 XLS - Comment déterminer les zones présentent au niveau d'une cellule ?
Réponses
2
Affichages
619
Lu76Fer
G
  • Question Question
Microsoft 365 Macro VBA - Excel
Réponses
12
Affichages
663
Dranreb
  • Question Question
XL 2021 Comment supprimer des noms du gestionnaire de noms dans un classeur
Réponses
7
Affichages
761
jeff1494
J
  • Question Question
Microsoft 365 macro qui ouvre des fichiers excel de type "analyze in excel" généré par power bi et met à jour un filtre "mois" sur plusieurs tcd
Réponses
0
Affichages
567
JJ69
J
V
  • Question Question
Microsoft 365 Macro de réinitialisation
Réponses
1
Affichages
590
Eric KERGRESSE
E
R
  • Question Question
XL 2010 Effacement de données dans plusieurs feuilles de calcul dans un même classeur
Réponses
3
Affichages
752
robbynasch
R
C
  • Résolu(e)
Microsoft 365 Duplication à partir d'une base de données du contenu d'un onglet dans d'autres onglets
Réponses
2
Affichages
718
Céline49
C
J
  • Résolu(e)
Microsoft 365 macro effacement sélection cellules
2 3 4
Réponses
55
Affichages
4 K
Phil69970
C
  • Résolu(e)
Microsoft 365 Amélioration de mon code VBA
Réponses
9
Affichages
708
Cherrylie
C
C
  • Résolu(e)
Microsoft 365 Mise en forme d'une ligne d'après listes déroulantes + clic sur un bouton
Réponses
2
Affichages
704
casualexcel
C
N
  • Question Question
XL 2021 BESOIN D'aide macro
Réponses
7
Affichages
1 K
Gégé-45550
D
  • Question Question
Microsoft 365 macro avec lien hypertexte et modele de facture
Réponses
6
Affichages
903
david_aurel
D
J
  • Question Question
Microsoft 365 Excel - effacer des lignes des 3 derniers jours de mois + insérer des lignes
Réponses
4
Affichages
2 K
AtTheOne
E
  • Question Question
XL 2013 Création d'un arbre de décision sous VBA
Réponses
3
Affichages
2 K
el_sbe
E
B
  • Question Question
XL 2013 RECHERCHE V AVEC COLORISATION OU MACRO AVEC COLORISATION
Réponses
1
Affichages
802
bakugo
B
M
  • Résolu(e)
Microsoft 365 VBA Excel - Renommer cellules et onglets avec dates (formats différents)
2
Réponses
25
Affichages
4 K
Phil69970
P
  • Question Question
XL 2016 problème de macro
Réponses
2
Affichages
584
pelerin65
P
  • Question Question
XL 2016 Supprimer un intervalle de 15minutes dans planning
2
Réponses
18
Affichages
2 K
TooFatBoy
Menu
Connexion
S'inscrire
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…