Données incrémentées par USERFORM non utilisables avec une formule

Le 15/02/2022 à 15:10

Bonjour,

J'ai un tableau Excel (150 colonnes et 2000+ lignes) Je dois renseigner des dates régulièrement (col FD, FG etc (donc loin à droite dans le tableau)

Pour faciliter cette tache, j'ai crée un USERFORM dans lequel je viens mettre les dates, après validation, ces dernières sont incrémentées automatiquement dans la cellule correspondante.

Problème:

Dans ce même tableau, je dois faire un calcul de moyenne en prenant comme base de données certaines de ces dates.

Formule : =SIERREUR(MOYENNE.SI.ENS(FI10:FI2000;FD10:FD2000;">="&DATE(FE5;1;1);FD10:FD2000;"<="&DATE(FE5;12;31));"")

Etant donné que ces dates n'ont pas été renseignées à la main dans la cellule, mais par validation via USERFORM, la formule ne la/les prend pas en compte.

Les dates en question sont dans la colonne "FD"

Bien évidemment, dès lors que je rentre au fur et à mesure les dates manuellement, la formule les prend en compte.

--> J'ai des milliers de cellules concernées, je ne veux pas faire ça manuellement. Sachant en plus que le fichier est "vivant" tous les jours de nouvelles dates sont incrémentées via la USERFORM. Si je dois revenir en arrière et donc ne plus utiliser le USERFORM, ce serait un peut comme revenir à l'age de pierre lol

Si quelqu'un sait comment "valider" en dur toutes les cellules incrémentées par ce USERFORM, vous m’enlèveriez une belle épine du pied (Une manip dans les options ? )

Merci d'avance pour votre aide

Le 15/02/2022 à 15:18

Bonjour,

Quel est votre code de validation dans le userform ?

Le 15/02/2022 à 15:19

Bonjour,

Le voici :

