VBA plages de cellules discontinues
PanouJacques
Messages postés
1
Date d'inscription
Statut
Membre
Dernière intervention
-
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
f894009 Messages postés 17277 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
J'ai une plage (range) de cellules DISCONTINUES et/ou NON RECTANGULAIRE que je nomme par exemple "Zone".
Je n'arrive pas à sélectionner les cellules de cette zone.
La procédure suivante :
ne fonctionne pas. Elle me sélectionne des cellules qui sont contiguës et n'appartiennent pas toutes à "Zone".
Si un expert peut m'aider, je l'en remercie.
J'ai une plage (range) de cellules DISCONTINUES et/ou NON RECTANGULAIRE que je nomme par exemple "Zone".
Je n'arrive pas à sélectionner les cellules de cette zone.
La procédure suivante :
for i=1 to range("Zone").cells.count
range("Zone").cells(i).select
next i
ne fonctionne pas. Elle me sélectionne des cellules qui sont contiguës et n'appartiennent pas toutes à "Zone".
Si un expert peut m'aider, je l'en remercie.
A voir également:
- VBA plages de cellules discontinues
- Formule excel pour additionner plusieurs cellules - Guide
- Verrouiller cellules excel - Guide
- Excel compter cellule couleur sans vba - Guide
- Concatener deux cellules excel - Guide
- Image de manchots sur une image de plage. - Forum Graphisme
5 réponses
Bonjour,
Selections d'une plage nommee :
Selectionner, peut-etre pas utile!!!!
NON RECTANGULAIRE !!!!!!
Selections d'une plage nommee :
Range("Zone").Select
Selectionner, peut-etre pas utile!!!!
NON RECTANGULAIRE !!!!!!
Bonjour,
Quand f894009 (que je salue ...) dit : « Selectionner, peut-etre pas utile!!!! », je serais plus incisif et dirais que .Select n'est pas une fin en soi, après, il y a quelque chose d'autre à faire. Donc sélectionner est totalement inutile !!!
Pour explorer les cellules d'une plage discontinue :
Quand f894009 (que je salue ...) dit : « Selectionner, peut-etre pas utile!!!! », je serais plus incisif et dirais que .Select n'est pas une fin en soi, après, il y a quelque chose d'autre à faire. Donc sélectionner est totalement inutile !!!
Pour explorer les cellules d'une plage discontinue :
Dim cel As Range
For Each cel In Worksheets("Feuil1").Range("zonz").Cells
'... action(s) sur cel
Next cel
Il est bien évident que je ne cherche pas uniquement à sélectionner les cellules. Cela n'aurait aucun intérêt. Mon "select" ne me sert qu'à tester qu'il prend en compte la bonne cellule. Hors il ne le faisait pas avec la boucle "for" et le fait correctement avec la boucle "for each" (merci Patrice33740). Et pour f894009, on peut très bien avoir des plages de cellules non rectangulaires. Par ex A2:D2+ B3:F3 constitue une plage non rectangulaire de 9 cellules que la boucle "for each" peut traiter alors que la boucle "for" échoue. En tout cas merci à vous 2.
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
C'est incroyable ! Je ne te demande pas quelles applications tu développes! Pour moi ça à de l'intérêt et c'est très utile pour le projet sur lequel je travaille.