Mode non modal pour un userform dans une boucle Do while

Question

Je suis nouveau sur ce site et j'espère y trouver de l'aide. Je comme le vba et je rencontre actuellement un problème... J'ai une macro qui utilise un userform afin de calculer un prix. Je voudrais que mon userform s'ouvre en mode non modal sans modifier ma boucle do while. Je ne sais pas si c'est possible. Ci-joint quelques photos du code Quand je le passe en mode non modal cela casse mon code, le userform commence à la ligne 34 au lieu de 32 et après avoir rentrée une valeur il se ferme alors qu'il est censé continue jusqu'à la fin J'espère que vous pouvez m'aider à résoudre mon problème Merci par avance...

LouReeD · Answer

J'ai essayé, mais impossible de sortir la commande Show de la boucle... Ha ben oui ! c'est normal ! Ce sont des photos ! Un simple copier /coller de votre code aurait suffit sans oublier d'utiliser les balises de mise en forme "&lt;/&gt;". Sinon votre USF étant non modal qui je crois veux dire "n'empêche pas l'utilisation de la feuille Excel", je crois que vous devriez l'afficher avant la boucle Do While, plutôt que de le lancer dans la boucle. @ bientôt LouReeD...

Invité · Answer

Pas bien compris, mais on appelle l'UsF comme ceci F_Marge.Show (1) Et dans l'UsF Marge ne pas faire un Hide mais un Unload Private Sub FB_OK_Click() Dim Z_MargeOk As Double Z_MargeOk = (Replace(FC_Marge, "%", "") * 1) / 100 Z_MargeOk = 1 - Z_MargeOk 'Z_MargeOk = 1 + Z_MargeOk If Cells(FC_Lig, 14).Value = "" Then Cells(FC_Lig, 14).Value = Cells(FC_Lig, 10).Value End If Cells(FC_Lig, 10).Value = Cells(FC_Lig, 14).Value / Z_MargeOk ' Cells(Z_Lig, 10).Value = Cells(Z_Lig, 14).Value * Z_MargeOk (permet de calculer la marge) ' PA = PA * marge en % Unload Me End Sub @+...

Invité · Answer

Re,

Il faut alors nous expliquer votre mode de fonctionnement, étape par étape

La boucle dans l'UsF Marge fait en sorte que toutes les lignes sont parcourues,
donc quel est l'intérêt de toujours le laisser actif ?

@+

Invité · Answer

Re,

Désolé, mais je n'avais pas testé et fait attention au code qui est mal construit en fait

Il faut tester la fin du devis et non la valeur de la cellule, sinon on sort
J'ai ajouté un select pour suivre la ligne sur laquelle on se trouve

Private Sub Marge_Click()
  Dim Z_result As String
  Dim Z_Marge As String
  Dim Z_MargeOk As Double
  Dim Z_Lig As Long, Z_Fin As Long
  ' Premièr eligne à traiter
  Z_Lig = 32
  ' Dernière ligne
  Z_Fin = Range("L" & Rows.Count).End(xlUp).Row - 3
  ' Question
  Z_result = MsgBox("Voulez vous appliquer la même marge pour toutes les lignes", vbYesNo)
  If Z_result = vbYes Then
    Z_Marge = InputBox("Marge :", Marge)
    Z_MargeOk = (Replace(Z_Marge, "%", "") * 1) / 100
    Z_MargeOk = 1 - Z_MargeOk
    ' Z_MargeOk = 1 + Z_MargeOk
    Do While Z_Lig <= Z_Fin
      If Cells(Z_Lig, 11).Value <> "" Then
        If Cells(Z_Lig, 14).Value = "" Or Cells(Z_Lig, 14).Value = 0 Then
          Cells(Z_Lig, 14).Value = Cells(Z_Lig, 10).Value
        End If
        Cells(Z_Lig, 10).Value = Cells(Z_Lig, 14).Value / Z_MargeOk
      End If
      ' Cells(Z_Lig, 10).Value = Cells(Z_Lig, 14).Value * Z_MargeOk (permet de calculer la marge)
      ' PA = PA * marge en %
      Z_Lig = Z_Lig + 1

    Loop
  Else
    Do While Z_Lig <= Z_Fin
      If Cells(Z_Lig, 11).Value <> "" Then
        Cells(Z_Lig, 11).Select
        ZG_Lig = Z_Lig
        F_Marge.FC_Lig = ZG_Lig
        F_Marge.Show
      End If
      Z_Lig = Z_Lig + 1
    Loop
  End If
End Sub

@+

Invité · Answer

Re, Il faut ajouter un bouton fermer sur l'USF de marge et tester un Flag de fermeture Pour ma part, j'en resterais là...

LouReeD · Answer

Un essai en mettant la boucle dans le USF Marge : Attention ! il n'y a aucune vérification de données ! Comme par exemple si vous valider alors qu'il n'y a pas de valeur de marge cela "plante" ! @ bientôt LouReeD...