Problème userform

[Vashh50]

Bonjour messieurs,

J'ai un problème avec mon code que je ne comprends pas. Pour commencer voici le code en question :

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 Sub

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.

 

[Paf]

bonjour,

avec le classeur, on pourrait essayer de voir ....

A+

 

[Vashh50]

Le classeur est assez lourd et certaines données sensibles. Je vais créer un cas light que je vous présenterais pour que vous compreniez mieux.

Cordialement.

 

[Vashh50]

Voilà un exemple très light. Mon userform est censé mettre en couleur verte des traits avant d'afficher le userform5, mais on ne voit le changement de couleur que lorsqu'on ferme le userform5.

 

[Dranreb]

Bonsoir.
En enlevant Application.ScreenUpdating = False dans la Sub ToggleButton1_Click de Feuil4, je crois que ça va déjà mieux…

 

[Vashh50]

C'est tellement bête... Je n'y ai même pas pensé.

Merci infiniment.