'Pour le bouton Valider
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim i%, L%
With Worksheets("BC")
   If MsgBox("Confirmez-vous les modifications apportées ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
        If Me.ComboBox1.ListIndex = -1 Then Exit Sub
        On Error GoTo SORTIE
        L = Application.Match(Me.ComboBox1, .Range("ED10:ED" & .Cells(.Rows.Count, 134).End(xlUp).Row), 0) + 9

            For i = 1 To 18
            If Me.Controls("TextBox" & i).Visible = True Then
                .Cells(L, i + 144) = Me.Controls("TextBox" & i)
            End If
        Next i
    Me.Label46 = CStr(Application.Index(.Range("FG:FG"), L))
    Me.Label47 = CStr(Application.Index(.Range("FH:FH"), L))
    Me.Label52 = CStr(Application.Index(.Range("BZ:BZ"), L))
    Me.Label54 = CStr(Application.Index(.Range("I:I"), L))
    Me.Label56 = CStr(Application.Index(.Range("FI:FI"), L))
    Me.Label61 = CStr(Application.Index(.Range("AA:AA"), L))
    Me.Label59 = CStr(Application.Index(.Range("AH:AH"), L))
    Me.Label63 = CStr(Application.Index(.Range("FJ:FJ"), L))
    Me.Label64 = CStr(Application.Index(.Range("AI:AI"), L))
    Me.Label66 = CStr(Application.Index(.Range("J:J"), L))
    Me.Label67 = CStr(Application.Index(.Range("K:K"), L))
    Me.Label69 = CStr(Application.Index(.Range("AL:AL"), L))
    Me.Label71 = CStr(Application.Index(.Range("AO:AO"), L))
    Me.Label73 = CStr(Application.Index(.Range("AN:AN"), L))
    Me.Label74 = CStr(Application.Index(.Range("L:L"), L))
    Me.Label77 = CStr(Application.Index(.Range("HA:HA"), L))
    Me.Label78 = CStr(Application.Index(.Range("HB:HB"), L))
    Me.Label85 = CStr(Application.Index(.Range("AR:AR"), L))
    Me.Label86 = CStr(Application.Index(.Range("AS:AS"), L))
    Me.Label87 = CStr(Application.Index(.Range("AT:AT"), L))
    Me.Label88 = CStr(Application.Index(.Range("AU:AU"), L))
    Me.Label90 = CStr(Application.Index(.Range("Z:Z"), L))

Me.Label85.Caption = Format(Round(CDbl(Application.Index(.Range("AR:AR"), L)), 2), "###,##0.00")
Me.Label86.Caption = Format(Round(CDbl(Application.Index(.Range("AS:AS"), L)), 2), "###,##0.00")
Me.Label87.Caption = Format(Round(CDbl(Application.Index(.Range("AT:AT"), L)), 2), "###,##0.00")
Me.Label88.Caption = Format(Round(CDbl(Application.Index(.Range("AU:AU"), L)), 2), "###,##0.00")

            End If
    Me.Label71 = .Range("ED65000").End(xlUp).Rows

End With
Exit Sub
SORTIE:  MsgBox "BC non trouvé, merci de recommencer une nouvelle saisie", vbCritical: Exit Sub
Application.ScreenUpdating = True
Me.Repaint
End Sub
Le 15/02/2022 à 15:22

Et ici pour les textbox dans lesquelles je mets les dates qui vont s'incrémenter (Texbox 16 pour ce qui me pose problème maintenant)

'Pour le suivi des visas'

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim L As Integer

     Range("ED" & L).Value = ComboBox1
     Range("EO" & L).Value = TextBox1
     Range("EP" & L).Value = TextBox2
     Range("EQ" & L).Value = TextBox3
     Range("ER" & L).Value = TextBox4
     Range("ES" & L).Value = TextBox5
     Range("ET" & L).Value = TextBox6
     Range("EU" & L).Value = TextBox7
     Range("EV" & L).Value = TextBox8
     Range("EW" & L).Value = TextBox9
     Range("EX" & L).Value = TextBox10
     Range("EY" & L).Value = TextBox11
     Range("EZ" & L).Value = TextBox12
     Range("FA" & L).Value = TextBox13
     Range("FB" & L).Value = TextBox14
     Range("FC" & L).Value = TextBox15
     Range("FD" & L).Value = TextBox16
     Range("FE" & L).Value = TextBox17
     Range("FF" & L).Value = TextBox18

 End If
Application.ScreenUpdating = True
End Sub
Le 15/02/2022 à 15:28

Essayez :

Range("FD" & L).Value = Cdate(TextBox16)
Le 15/02/2022 à 15:32

Votre code me paraît bien compliqué :

Me.Label46 = CStr(Application.Index(.Range("FG:FG"), L))

Regardez si ce code ne serait pas plus simple :

Me.Label46 = CStr(.Cells(L,"FG"))
Le 15/02/2022 à 15:33

Modification effectuée mais rien ne change.

Il faut toujours que je rentre la date à la main pour qu'elle soit prise en compte par la formule.

Le 15/02/2022 à 15:35

Pouvez-vous mettre un fichier sans données confidentielles en ligne ?

Le 15/02/2022 à 15:37

Oui, je vais le faire, mais ça va me prendre un peu de temps (temps pour "anonymiser" le fichier)

Le 15/02/2022 à 15:37

Vous avez soldé la discussion. Vous avez réglé votre problème ?

Le 15/02/2022 à 15:41
          For i = 1 To 18
            If Me.Controls("TextBox" & i).Visible = True Then
                  Select Case i
                          case 16 
                                 .Cells(L, i + 144) = Cdate(Me.Controls("TextBox" & i))
                       case else
                                 .Cells(L, i + 144) =Me.Controls("TextBox" & i)
                      End Select
            End If
        Next i
Le 15/02/2022 à 16:44

Je n'arrive pas à réduire la taille du fichier (malgrè avoir enlever quasiment toutes les MEF et données), il reste à 4,7M0 et en le compressant je n'arrive qu'à 2M0

J'essaierai donc demain à nouveau...

Pour la "validation" de la discussion, cela ne concernait que le code amélioré que vous m'avez suggéré.

Le 15/02/2022 à 16:47

Dupliquez votre fichier et ne gardez que quelques données qui permettront de travailler avec l'usf.

Le 16/02/2022 à 14:11

Bonjour,

Ça m'a pris une heure pour modifier le fichier en conséquence. J'ai mis par écrit les problématiques dans le fichier.

J'espère que ce sera assez clair

Merci :)

8test.xlsm (133.79 Ko)
Le 16/02/2022 à 15:32

C'est bon, super ! Vous êtes un as :) Cela fonctionne avec le dernier code que vous avez envoyé ! Bravo

Le 16/02/2022 à 16:19

Question subsidiaire :

