Boucle et cellules comportant des erreurs.
Résolu
Eddy Malou
-
pijaku Messages postés 13513 Statut Modérateur -
pijaku Messages postés 13513 Statut Modérateur -
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.
Merci pour votre aide
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
A voir également:
- Boucle et cellules comportant des erreurs.
- Verrouiller des cellules excel - Guide
- Formule excel pour additionner plusieurs cellules - Guide
- Fusionner deux cellules excel - Guide
- Pourquoi je ne peux pas fusionner des cellules dans excel - Forum Bureautique
- Télé samsung s'éteint et se rallume en boucle - Forum Téléviseurs
1 réponse
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...
Voici ton code corrigé :
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- 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 ;)
Merci beaucoup.
A+