Discussion :

[Escorpion]

Bonjour,

J'aimerais manipuler plusieurs objets de type Range afin d'y realiser des modifications de Format, ces dernieres sont les memes pour tous mes Range

J'ai pense creer un vecteur de type range, et de recuperer la bonne plage a chaque tour de boucle via .Select, ce qui donne : (je prends simplement un vecteur de dimension 2 pour l'exemple)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
Dim vector_range() As Range
ReDim vector_range(2)
 
vector_range = Array(Range(Cells(2, 1), Cells(2, 16)), Range(Cells(2, 1), Cells(last_row, 16)))
  'last_row est une variable definie auparavant
 Dim i As Integer
 
 
For i = 1 To 2
vector_range(i).Select
'CODE manipulation sur la selection
 
next i

Le code marche parfaitement pour une plage, mais ma boucle ne semble pas fonctionner
J'en deduis que le vecteur vector_range ne lui plait pas
Avez vous une idee ?

Merci,
Escorpion

[Menhir]

A quoi est égal le contenu de last_row ? Si cette variable contient la valeur 2, il est normal que tu ais l'impression (fausse) que ta boucle ne marche pas puisque les deux éléments range de ton vecteurs contiendraient la même chose.

Voici une version plus simple de ton code. Ca t'aidera peut-être à mieux comprendre l'explication ci dessus.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
Dim vector_range(2) As Range
Dim i As Integer
 
vector_range(1) = Range(Cells(2,1),Cells(2,16))
vector_range(2) = Range(Cells(2,1),Cells(last_row,16))
 
For i = 1 To 2
 
   vector_range(i).Select
 
next i

De plus, un Select est rarement une bonne solution.

[Escorpion]

last_row est un entier superieur strictement a 22, qui varie selon les cas.
pour faire simple, j'ai en fait cree une nouvelle sheet, sheet2, a partir des donnees de sheet1 dans laquelle l'utilisateur peut manuellement modifier et ajouter de nouvelles donnees, donc de nouvelles cellules.
C'est pourquoi ce last_row est une variable

merci pour ta reponse, j'avais deja tente cette solution, mais cela n'a pas fonctionne non plus.

Je ne suis pas fan des Select, seulement j'arrive a la fin d'un long programme de code, et je dois appliquer un "design" specifique a ma feuille de calcul. J'ai donc enregistre des macros pour les differents format, couleurs, fusion de cellule, autofit afin de gagner du temps.

Je finirai pas trouver le problem

[Philippe Tulliez]

Bonjour,
La variable dimensionnée vector_range étant une variable objet (de type Range), pour lui affecter une valeur, il faut faire précéder par le mot clé Set
Soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 Set vector_range(1) = Range(Cells(2, 1), Cells(2, 16))
 Set vector_range(2) = Range(Cells(2, 1), Cells(Last_Row, 16))

[Escorpion]

Super ! Avec le set cela fonctionne parfaitement, bravo, c'est bon a savoir

Merci a tous les deux,

Bonne fin de journee,

Escorpion

[Menhir]

La variable dimensionnée vector_range étant une variable objet (de type Range), pour lui affecter une valeur, il faut faire précéder par le mot clé Set

Parfois on cherche trop compliqué et on passe à côté des trucs gros comme une maison...

[Philippe Tulliez]

Bonjour Menhir,
Exact.
Je ne l'ai pas vu du premier coup.