Si je veux que toutes les "cases" soient au format date, le code serait ? :

          For i = 1 To 18
            If Me.Controls("TextBox" & i).Visible = True Then
                  Select Case i
                          case 1 to 18 
                                 .Cells(L, i + 144) = Cdate(Me.Controls("TextBox" & i))
                      End Select
            End If
        Next i
Le 18/02/2022 à 09:28

Bonjour,

Le code que vous m'avez communiqué fonctionne très bien pour paraméter la cellule au format "DATE"

          For i = 1 To 18
            If Me.Controls("TextBox" & i).Visible = True Then
                  Select Case i
                          case 16 
                                 .Cells(L, i + 144) = Cdate(Me.Controls("TextBox" & i))
                       case else
                                 .Cells(L, i + 144) =Me.Controls("TextBox" & i)
                      End Select
            End If
        Next i

Cependant, il fait planter l'exécution de la Macro. (Photo ci-dessous)

photo 1

Une idée pour débloquer ?

Merci d'avance

Le 18/02/2022 à 10:22

Le TextBox18 existe-t-il ?

Le 18/02/2022 à 10:30

Oui,

J'ai bien 18 textbox

et idéalement, il faut qu'elles soient toutes au format DATE car ce ne sont que des dates à renseigner.

Le 18/02/2022 à 10:35

Voici le code complet d'origine

Dim Ws As Worksheet

'RAZ
Private Sub CommandButton4_Click()
ComboBox1.Value = ""
TextBox1.Value = ""
TextBox2.Value = ""
TextBox3.Value = ""
TextBox4.Value = ""
TextBox5.Value = ""
TextBox6.Value = ""
TextBox7.Value = ""
TextBox8.Value = ""
TextBox9.Value = ""
TextBox10.Value = ""
TextBox11.Value = ""
TextBox12.Value = ""
TextBox13.Value = ""
TextBox14.Value = ""
TextBox15.Value = ""
TextBox16.Value = ""
TextBox17.Value = ""
TextBox18.Value = ""

UserForm1.ComboBox1.SetFocus

Dim Ctl As Control

For Each Ctl In Me.Controls

If Ctl.Tag = "LblZoneA" Then
Ctl = ""

End If

Next Ctl

End Sub

