Débutant avec macro

  • Initiateur de la discussion Initiateur de la discussion guenfood
  • 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 !

G

guenfood

Guest
Bonjour,

J'ai exporté d'Access vers Excel les données d'une table.
Ces données sont sur la feuille2.
Sur la feuille1, j'ai un tableau pré-formaté qui doit être rempli avec les données de la feuille2.
Dans le tableau, la première colonne verticale correspond au matricule, la deuxième au nom correspondant à ce matricule.
Ensuite, chaque en-tête de colonne doit correspondre au nom d'une formation.
Et à la jointure entre le matricule-nom et la formation doit s'inscrire le nombre d'heures.
J'espère que je suis clair, sinon vous pouvez visualiser mon tableau en pièce jointe.
Sur la feuille2, il y a 4 colonnes provenant de l'exportation d'access.
La première = matricule, la deuxième = nom, la troisième = formation et la quatrième = nombre d'heures.
Je n'arrive pas à créer une macro qui soit capable de remplir mon tableau tel que je le voudrais.

Qqn a t'il une solution à me proposer ?
Merci d'avance
 

Pièces jointes

Bonjour,

ci dessous proposition de macro

Option Explicit

Sub reporter()
Dim nbre As Long, cptr As Long

Sheets(1).Activate
nbre = Application.CountA(Sheets(2).Range("A:A"))
cptr = 1

While cptr <= nbre
Cells(3 + cptr, 1) = Sheets(2).Cells(1 + cptr, 1)
Cells(3 + cptr, 2) = Sheets(2).Cells(1 + cptr, 2)
Cells(3, 2 + cptr) = Sheets(2).Cells(1 + cptr, 3)
Cells(3 + cptr, 2 + cptr) = Sheets(2).Cells(1 + cptr, 4)
cptr = cptr + 1
Wend

End Sub

A+
Michel
 
Impeccable.
Ca marche nickel.
Le seul problème restant, c'est qu'il n'y a pas un regroupement des infos par matricule et nom.
Si un utilisateur a fait 3 formations différentes, au lieu que tout soit sur la même ligne, il va y avoir 3 lignes différentes.
Que faut-il ajouter dans la macro pour que ce regroupement soit fait ??
 
- 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
Assurez vous de marquer un message comme solution pour une meilleure transparence.

Discussions similaires

  • Question Question
Microsoft 365 Macro de recherche
Réponses
20
Affichages
2 K
Réponses
3
Affichages
2 K
Réponses
1
Affichages
615
Retour