Boucle et cellules comportant des erreurs.

Résolu
Eddy Malou -  
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   -
Bonjour,

J'aimerai démarrer à partir d'une cellule F6000
Si elle contient #N/A alors monter d'une case jusqu'à ce qu'elle ne contienne plus #N/A.
Sélectionner alors cette case.

J'ai déjà fait des recherche cependant je reste bloqué ici.
Si vous avez une autre façon de procéder je suis aussi preneur.

Range("F6000").Select
Do
If IsError(F6000) Then activecell.offset(-1,0).select
    Loop until ActiveCell = ????(n'est pas une erreur)
Then Select.

End Sub


Merci pour votre aide

1 réponse

pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
Bonjour,

1- tu fais ton test If IsError sur F6000. Mais F6000 écris comme cela ne veux rien dire en VBA.
A remplacer par Range("F6000") ou par ActiveCell puisque tu l'as sélectionné avant
2- Tu dois boucler tant que ta cellule active est en erreur...
Until IsError(ActiveCell)
, tout simplement...

Voici ton code corrigé :
Range("F6").Select
Do
    If IsError(ActiveCell) Then ActiveCell.Offset(-1, 0).Select
Loop Until Not IsError(ActiveCell) ' (n'est pas une erreur)


PS : J'ai rajouté des balises code dans ta demande (4e icône au-dessus de la zone de texte).
Merci d'y penser la prochaine fois ;)
1
Eddy Malou
 
C'est parfait.
Merci beaucoup.
0
pijaku Messages postés 12263 Date d'inscription   Statut Modérateur Dernière intervention   2 761
 
De rien.
A+
0