Userform ne se ferme pas ou s'affiche mal

[TVulcain]

Bonjour,

Voici le code, mon souci est lorsque je charge l'Userform sans le show 0, le traitement ne se réalise pas mais par contre l'userform s'affiche correctement et au contraire si je place avec l'option 0, le traitement s'effectue mais l'affichage n'est pas complet, l'interieur de l'userform reste blanc.

Sub Macro2()
'
' Macro2 Macro
Application.ScreenUpdating = False
' variables pour séparation num de la rue
Dim FL1 As Worksheet, Cell As Range, Plage As Range
Dim Var1, Var2, Var3, Var4, Var5, Adresse, Cible, EtatBac As String
Dim i, fin As Integer
'
UserForm1.Show 0 ' affiche traitement en cours

' Touche de raccourci du clavier: Ctrl+k
' Importation : le classeur export.xls doit être ouvert
Call importation
   
   
    ' Numéro de ligne import
    i = 2
    fin = Range("A65536").End(xlUp).Row ' fin de fichier d'exportation
   
    Set FL1 = Worksheets("Feuil1")
   
    With FL1
        'Détermination de la plage de cellules à lire
        Set Plage = .Range("E2" & ":" & "E" & fin)
        ' Insert colonne Numéro Rue pour modification de chaine caractères Adresse
        Columns("E:E").Select
        Selection.Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
        Selection.ColumnWidth = 6.3
        For Each Cell In Plage

            'Valeur de la cellule lue
            Adresse = Cell.Value
            Var1 = Cell.Value
            Var1 = Mid(Var1, 1, 2)
            Var2 = Cell.Value
            Var2 = Mid(Var2, 1, 3)
            Var3 = Cell.Value
            Var3 = Mid(Var3, 1, 4)
            Var4 = Cell.Value
            Var4 = Mid(Var4, 1, 5)
            Var5 = Cell.Value
            Var5 = Mid(Var5, 1, 6)
            EtatBac = Cell.Value
            EtatBac = Range("H" & i)
         
            ' traitement si Bis au lieu de B et Ter au lieu de T pour numéro de rue à un chiffre
            If Mid(Adresse, 3, 3) = "Bis" Or Mid(Adresse, 3, 3) = "BIS" Or Mid(Adresse, 3, 3) = "Ter" Or Mid(Adresse, 3, 3) = "TER" And Mid(Adresse, 6, 1) = " " Then
               
                Range("E" & i) = Left(Var4, 5)
                Adresse = Mid(Adresse, 6)
                Adresse = LTrim(Adresse)
                Range("F" & i) = Adresse
               
            Else
           
                ' traitement pour numéro à 2 chiffres
                If Mid(Adresse, 4, 3) = "Bis" Or Mid(Adresse, 4, 3) = "BIS" Or Mid(Adresse, 4, 3) = "Ter" Or Mid(Adresse, 4, 3) = "TER" And Mid(Adresse, 7, 1) = " " Then
                   
                    Range("E" & i) = Left(Var5, 6)
                    Adresse = Mid(Adresse, 7)
                    Adresse = LTrim(Adresse)
                    Range("F" & i) = Adresse
                   
                Else
               
                    ' traitement valeur normale ex: 1 ou 22 rue toto
                    If Val(Var1) <> 0 Then
                       
                        Range("E" & i) = Var1
                        Adresse = Replace(Adresse, Var1, "")
                        Adresse = LTrim(Adresse)
                        Range("F" & i) = Adresse
                           
                    End If
                    ' traitemant valeur erreur saisie num rue ex: 3 5 rue
                    If Mid(Var3, 4, 1) = " " And Val(Var1) <> 0 Then
                        Var2 = Replace(Var2, " ", "")
                        Range("E" & i) = Var2
                        Adresse = Replace(Adresse, Mid(Adresse, 1, 1), "")
                        Adresse = LTrim(Adresse)
                        Range("F" & i) = Adresse
                    End If
                   
                    ' traitement num rue bis, A, T ex : 2 A rue
                    If (Mid(Var2, 3, 1) = "A") And Mid(Var2, 4, 1) = " " Then
                        Var2 = Replace(Var2, " ", "")
                        If Mid(Var2, 4, 1) = "A" Then
                            Adresse = Replace(Adresse, "A ", "")
                        End If
                        If Mid(Var2, 4, 1) = "B" Then
                            Adresse = Replace(Adresse, "B ", "")
                        End If
                        If Mid(Var2, 4, 1) = "T" Then
                            Adresse = Replace(Adresse, "T ", "")
                        End If
                       
                        Adresse = LTrim(Adresse)
                        Range("F" & i) = Adresse
                        Range("E" & i) = Var2
                       
                    End If
                   
                    ' traitement valeur ex: 62 A rue
                    If (Mid(Var3, 4, 1) = "A") Or (Mid(Var3, 4, 1) = "B") Or (Mid(Var3, 4, 1) = "T") Then
                        If Mid(Var3, 4, 1) = "A" Then
                            Adresse = Replace(Adresse, "A ", "")
                        End If
                        If Mid(Var3, 4, 1) = "B" Then
                            Adresse = Replace(Adresse, "B ", "")
                        End If
                        If Mid(Var3, 4, 1) = "T" Then
                            Adresse = Replace(Adresse, "T ", "")
                        End If
                       
                       
                        Adresse = LTrim(Adresse)
                        Range("F" & i) = Adresse
                        Cells(i, "E").NumberFormat = "@" ' conserver Format Texte
                        Range("E" & i) = Var3
                       
                    End If
               
                End If
           
            End If
            ' Centre le numéro de rue à droite
            Range("E" & i).Select
            With Selection
                .HorizontalAlignment = xlRight
                .VerticalAlignment = xlCenter
                .WrapText = False
                .Orientation = 0
                .AddIndent = False
                .IndentLevel = 0
                .ShrinkToFit = False
                .ReadingOrder = xlContext
                .MergeCells = False
            End With
            i = i + 1
        Next
       
    End With
   
   
   
    Call TriBacs
    ' Préparation de l'impression
    Call Imprimer
    Unload UserForm1
    Set FL1 = Nothing
    Set Plage = Nothing
   
   