'Ouvrir le PDF du BC'
Private Sub CommandButton9_Click()
Dim Cible As String, LeBC As String
Dim OuvrirFichier As Object

    If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub
    LeBC = Me.ComboBox1
    Cible = "\Commun\2. PR_BCR\Contrat\2-BC\BC Notifiés\" & "BC " & LeBC & ".pdf"
    Set OuvrirFichier = CreateObject("Scripting.FileSystemObject")
    With OuvrirFichier
        If (.FileExists(Cible)) Then
            Shell "C:\WINDOWS\explorer.exe """ & Cible & "", vbNormalFocus
        Else
            MsgBox "Impossible d'atteindre le fichier (""" & Cible & """)" & Chr(10) & Chr(10) & "Il a pu être déplacé, renommé ou supprimé.", vbCritical
        End If
    End With
End Sub

'Ouvrir la DR'
Private Sub CommandButton13_Click()
Dim Cible As String, LaDR As String, LeBC As String
Dim OuvrirFichier As Object

    If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub
    LaDR = Me.Label71.Caption
    LeBC = Me.ComboBox1
    Cible = "Commun\2. PR_BCR\Contrat\3-DR DLR DAJ Décisions notifiées\" & "DR" & LaDR & " BC" & LeBC & ".zip"
    Set OuvrirFichier = CreateObject("Shell.Application")
    If Len(Dir(Cible)) > 0 Then
        OuvrirFichier.Open (Cible)
    End If

    If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub
    LaDR = Me.Label71.Caption
    LeBC = Me.ComboBox1
    Cible = "Commun\2. PR_BCR\Contrat\3-DR DLR DAJ Décisions notifiées\" & "DR" & LaDR & " BC" & LeBC & ".pdf"
    Set OuvrirFichier = CreateObject("Shell.Application")
    If Len(Dir(Cible)) > 0 Then
        OuvrirFichier.Open (Cible)
    End If

    If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub
    LaDR = Me.Label71.Caption
    LeBC = Me.ComboBox1
    Cible = "Commun\2. PR_BCR\Contrat\3-DR DLR DAJ Décisions notifiées\" & "DR" & LaDR & " DLR" & " BC" & LeBC & ".zip"
    Set OuvrirFichier = CreateObject("Shell.Application")
    If Len(Dir(Cible)) > 0 Then
        OuvrirFichier.Open (Cible)
    End If

    If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub
    LaDR = Me.Label71.Caption
    LeBC = Me.ComboBox1
    Cible = "Commun\2. PR_BCR\Contrat\3-DR DLR DAJ Décisions notifiées\" & "DR" & LaDR & " DLR" & " BC" & LeBC & ".pdf"
    Set OuvrirFichier = CreateObject("Shell.Application")
    If Len(Dir(Cible)) > 0 Then
        OuvrirFichier.Open (Cible)
    End If

    If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub
    LaDR = Me.Label71.Caption
    LeBC = Me.ComboBox1
    Cible = "Commun\2. PR_BCR\Contrat\3-DR DLR DAJ Décisions notifiées\" & "DR" & LaDR & " DAJ" & " BC" & LeBC & ".zip"
    Set OuvrirFichier = CreateObject("Shell.Application")
    If Len(Dir(Cible)) > 0 Then
        OuvrirFichier.Open (Cible)
    End If

    If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub
    LaDR = Me.Label71.Caption
    LeBC = Me.ComboBox1
    Cible = "Commun\2. PR_BCR\Contrat\3-DR DLR DAJ Décisions notifiées\" & "DR" & LaDR & " DAJ" & " BC" & LeBC & ".pdf"
    Set OuvrirFichier = CreateObject("Shell.Application")
    If Len(Dir(Cible)) > 0 Then
        OuvrirFichier.Open (Cible)
    End If

    If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub
    LaDR = Me.Label71.Caption
    LeBC = Me.ComboBox1
    Cible = "Commun\2. PR_BCR\Contrat\3-DR DLR DAJ Décisions notifiées\" & "DR" & LaDR & " DRP" & " BC" & LeBC & ".zip"
    Set OuvrirFichier = CreateObject("Shell.Application")
    If Len(Dir(Cible)) > 0 Then
        OuvrirFichier.Open (Cible)
    End If

    If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub
    LaDR = Me.Label71.Caption
    LeBC = Me.ComboBox1
    Cible = "Commun\2. PR_BCR\Contrat\3-DR DLR DAJ Décisions notifiées\" & "DR" & LaDR & " DRP" & " BC" & LeBC & ".pdf"
    Set OuvrirFichier = CreateObject("Shell.Application")
    If Len(Dir(Cible)) > 0 Then
        OuvrirFichier.Open (Cible)
    End If

End Sub

'Ouvrir un dossier'
Private Sub CommandButton10_Click()
Dim Cible As String, NomDossier As String
Dim OuvrirDossier As Object
Dim FichierExiste As Boolean
Dim TailleDossier As Integer
Dim LimiteInf As Long, LimiteSup As Long, i As Long, LeBC As Long

    If Me.ComboBox1.ListIndex = -1 Or Me.ComboBox1 = "" Then Exit Sub
    LeBC = CLng(Me.ComboBox1)
    TailleDossier = 50
    For i = 1 To 1500 Step TailleDossier
        LimiteInf = i
        LimiteSup = i + TailleDossier - 1
        If LeBC >= LimiteInf And LeBC <= LimiteSup Then NomDossier = "BC " & LimiteInf & "à" & LimiteSup: Exit For
    Next i
    Cible = "Commun\2. PR_BCR\Contrat\2-BC\" & NomDossier
    Set OuvrirDossier = CreateObject("Scripting.FileSystemObject")
    With OuvrirDossier
        If (.FolderExists(Cible)) Then
            Shell "C:\WINDOWS\explorer.exe """ & Cible & "", vbNormalFocus
            'Ou : Shell "C:\WINDOWS\explorer.exe " & cible, vbNormalFocus
        Else
            MsgBox "Le dossier n'existe pas, il a peut-être été supprimé ou déplacé.", vbExclamation
        End If
    End With
End Sub

'Pour le formulaire
Private Sub UserForm_Initialize()
Application.ScreenUpdating = False
Dim J As Long, i%, L%
With Worksheets("BC")
    L = .Range("ED" & Rows.Count).End(xlUp).Row
    For J = 10 To L
        Me.ComboBox1.AddItem .Range("ED" & J)
    Next J

    Me.Label71 = .Range("ED65000").End(xlUp).Rows
End With
Application.ScreenUpdating = True
End Sub

