Sylvain
XLDnaute Occasionnel
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 :
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
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