Boucle à travers les cellules et les ajouter à une gamme
Comment pourrais-je faire une boucle par les cellules B1 à J1 et de les ajouter à une gamme si elles répondent à certains critères. Par exemple.
Dim Range1 As Range
For i = 1 to 9
If Range("A1").Offset(1,i) meets a certain criteria Then
**Add that cell to Range1**
End If
Next i
Je ne suis pas sûr de la façon d'aborder la partie de l'ajout de certaines cellules Plage1.
Merci pour l'aide!
OriginalL'auteur user1067701 | 2011-11-30
Vous devez vous connecter pour publier un commentaire.
Quelque chose comme ceci en utilisant
Union
de la colle ensemble de votre gammeFor each
boucles sont plus rapides que d'unFor i = 1 to x
approcheVous pourriez bien être en mesure d'utiliser SpecialCells pour déterminer votre nouvelle gamme instantanément (par exemple, les lacunes, les erreurs, toutes les formules, etc)
For Each
est plus rapide pour une gamme,For I
plus rapide pour une boucle dans un tableau de type varianto ok. merci pour les précisions
OriginalL'auteur
J'utilise cette méthode en mode immédiat quand je ne veux pas ajouter du code à la feuille.
Mais tout cela est intuitive, elle ne fonctionne que pour 35 à 50 cellules. Après cela, le VBA renvoie une erreur 1004.
Il est plus robuste à utiliser le Union fonction.
C'est si court et intuitive, je viens de jeter après chaque utilisation.
OriginalL'auteur