Rendre un code texte

[TheProdigy]

Bonjour,
Je vaudrais rendre mon code VBA qui est trés long en mode texte Cad '......
je veux le garder mais il est trés long je ne sais pas s'il y a moyen plus facile. Car je dois descendre à chaque ligne et mettre apostrophe '
Merci

 

[noviceAG]

Re : Rendre un code texte

Bonjour le Forum, adilprodigy,
Je ne sais pas si je t'ai bien compris, mais une solution peut-être le copier et le coller dans un doc Word...
Bonne journée à tous

 

[jeanpierre]

Re : Rendre un code texte

Bonjour adilprodigy, noviceAG, et le forum,

Ce que je fais, dans ce cas, clic droit sur le module et Supprimer. On te demandes si tu veux exporter un fichier, tu réponds OUI.

Lorsque tu auras, à nouveau, besoin de ce module, même manip.mais avec Importer, c'est beaucoup moins long que de faire du ligne à ligne... Je ne connais pas, pour ma part, d'autre méthode.

Bonne journée.

Jean-Pierre

 

[TheProdigy]

Re : Rendre un code texte

Merci
Mais ce n'est pas ce que je veux.
Je vaudrais le garder sur VB mais qui ne soit pas pris en considération dans le projet ou le programme

Exemple
If Target.Address = "$V$37" Then
Range("P43") = Range("S43")
Range("S43") = Range("V37")
End If
pour rendre cette écriture neutre il faut écrire

'If Target.Address = "$V$37" Then
'Range("P43") = Range("S43")
'Range("S43") = Range("V37")
'End If

Imagine pour plusieurs lignes ça prend du temps. Tu vois?

 

[jeanpierre]

Re : Rendre un code texte

Re,

Oui j'ai bien compris mais tu n'as pas besoin de le conserver dans le projet, enfin pour l'instant. L'export te le conserve (prêt à l'emploi) dans un dossier d'Office, sous format .BAS si c'est un module, sous .CLS si c'est dans le code de feuille.... etc.... etc...

Il faut aussi penser que lorsque tu en auras à nouveau besoin, il va falloir faire l'opération inverse....

Je ne connais pas de macro pour faire cela....

Après, c'est une histoire d'organisation, de modules bien nommés

 

[TheProdigy]

Re : Rendre un code texte

Merci Pierre,

Mais les modules ne sont sont pas pris en compte par le programmeou le projet lorsqu'il est exporté? N'est-ce pas?

 

[MJ13]

Re : Rendre un code texte

Bonjour à tous

Voici une petite astuce (de mon cru).

Tu copies dans Excel ton code en colonne 1 en colonne 2 tu tapes la formule
=SI(GAUCHE(A1;1)="'";A1;"' "&A1)

Puis tu recopies la formule vers le bas.

Ensuite tu recolles le texte dans le module VB.

 

[jeanpierre]

Re : Rendre un code texte

Re,

C'est le module seul choisi qui est exporté. D'où, toutefois, la nécessité qu'il n'y ait qu'une routine à l'intérieur, dans le cas contraire, déplacer dans un nouveau module celles à conserver....

Fais le test, tu ne risques rien....

A te lire.

Jean-Pierre

 

[jeanpierre]

Re : Rendre un code texte

Re, Salut Michel,

Ben, oui, tout simplement.........

 

[TheProdigy]

Re : Rendre un code texte

Bien Merci à tous j'apprends des choses 🙂