Copier une macro

Re : Copier une macro

Bonjour Enzop,
Le Forum 🙂

Nous à Mtl, il faiT super doux! 10 degrés et 13 ce week-end 😎 Ça fait du bien d'avoir un redoux 🙂

Pour copier une macro, tu dois:

- Ouvrir le document avec la macro et l'autre (dans lequel tu veux copier la macro)
- Ouvrir ton éditeur VBE (Pour Visual Basic Editor).



- Tu as maintenant un nouvel onglet nommé développeur; choisi l'icône Visual Basic à gauche.
- Maintenant, Assures toi que ta fenêtre Explorateur de projets est ouverte (sousAffichage; Explorateur de projets)
- Tu verras les feuilles à gauche selon tes 2 classeurs
- Simplement copier-coller en t'assurant de copier le code au bon endroit et surtout, assure-toi que tes feuilles sont nommées de la même façon que celles du classeur avec la macro ou encore, ajuste la macro.

Ceci dit, je ne sais pas où est ton code ni ses particularités alors reviens-nous avec le f.j. si ça bloque à un autre niveau.

Cdt,

Re : Copier une macro

Bonjour, EnzoP, genevieve78, le Forum,

EnzoP à dit:

... comment copier une macro d'un fichier vers un autre...

Cliquez pour agrandir...

Un petit complément d'informations ici.

Bon courage et à bientôt 🙂

Re : Copier une macro

Bonjour à tous

Outre ce qui a été dit précédemment, tu peux via une macro simple copier le code d'un module vers un autre classeur (copie le code dans un classeur et lance le code avec Alt+F8).

Notons que tu peux aussi exporter le code de ton module sur ton Disque dur. Tu pourras l'importer si tu en as besoin (pense à mettre un nom de module explicite).



Code VBA:
Sub AjouterCodeVBA()
Workbooks.Add
Dim iajcode As Byte
nomact = ThisWorkbook.Name
nomact2 = ActiveWorkbook.Name
Workbooks(nomact2).VBProject.VBComponents.Add (1)
iajcode = Workbooks(nomact).VBProject.VBComponents("Module1").CodeModule.CountOfLines
Workbooks(nomact2).VBProject.VBComponents("Module1").CodeModule.AddFromString Workbooks(nomact).VBProject.VBComponents("Module1").CodeModule.Lines(1, iajcode)
End Sub

Re : Copier une macro

Bonsoir le Forum;
Bonsoir Geneviève78, DoubleZero; MJ13;

Un immense merci pour vos précieux conseils.
Tout fonctionne, mais, car inévitablement; il est toujours un mais; j'ai réussi à intégrer la macro mais le format de la cellule obtenu ne me permet pas d'actionner une formule index/equiv ou recherchev qui figure dans une autre cellule.

Dans le fichier joint la macro figure dans la colonne X1

Function NumChaine(chaine)
Application.Volatile
TempChaine = Trim(Application.Substitute(chaine, ",", "."))
Temp = ""
For i = 1 To Len(TempChaine)
c = Mid(TempChaine, i, 1)
If c >= "0" And c <= "9" Or c = "." Then Temp = Temp & c
Next i
NumChaine = Val(Temp)
End Function

Elle permet d'extraire les nombres figurant dans la colonne B; à partir de ces chiffres je peux par une rechercheV ou une fonction index/equiv alimenter la colonne X2.

Mais rien ne fonctionne car les données extraires sont au format standard je les convertis au format nombre et rien ne se passe je suis un peu perdu.

Si vous pouviez m'apporter votre expertise je vous en serai plus que reconnaissant.
Je vous souhaite une très belle nuit.

Cordialement.
EnzoP

Re : Copier une macro

Bonjour Enzop,
MJ13, DoubleZero 😱

Le fichier remis est incomplet; impossible de voir la formule INDEX/EQUIV et encore moins ses sources... et il n'y a aucune macro 😕