Pour celles et ceux qui postent du code

[Sylvain]

Bonjour,

Avant de la mettre en téléchargement, une nouvelle version de l'utilitaire VBA --> XLD pour aider à poster votre code VBA sur le forum.

mode d'emploi

installation :
Il suffit d'enregistrer le fichier vba_to_xld1.xla sur votre ordinateur. Puis vous l'ouvrez avec le menu outils / macros complémentaires.
Un bouton VBA-->XLD est maintenant disponible.

Utilisation :
Copiez votre code sur une feuille excel puis appuyez sur le bouton VBA-->XLD : le programme ajoute les balises nécessaires. Vous pouvez allors coller les données dans votre post.

Réglages :
Cette nouvelle version permet de choisir les couleurs à appliquer (157 possibles). Mais aussi de décider d'utiliser le gras l'itallique ou le souligné pour les différentes parties du code.
La taille des caractères peut être choisie ainsi que l'utilisation ou non d'une balise quote (mise du texte dans un rectangle gris).
Pour accéder aux options, il suffit d'appuyer sur le bouton VBA --> XLD quand UNE SEULE cellule est sélectionnée.

Merci à toutes celles et à tous ceux qui me liront. Je serai heureux d'avoir des retours. Vous pouvez bien sûr me signaler tout mot clef oublié ou autres bugs. [file name=vba_to_xld1_20050701164353.zip size=30889]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/vba_to_xld1_20050701164353.zip[/file]

 

[jepi67]

Bonjour Sylvain, bonjour le forum,

Je me permets de tester ta macro.

Sub Annul_rétabli_orig()
'Annule der entrée et remet en état d'origine
'd'abord sur Feuil1 puis sur Feuil2
Application.ScreenUpdating = False
ActiveSheet.Unprotect
    Selection.Value = Selection.Offset(1, 0).Value
    Selection.Font.ColorIndex = 56
    Sheets(Array('Feuil1', 'Feuil2')).Select
    Sheets('Feuil1').Activate
    Sheets('Feuil2').Select
ActiveSheet.Unprotect
    ActiveCell.Activate
    Selection.Value = Selection.Offset(1, 0).Value
    Selection.Font.ColorIndex = 56
ActiveSheet.Protect
    Sheets('Feuil1').Select
    Application.ScreenUpdating = True
ActiveSheet.Protect
End Sub

Merci c'est super pratique! hmy:

 

[Creepy]

Bonsoir all, Sylvain,

Merci pour cette mise à jour, j'utilise et j'apprécie beaucoup ton programme.

Mais ma curiosité me pique !!

Qu'elles sont les ajouts et/ou modifications de cette nouvelle version ?

Merci d'avance

++

Creepy

 

[Sylvain]

Bonsoir,

Merci pour votre intérêt, le rajout notable par rapport à la version téléchargeable sur xld est la possibilité de personnaliser : si une seule cellule est cochée et qu'on appuie sur VBA-->XLD on a un formulaire pour cela.

Alors on pourra décider de mettre les commentaires en vert olive itallique par exemple. Et on peut jouer sur la taille affichée...

 

[Hellboy]

Bonjour jmps, Sylvain

jmps, je suis en ce moment sur le point de mettre une autre version disponible de l'application de Sylvain sur le Site XLD. (Avec son approbation merci !) Ce détail ds cette version, ne devrait plus ce produire. Il me reste quelques détails a réglés...

2 a 3 jours de patience s.v.p. merci !

 

[Sylvain]

bonsoir,

en attendant, à la fermeture du fichier se lance :

Public Sub Supprimer_Bouton()
    On Error Resume Next
    Application.CommandBars('Standard').Controls('VBA->XLD').Delete
    On Error GoTo 0
End Sub

En la faisant tourner quelques fois cela devrait disparaitre.