sub ou function non définie avec une boucle

Version imprimable

Bonjour,

je souhaite modifier la couleur de 6 textbox (eva1à 6) pour l'impression mais je n'y arrive pas en faisant une boucle.
avec le code suivant ça marche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Sub Imprimer2_Click()
 
eva1.BackColor = RGB(255, 255, 255)
eva2.BackColor = RGB(255, 255, 255)
eva3.BackColor = RGB(255, 255, 255)
eva4.BackColor = RGB(255, 255, 255)
eva5.BackColor = RGB(255, 255, 255)
eva6.BackColor = RGB(255, 255, 255)
ActiveWindow.SelectedSheets.PrintOut Copies:=1
eva1.BackColor = RGB(198, 235, 244)
eva2.BackColor = RGB(198, 235, 244)
eva3.BackColor = RGB(198, 235, 244)
eva4.BackColor = RGB(198, 235, 244)
eva5.BackColor = RGB(198, 235, 244)
eva6.BackColor = RGB(198, 235, 244)
 
End Sub

Mais avec la boucle suivante j'ai le message "Erreur de compilation:Sub ou Function non définie"

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Imprimer1_Click()
 
Dim i As Integer
For i = 1 To 6
eva(i).BackColor = RGB(255, 255, 255)
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1
For i = 1 To 6
eva(i).BackColor = RGB(198, 235, 244)
Next
End Sub

Merci de votre aide :lol:

28/10/2010, 15h02
babaothe

salut

tu ne nous précises pas sur quoi se trouvent ces textboxes ...

Si elles se trouvent sur un UserForm :

Code:

Controls("eva" & x)

se réfère à la textbox nommée "eva1" si x = 1, "eva2" si x = 2, etc ...
28/10/2010, 15h11
PPN83

re

Bonjour,

les textbox se trouvent sur une feuille de calcul
28/10/2010, 15h16
babaothe

D'où l'importance d'être précis dans ses questions ;)

C'est dans ce cas la collection Shapes (au lieu de la collection Controls) qu'il convient d'utiliser, de la même manière.

Citation:
Envoyé par PPN83
.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Sub Imprimer2_Click() eva1.BackColor = RGB(255, 255, 255) eva2.BackColor = RGB(255, 255, 255) eva3.BackColor = RGB(255, 255, 255) eva4.BackColor = RGB(255, 255, 255) eva5.BackColor = RGB(255, 255, 255) eva6.BackColor = RGB(255, 255, 255) ActiveWindow.SelectedSheets.PrintOut Copies:=1 eva1.BackColor = RGB(198, 235, 244) eva2.BackColor = RGB(198, 235, 244) eva3.BackColor = RGB(198, 235, 244) eva4.BackColor = RGB(198, 235, 244) eva5.BackColor = RGB(198, 235, 244) eva6.BackColor = RGB(198, 235, 244) End Sub
Code:

1 2 3 4 5 6 7 8 9 10 11 Sub Imprimer1_Click() Dim i As Integer For i = 1 To 6 eva(i).BackColor = RGB(255, 255, 255) ActiveWindow.SelectedSheets.PrintOut Copies:=1 Next For i = 1 To 6 eva(i).BackColor = RGB(198, 235, 244) Next End Sub
Il me semble que le problème est là :

Code:

eva(i).BackColor

eva(i), ça n'existe pas. Il faut forcer le nom. Je n'ai pas de solution toute faite. Mais tu ne peux pas passer d'un nom "en dur" comme eva6 à un nom "généré", il faut passer par des propriétés systèmes, comme le controls proposé par Babaothe(pour les userforms). En leur absence, ça ne peut pas marcher.

j'ai le message " Propriété ou méthode non gérée par cet objet"

Code:

1
2
3
4
5
6
7
8
9
10
11
Sub Imprimer1_Click()
 
Dim i As Integer
For i = 1 To 6
Shapes("eva" & i).BackColor = RGB(255, 255, 255)
Next
ActiveWindow.SelectedSheets.PrintOut Copies:=1
For i = 1 To 6
Shapes("eva" & i).BackColor = RGB(198, 235, 244)
Next
End Sub

28/10/2010, 15h28
babaothe

cela signifie tout simplement que tes textboxes en question (sur ta feuille de calcul) n'ont pas la propriété BackColor ou nque bcelle-ci n'est pas modifiable dynamiquement;)
Tu ne peux bien évidemment pas donner une valeur à une propriété inexistante ou non modifiable dynamiquement :lol:

EDIT :
On va changer de collection, dans ce cas :

essaye :

Code:

ActiveSheet.OLEObjects("eva" & i).Object.BackColor = RGB(0, 0, 0)

et ainsi traiter un objet, plutôt qu'une shape
28/10/2010, 16h07
PPN83

re

Ok avec ce code ça fonctionne Merci :ccool:
Mais quand tu dis non modifiable dynamiquement ça veut dire quoi ?
sinon elles ont bien la propriété backcolor sinon je pense que mon premier code n'aurait pas fonctionné.