Boucle et cellules comportant des erreurs.

Résolu/Fermé

Eddy Malou - Modifié par pijaku le 21/11/2013 à 14:35
pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 - 21 nov. 2013 à 15:49

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

A voir également:

Boucle et cellules comportant des erreurs.
Excel additionner des cellules - Guide
Verrouiller des cellules excel - Guide
Figer des cellules excel - Guide
Fusionner des cellules excel - Guide
Impossible de fusionner des cellules excel ✓ - Forum Excel

1 réponse

Réponse 1 / 1

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745
21 nov. 2013 à 14:39

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 ;)

Eddy Malou
Modifié par Eddy Malou le 21/11/2013 à 15:48

C'est parfait.
Merci beaucoup.

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 745
21 nov. 2013 à 15:49

De rien.
A+

Discussions similaires

Mon pc s'allume et s'éteint en boucle

je veut créer des codes

Redémarrage en boucle Xiamo mi note 10

Mon PC s'allume puis s'éteint tout seul. Que faire ?

Table des matières dont les titres n'apparaissent pas..

Discussions similaires

Newsletters