End Sub

 

[Hasco]

Bonjour,

A l'exécution lorsque une ligne : UserForm1.Show est rencontrée vba affiche le userForm et attend sa fermeture avant d'exécuter les lignes suivantes.
Lorsque une ligne UserForm1.Show 0 est rencontrée vba affiche le userForm et continue à exécuter les lignes suivantes jusqu'à la fin de la procédure qui contient la ligne.

A vous d'initialiser toutes les variables et contrôles du userForm avant son affichage ou de prévoir à l'interieur de celui-ci les procédures qui le feront.
Eventuellement, suivant le cas vous pouvez utiliser l'évènement Initialize du userForm.

Bonne soirée

 

[TVulcain]

Merci pour la réponse,
Je n'ai aucune variable pour le userform, un simple affichage de l'userform.
Par contre dans l'userform, il y a un textbox qui ne s'affiche pas.
L'userform doit s'afficher au lancement de la macro par un Ctrl+k et non à partir d'un bouton

Je fais ça comment ?

Private Sub UserForm_Initialize()
UserForm1.Show 0
End Sub

merci

 

[Hasco]

Re,

Que la macro soit lancée par CTRL-K ou autre manoeuvre, n'a rien à ma connaissance à voir avec votre problème tel que vous l'évoquez.

Je n'aime pas trop tenter des choses dans le vide, alors sans le classeur anonymisé qui démontre votre problème, je m'arrêterai là.


Bonne soirée

 

[Dranreb]

Bonjour.
À tout hasard essayez en mettant des DoEvents après le .Show 0
Parce que là, l'UserForm n'a jamais d'occasion de finaliser ses corrections d'affiche en attente, c'est la procédure qui s’accapare tout le temps toutes les ressources.

 

[TVulcain]

Merci pour le DoEvents, ça fonctionne, c'est top