Format du code dans le forum VBA -> XLD

[Sylvain]

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]

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

 

[Sylvain]

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]

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

 

[Sylvain]

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]

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]

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