'Pour la liste déroulante BC
Private Sub ComboBox1_Change()
Application.ScreenUpdating = False
Dim i%, L%
With Worksheets("BC")
On Error GoTo SORTIE
    L = Application.Match(Me.ComboBox1, .Range("ED10:ED" & .Cells(.Rows.Count, 134).End(xlUp).Row), 0) + 9
    If Me.ComboBox1.ListIndex = -1 Then Exit Sub
    For i = 1 To 18
        Me.Controls("TextBox" & i) = .Cells(L, i + 144)
    Next i
    Me.Label46 = CStr(Application.Index(.Range("FG:FG"), L))
    Me.Label47 = CStr(Application.Index(.Range("FH:FH"), L))
    Me.Label52 = CStr(Application.Index(.Range("BZ:BZ"), L))
    Me.Label54 = CStr(Application.Index(.Range("I:I"), L))
    Me.Label56 = CStr(Application.Index(.Range("FI:FI"), L))
    Me.Label61 = CStr(Application.Index(.Range("AA:AA"), L))
    Me.Label59 = CStr(Application.Index(.Range("AH:AH"), L))
    Me.Label63 = CStr(Application.Index(.Range("FJ:FJ"), L))
    Me.Label64 = CStr(Application.Index(.Range("AI:AI"), L))
    Me.Label66 = CStr(Application.Index(.Range("J:J"), L))
    Me.Label67 = CStr(Application.Index(.Range("K:K"), L))
    Me.Label69 = CStr(Application.Index(.Range("AL:AL"), L))
    Me.Label71 = CStr(Application.Index(.Range("AO:AO"), L))
    Me.Label73 = CStr(Application.Index(.Range("AN:AN"), L))
    Me.Label74 = CStr(Application.Index(.Range("L:L"), L))
    Me.Label77 = CStr(Application.Index(.Range("HA:HA"), L))
    Me.Label78 = CStr(Application.Index(.Range("HB:HB"), L))
    Me.Label85 = CStr(Application.Index(.Range("AR:AR"), L))
    Me.Label86 = CStr(Application.Index(.Range("AS:AS"), L))
    Me.Label87 = CStr(Application.Index(.Range("AT:AT"), L))
    Me.Label88 = CStr(Application.Index(.Range("AU:AU"), L))
    Me.Label90 = CStr(Application.Index(.Range("Z:Z"), L))

Me.Label85.Caption = Format(Round(CDbl(Application.Index(.Range("AR:AR"), L)), 2), "###,##0.00")
Me.Label86.Caption = Format(Round(CDbl(Application.Index(.Range("AS:AS"), L)), 2), "###,##0.00")
Me.Label87.Caption = Format(Round(CDbl(Application.Index(.Range("AT:AT"), L)), 2), "###,##0.00")
Me.Label88.Caption = Format(Round(CDbl(Application.Index(.Range("AU:AU"), L)), 2), "###,##0.00")

End With
Exit Sub
Application.ScreenUpdating = True
SORTIE:  MsgBox "BC non trouvé, merci de recommencer une nouvelle saisie", vbCritical: Exit Sub
End Sub

'Pour le suivi des visas'

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Dim L As Integer

     Range("ED" & L).Value = ComboBox1
     Range("EO" & L).Value = (TextBox1)
     Range("EP" & L).Value = (TextBox2)
     Range("EQ" & L).Value = (TextBox3)
     Range("ER" & L).Value = (TextBox4)
     Range("ES" & L).Value = (TextBox5)
     Range("ET" & L).Value = (TextBox6)
     Range("EU" & L).Value = (TextBox7)
     Range("EV" & L).Value = (TextBox8)
     Range("EW" & L).Value = (TextBox9)
     Range("EX" & L).Value = (TextBox10)
     Range("EY" & L).Value = (TextBox11)
     Range("EZ" & L).Value = (TextBox12)
     Range("FA" & L).Value = (TextBox13)
     Range("FB" & L).Value = (TextBox14)
     Range("FC" & L).Value = (TextBox15)
     Range("FD" & L).Value = (TextBox16)
     Range("FE" & L).Value = (TextBox17)
     Range("FF" & L).Value = (TextBox18)

 End If
Application.ScreenUpdating = True
End Sub

