Format du code dans le forum VBA -> XLD

Sylvain · 26 Février 2005

Bonjour,

Le forum étant passé à la couleurs pourquoi s'en priver. Pour la lisibilité du code, j'ai modifié le code de ma procédure VBA -> XLD.

Le mode d'emploi reste le même : copie du code dans une feuille excel puis utilisation du bouton VBA -> XLD.

Voici un exemple de ce qui ressort après lavage :

Private Sub GetSet()
' Loads a new graphic into the Image control
On Error GoTo NoPic
Image1.Picture = LoadPicture(ThisWorkbook.Path & '\\id' & Format(SetNumber, '00') & '.gif')
Frame1.ScrollTop = 0
LabelSet.Caption = 'Set ' & SetNumber & ' of 12'
Repaint
Exit Sub
NoPic:
If Err = 53 Then
MsgBox 'Missing image file: ' & ThisWorkbook.Path & '\\id' & Format(SetNumber, '00') & '.gif'
LabelSet.Caption = 'Missing File'
Else
MsgBox 'Error ' & Err
End If
End Sub

C'est une macro complémentaire qu'il faut déposer au bon endroit puis charger avec le menu outils / macro complémentaire.

[file name=vbatoxld_20050227114912.zip size=24445]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/vbatoxld_20050227114912.zip[/file]

Merci de vos commentaires.

Message édité par: Sylvain, à: 27/02/2005 12:15

Sylvain · 26 Février 2005

Message édité par: Sylvain, à: 27/02/2005 12:17

Sylvain · 26 Février 2005

Sub restreint()
'macro réalisée par Sylvain
'http://sn1.chez.tiscali.fr
Dim zone_active As String
zone_active = Selection.Address()
ActiveSheet.UsedRange.Select
Range(zone_active).Select
If Selection.Cells.Count = 1 Then
  ActiveSheet.ScrollArea = ''
Else
On Error Resume Next
  ActiveSheet.ScrollArea = Selection.Address()
End If
Application.OnUndo 'autoriser toute la feuille', 'nerestreintpas'
End Sub

Sylvain · 26 Février 2005

Message édité par: Sylvain, à: 27/02/2005 12:16

Sylvain · 26 Février 2005

un essai en utilisant la balise quote :

Sub restreint()
'macro réalisée par Sylvain
'http://sn1.chez.tiscali.fr
Dim zone_active As String
zone_active = Selection.Address()
ActiveSheet.UsedRange.Select
Range(zone_active).Select
If Selection.Cells.Count = 1 Then
  ActiveSheet.ScrollArea = ''
Else
On Error Resume Next
  ActiveSheet.ScrollArea = Selection.Address()
End If
Application.OnUndo 'autoriser toute la feuille', 'nerestreintpas'
End Sub

est-ce que c'est mieux ?

Sylvain · 26 Février 2005

Bon allez moi ça me va, je vous mets le fichier et au lit.

donc le code produit crée le cadre (balise quote).

Sub restreint()
'macro réalisée par Sylvain
'http://sn1.chez.tiscali.fr
Dim zone_active As String
zone_active = Selection.Address()
ActiveSheet.UsedRange.Select
Range(zone_active).Select
If Selection.Cells.Count = 1 Then
  ActiveSheet.ScrollArea = ''
Else
On Error Resume Next
  ActiveSheet.ScrollArea = Selection.Address()
End If
Application.OnUndo 'autoriser toute la feuille', 'nerestreintpas'
End Sub

Si quelqu'un peut m'expliquer pourquoi la balise code ne marche pas dans le même contexte ?

[file name=vbatoxld_20050226023001.zip size=24445]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/vbatoxld_20050226023001.zip[/file]

David_XLD · 26 Février 2005

Salut Sylvain,

Effectivement la balise Code ne semble pas supporter qu'on lui introduise de la couleur en plus.
en fait l'utilisation de cette balise colore automatiquement le code sans qu'on ait besoin d'en rajouter.

Par contre je ne sais pas trop si cette coloration est très pertinente il faudra que je fasse quelques tests.

A++

David

Format du code dans le forum VBA -> XLD

Sylvain

XLDnaute Occasionnel

Pièces jointes

Sylvain

XLDnaute Occasionnel

Sylvain

XLDnaute Occasionnel

Sylvain

XLDnaute Occasionnel

Pièces jointes

Sylvain

XLDnaute Occasionnel

Sylvain

XLDnaute Occasionnel

Pièces jointes

David_XLD

Guest