Sélectionner une cellule spéciale d'une page dans une boucle.
Résolu/Fermé
A voir également:
- Sélectionner une cellule spéciale d'une page dans une boucle.
- Supprimer une page word - Guide
- Traduire une page web - Guide
- Aller à la ligne dans une cellule excel - Guide
- Créer une page facebook - Guide
- Bloquer une cellule excel - Guide
1 réponse
michel_m
Messages postés
16603
Date d'inscription
lundi 12 septembre 2005
Statut
Contributeur
Dernière intervention
16 décembre 2023
3 304
11 févr. 2013 à 09:56
11 févr. 2013 à 09:56
Bonjour
Si 37 est le nom de l'onglet
Sheets("37").range("I5")
sinon, Si 37 est le numéro d'ordre, ce qui semble être le cas
Sheets(37).range("I5")
pour éviter d'avoir l'écran qui saute et pour aller + vite (env. 80 fois)
ecris en début de macro:
Application.screenupdating=False
nota: il est inutile de remettre à True en fin de macro
a quoi servent les 2 msgbox ?
Si 37 est le nom de l'onglet
Sheets("37").range("I5")
sinon, Si 37 est le numéro d'ordre, ce qui semble être le cas
Sheets(37).range("I5")
pour éviter d'avoir l'écran qui saute et pour aller + vite (env. 80 fois)
ecris en début de macro:
Application.screenupdating=False
nota: il est inutile de remettre à True en fin de macro
a quoi servent les 2 msgbox ?
11 févr. 2013 à 10:01
Modifié par pilas31 le 11/02/2013 à 10:05
Essayer :
Do
c.Interior.ColorIndex = 37
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address <> firstAddress
A+
11 févr. 2013 à 10:13
11 févr. 2013 à 10:18
"la méthode activate de la classe range à échoué"
l'erreur n'est pas dans .find...
mais ici
...Do
c.Activate
ActiveCell.Interior.ColorIndex = 37 ...
essaies comme ceci
pour les msgbox, ca te permet de suivre la progression pour les essais; une fois que c'est OK, mets les en commentaire avec le caractère apostrophe en début de ligne....
Pour savoir sur quelle ligne tu as une erreur, dans l'éditeur VBA, clique dans la macro et appuie sur F8, la ligne active est coloriée en jaune encore F8 pour passer à la ligne d'après
11 févr. 2013 à 10:20