On Error:"Si tu n'trouves pas, laisse tomber"

[IFFIC]

Bonsoir à tous,

J’ai un petit soucis quant à l’utilisation de :
On Error resume next, ou goto, ou ' Fait ce que tu veux, mais n’arrête pas ma procédure… '

Dans ma p’tite application, je charge des Labels et TextBoxes avec les données récupéréesdans une feuille comportant une liste d’adhérents d’une asso avec leur C.V.

Quand une cellule est vide, pas de problème ; j’ai un blanc : Normal!!!

Mais comme la photo de la personne doit s’afficher suite à
un ' Loadpicture ' dans l’image1.
Si celle-ci vient à ne plus être dans ' C :…..\\LA LISTE DES TROMBINES\\LA SIENNE… '
Vlan…..Plouff

J’aimerais savoir comment faire pour :

1)Soit charger une photo immuable de Windows en lieu et place.
(Sinon un texte du genre : ' Pas de Photo à afficher ')

2)Soit passer outre, et continuer …..

Certainement un coté basique de VBA, mais je ne maîtrise pas encore.

Merci d’avance,

Et bonne fin de soirée à vous
(Ou bonjour, suivant l’heure)

IFFIC

 

[ChTi160]

Re:On Error:\"Si tu n'trouves pas, laisse tomber\"

Salut' IFFIC
peut être un truc du genre
Dim OK as Booleen
OK=True
if cell.value ='' then OK =False
select case OK
case =True
Ta macro
case =False
exit for
End Select
une idée
Amicalement
Jean Marie

Message édité par: ChTi160, à: 05/04/2005 22:45

 

[IFFIC]

Bonsoir Jean Marie

Merci pour ta promptitude et la peine
que tu as bien voulu prendre à me répondre.

Je n'ai pas encore construit de test pour étudier ta solution,
mais j'ai peur de n'avoir pas été assez explicite quand je parlais:
non pas de cellule vide, mais de cellule avec une donnée erronée.

Je m'en vais fouiné de ce pas cependant.
(Pas trop longtemps..Boulot demain)

P'tit signe sympa du sud Breton au Nord Sympathique.

Bonne fin de soirée

IFFIC

 

[PascalXLD]

Bonjour

Ci joint un peit bout de code que j'avais utilisé pour charger une photot sur un UF donc le principe est le même

Dans ce cas là tu n'as pas de photot si tu as une erreur

On Error GoTo fin
Me.Picture = LoadPicture(ActiveWorkbook.Path & '\\' & Sheets('Photos').Range('A2'))

.........

Exit Sub
fin:
Me.Picture = Nothing

Bonne journée

 

[IFFIC]

Bonsoir à tous

Bonsoir Pascal

Test concluant !

Comme quoi ; il ne faut jamais négliger les premières pages
des manuels d’initiation…..Pas vrai ?

Sauf que dans l’aide de Bill, je n’ai vu que des exemples avec
Resume.., msg.. et c.

Merci beaucoup pour ton aide.

(En plus, j’ai plein de codes où cela va m’être bien utile,
et pouvoir effacer des caisses de conditions ne servant
plus à grand-chose)

Bonne soirée.
Sympa de ta part.

IFFIC