BenHarber
XLDnaute Occasionnel
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
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