Plantage quand cellule vide

[BenHarber]

Bonjour le Forum,
Je rencontre régulièrement le type de pb ci-dessous et je ne connais pas le code qui me permet de le contourner ORMIS UNE GESTION D'ERREUR.
Quelqu'un aurait-il autre chose à me proposer ?

Voilà, Je fais une recherche dans une zone précise de ma feuille et je teste à l'aide d'une fonction (ici mid) :
Set znPER = ThisWorkbook.Sheets(ongl(1)).Range('L11:L500')
numactu = [L11]
For Each c In znPER
If Mid(c, 4) > numactu Then
numactu = Mid(c, 4)
End If
Next c

Bien sur ça plante quand la cellule est vide.
N'y-a-t-il pas un moyen de contourner ça en passant par l'écriture d'un code du style : 'Pour chaque cellule NON VIDE de ma zone faire....'

Merci d'avance pour vos conseils et astuces.

Cordialement,
BenHarber

 

[MichelXld]

bonjour BenHarber

tu pourrais par exemple verifier si la cellule est vide

For Each c In znPER
If Not Len(c) = 0 Then

If Mid(c, 4) > numactu Then
numactu = Mid(c, 4)
End If

End If
Next c



bonne journée
MichelXld

Message édité par: michelxld, à: 22/04/2006 10:57

 

[BenHarber]

Ca me va très bien, merci MXD.

PS : quand même, ça n'existe pas la commande 'Pour toutes les cellules non vides, faire... ' directement dans 'Each for' ?