'Pour le bouton Modifier
Private Sub CommandButton2_Click()
Application.ScreenUpdating = False
Dim i%, L%
With Worksheets("BC")
   If MsgBox("Confirmez-vous les modifications apportées ?", vbYesNo, "Demande de confirmation de modification") = vbYes Then
        If Me.ComboBox1.ListIndex = -1 Then Exit Sub
        On Error GoTo SORTIE
        L = Application.Match(Me.ComboBox1, .Range("ED10:ED" & .Cells(.Rows.Count, 134).End(xlUp).Row), 0) + 9

            For i = 1 To 18
            If Me.Controls("TextBox" & i).Visible = True Then
                .Cells(L, i + 144) = (Me.Controls("TextBox" & i))
            End If
        Next i
    Me.Label46 = CStr(Application.Index(.Range("FG:FG"), L))
    Me.Label47 = CStr(Application.Index(.Range("FH:FH"), L))
    Me.Label52 = CStr(Application.Index(.Range("BZ:BZ"), L))
    Me.Label54 = CStr(Application.Index(.Range("I:I"), L))
    Me.Label56 = CStr(Application.Index(.Range("FI:FI"), L))
    Me.Label61 = CStr(Application.Index(.Range("AA:AA"), L))
    Me.Label59 = CStr(Application.Index(.Range("AH:AH"), L))
    Me.Label63 = CStr(Application.Index(.Range("FJ:FJ"), L))
    Me.Label64 = CStr(Application.Index(.Range("AI:AI"), L))
    Me.Label66 = CStr(Application.Index(.Range("J:J"), L))
    Me.Label67 = CStr(Application.Index(.Range("K:K"), L))
    Me.Label69 = CStr(Application.Index(.Range("AL:AL"), L))
    Me.Label71 = CStr(Application.Index(.Range("AO:AO"), L))
    Me.Label73 = CStr(Application.Index(.Range("AN:AN"), L))
    Me.Label74 = CStr(Application.Index(.Range("L:L"), L))
    Me.Label77 = CStr(Application.Index(.Range("HA:HA"), L))
    Me.Label78 = CStr(Application.Index(.Range("HB:HB"), L))
    Me.Label85 = CStr(Application.Index(.Range("AR:AR"), L))
    Me.Label86 = CStr(Application.Index(.Range("AS:AS"), L))
    Me.Label87 = CStr(Application.Index(.Range("AT:AT"), L))
    Me.Label88 = CStr(Application.Index(.Range("AU:AU"), L))
    Me.Label90 = CStr(Application.Index(.Range("Z:Z"), L))

Me.Label85.Caption = Format(Round(CDbl(Application.Index(.Range("AR:AR"), L)), 2), "###,##0.00")
Me.Label86.Caption = Format(Round(CDbl(Application.Index(.Range("AS:AS"), L)), 2), "###,##0.00")
Me.Label87.Caption = Format(Round(CDbl(Application.Index(.Range("AT:AT"), L)), 2), "###,##0.00")
Me.Label88.Caption = Format(Round(CDbl(Application.Index(.Range("AU:AU"), L)), 2), "###,##0.00")

            End If
    Me.Label71 = .Range("ED65000").End(xlUp).Rows

End With
Exit Sub
SORTIE:  MsgBox "BC non trouvé, merci de recommencer une nouvelle saisie", vbCritical: Exit Sub
Application.ScreenUpdating = True
Me.Repaint
End Sub

'Ouvrir le dossier des DR notifiés'
Private Sub CommandButton5_Click()
Application.ScreenUpdating = False
Dim MonDossier As String
MonDossier = "Commun\2. PR_BCR\Contrat\3-DR DLR DAJ Décisions notifiées"
Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbMaximizedFocus
Application.ScreenUpdating = True
End Sub

'Ouvrir le dossier des BC notifiés'
Private Sub CommandButton7_Click()
Application.ScreenUpdating = False
Dim MonDossier As String
MonDossier = "Commun\2. PR_BCR\Contrat\2-BC"
Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbMaximizedFocus
Application.ScreenUpdating = True
End Sub

'Ouvrir le dossier des visas'
Private Sub CommandButton11_Click()
Application.ScreenUpdating = False
Dim MonDossier As String
MonDossier = "S:\DIR\Transverse\Actes_a_signer"
Shell Environ("WINDIR") & "\explorer.exe " & MonDossier, vbMaximizedFocus
Application.ScreenUpdating = True
End Sub

'Pour le bouton Quitter

Private Sub CommandButton3_Click()

   Unload Me

End Sub

:

Rechercher des sujets similaires à "donnees incrementees userform utilisables formule"