Copier une macro d'un classeur vers un autre

Excel
Macro

axellet Messages postés 66 Date d'inscription Statut Membre Dernière intervention -
axellet Messages postés 66 Date d'inscription Statut Membre Dernière intervention - 5 juin 2016 à 18:03

Bonjour,

j'aimerais copier la macro (que l'on m'a gentiment fait) du classeur ci-joint vers un autre classeur pour que faire les mêmes actions.

Quelqu'un peut il me dire comment faire ?

Merci d'avance pour votre aide

https://www.cjoint.com/c/FFehmP1AAal

Afficher la suite

A voir également:

Importer macro excel
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Liste déroulante excel - Guide
Word et excel gratuit - Guide
Convertir chiffre en lettre excel sans macro ✓ - Forum Excel
Déplacer colonne excel - Guide

3 réponses

Réponse 1 / 3

The_boss_68 Messages postés 952 Date d'inscription Statut Membre Dernière intervention 182

Bonsoir,

Que veux-tu faire? que copier la macro?
Pour chercher la macro tu fais Alt F11, puis copies la macro et tu la colles dans ton nouveau fichier
Ou alors si tu veux ton fichier complet, tu fais enregistrer sous, tu changes de nom et tu aura un fichier complet avec ta macro dedans.

Slts

axellet Messages postés 66 Date d'inscription Statut Membre Dernière intervention

Bonsoir The boss
Malheureusement quand je regarde en faisant Alt F11, je ne vois pas la macro :-(

Après avoir cherché, j'ai trouvé qu'il fallait que je copie le module... sauf que je ne vois pas de module non plus :-(

Aussi, quant à l'enregistrer sous... cela aurait été possible si je partais d'un fichier "vierge" mais le fichier sur lequel je souhaite la copie existe déja et j'ai plein d'autres onglets avec d'autres formules...

D'ou ma volonté de copier la macro

Merci d'avance pour votre aide

Réponse 2 / 3

The_boss_68 Messages postés 952 Date d'inscription Statut Membre Dernière intervention 182

Bonjour,

Ci-joint la macro qui est dans ton fichier, en fait pour accéder directement sur cette macro, tu fais un clic droit sur l'onglet Coach, tu clics sur visualiser le code et tu tomberas directement sur la macro en question

Private Sub Worksheet_Activate()
Dim lig As Long, idc As Long, idl As Long, col As Long, tbd
    Application.ScreenUpdating = False
    tbd = [Coaches].Value
    Cells(2, 4).Resize(UsedRange.Rows.Count, UsedRange.Columns.Count).ClearContents
    For lig = 2 To Cells(Rows.Count, 1).End(xlUp).Row
        col = 3
        For idl = 1 To UBound(tbd)
            For idc = 2 To UBound(tbd, 2)
                If Cells(lig, 1).Value = tbd(idl, idc) Then
                    col = col + 1
                    Cells(lig, col).Value = tbd(idl, 1)
                End If
            Next idc
        Next idl
    Next lig
    Application.ScreenUpdating = True
End Sub

En espérant t'avoir aidé

Slts

Réponse 3 / 3

axellet Messages postés 66 Date d'inscription Statut Membre Dernière intervention

Merci Boss :-)

C'est ce que j'ai fait :-) et ca marche :-)

maintenant.... comme mon fichier sur lequel je dois mettre cette macro n'a pas la meme plage, j'ai modifié la plage coach mais j'ai une erreur dans la macro :-(

Je te joins le fichier cible ainsi que la copie d'écran....

Peux tu me dire ce que je dois changer dans le code ?

http://www.cjoint.com/c/FFfpWCqvpNO
http://www.cjoint.com/c/FFfpXn0zK3O

Merci encore pour ton aide

axellet Messages postés 66 Date d'inscription Statut Membre Dernière intervention

Aussi du coup, comme j'ai un "message d'erreur" je n'ai les dates que pour le premier Coach "Alain R" et rien pour les autres :-(

Discussions similaires

Macro pour ouvrir fichier excel

Faire Clignoter une Cellule Excel

Formule Excel : "SI" une cellule contient un mot, alors ?

Conversion chiffre en lettres excel 2016

CONVERTIR CHIFFRE EN LETTRE SUR EXCEL 2010

Cellule à transformer en case à cocher

Votre réponse

Discussions similaires