Sylvain
XLDnaute Occasionnel
Bonjour,
En avant première une nouvelle version de l'utilitaire VBA --> XLD pour aider à poster votre code VBA sur le forum. Cette nouvelle version permet de choisir les couleurs à appliquer (157 possibles, je ne sais pas si elles marchent toutes). 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.
If trouve_commentaire > 0 Then 'un commentaire sur la ligne
cell_code.Value = cell_code.Value & _
ThisWorkbook.Sheets('procédure').Range('f_com').Value & _
ThisWorkbook.Sheets('procédure').Range('d_normal').Value
End If
ou alors :
[file name=vba_to_xld1.zip size=29447]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/vba_to_xld1.zip[/file]
En avant première une nouvelle version de l'utilitaire VBA --> XLD pour aider à poster votre code VBA sur le forum. Cette nouvelle version permet de choisir les couleurs à appliquer (157 possibles, je ne sais pas si elles marchent toutes). 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.
If trouve_commentaire > 0 Then 'un commentaire sur la ligne
cell_code.Value = cell_code.Value & _
ThisWorkbook.Sheets('procédure').Range('f_com').Value & _
ThisWorkbook.Sheets('procédure').Range('d_normal').Value
End If
ou alors :
If trouve_commentaire > 0 Then 'un commentaire sur la ligne
cell_code.Value = cell_code.Value & _
ThisWorkbook.Sheets('procédure').Range('f_com').Value & _
ThisWorkbook.Sheets('procédure').Range('d_normal').Value
End If
cell_code.Value = ligne1(' ' & cell_code.Value & ' ')
[file name=vba_to_xld1.zip size=29447]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/vba_to_xld1.zip[/file]