V
Vashh50
Guest
Bonjour messieurs,
J'ai un problème avec mon code que je ne comprends pas. Pour commencer voici le code en question :
Mon problème est le suivant. Le userform apparait mais j'ai l'impression que tant qu'il est actif, le changement de couleur de mes shapes ne se fait pas. En gros, je ne vois ce changement de couleur que lorsque je ferme mon userform.
De plus, lorsque je teste ce code au pas à pas, tout fonctionne comme je le désire. Quelqu'un peut il donc m'expliquer pourquoi cela ne fonctionne pas ?
Cordialement.
J'ai un problème avec mon code que je ne comprends pas. Pour commencer voici le code en question :
Code:
Private Sub OptionButton1_Click()
Dim parcours As String
Dim Tableau() As String
Dim fin, i As Integer
Sheets("Parcours").Select
parcours = Range("F" & ligne)
Sheets("Plan du site").Select
Tableau = Split(parcours, "_")
fin = UBound(Tableau)
Unload Me
Unload UserForm1
For i = 1 To fin
ActiveSheet.Shapes.Range(Array(Tableau(i))).Select
With Selection.ShapeRange.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(0, 176, 80)
.Transparency = 0
End With
Next
UserForm3.Show
End SubMon problème est le suivant. Le userform apparait mais j'ai l'impression que tant qu'il est actif, le changement de couleur de mes shapes ne se fait pas. En gros, je ne vois ce changement de couleur que lorsque je ferme mon userform.
De plus, lorsque je teste ce code au pas à pas, tout fonctionne comme je le désire. Quelqu'un peut il donc m'expliquer pourquoi cela ne fonctionne pas ?
Cordialement.