Discussion :

[PPN83]

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 :

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

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 :

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

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

[babaothe]

salut

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

Si elles se trouvent sur un UserForm :

Code :

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

Controls("eva" & x)

se réfère à la textbox nommée "eva1" si x = 1, "eva2" si x = 2, etc ...

[PPN83]

Bonjour,

les textbox se trouvent sur une feuille de calcul

[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.

[el_slapper]

.

Code :

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

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 :

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

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 :

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

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.

[PPN83]

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

Code :

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

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

[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

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

essaye :

Code :

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

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

et ainsi traiter un objet, plutôt qu'une shape

[PPN83]

Ok avec ce code ça fonctionne Merci
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é.