XL 2013 Manipulation de l'userform

La flamme

XLDnaute Junior
Bonjour les experts, svp j'ai un très gros problème .
J'ai mis sur pieds un facturier automatique ça marche bien mais il me y insérer un autre userform qui permettra de rappeler que certaines factures déposé n'ont pas encore été payé. Du genre à chaque fois qu'on ouvre le classeur s'il y'a une référence en cellule A et rien en cellule G de la même ligne de sheets"prog" que toutes ces références apparaissent dans l'userform. Merci d'avance


Cordialement
 

Pièces jointes

  • suivief-v1.xlsm
    29.7 KB · Affichages: 20
Solution
Je suppose que vous ne connaissez pas les MFC ?

C'est dommage car c'est simple et puissant.
Cela permet de faire une Mise En Forme Automatique suivant conditions.

Quand vous avez des fichiers plein de nombres comme le votre, cela permet de faire une synthèse visuelle en fonction d'états bien précis. Et vous pouvez en mettre tant que vous voulez.

En PJ un essai avec rouge et vert comme demandé.

( vous cliquez sur...

sylvanu

XLDnaute Barbatruc
Supporter XLD
Bonjour La flamme,
Un essai en PJ avec un Workbook_Open :
VB:
Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    With Sheets("Prog")
        DL = .Range("A65500").End(xlUp).Row
        Chaine = "": N = 0
        For L = 2 To DL
            a = Sheets("Prog").Cells(L, "A")
            b = Sheets("Prog").Cells(L, "G")
            If .Cells(L, "A") <> "" And .Cells(L, "G") = "" And N < 40 Then
                Chaine = Chaine & .Cells(L, "A") & Chr(10)
                N = N + 1
            End If
        Next L
    End With
    If N > 39 Then Chaine = Chaine & Chr(10) & Chr(10) & "( Tout n' a pas pu être affiché )"
    MsgBox Chaine, vbCritical, "FACTURES NON PAYEES AU " & Date
End Sub
J'ai limité à 40 le nombre d'impayés affichés pour éviter un msgbox trop haut.
 

Pièces jointes

  • suivief-v1.xlsm
    29 KB · Affichages: 7

La flamme

XLDnaute Junior
Merci infiniment c'est tout à fait ce que j'avais demandé, mais moi même je m'excuse d'avoir omis certains détails.
J'aimerai que quand l'userform s'affiche il laisse la possibilité à l'utilisateur de renseigner les cellules F et G des lignes concernées afin qu'on fois renseigner elles n'apparaissent plus dans l'userform. Merci d'avance


Cordialement
Bonjour La flamme,
Un essai en PJ avec un Workbook_Open :
VB:
Private Sub Workbook_Open()
    Application.ScreenUpdating = False
    With Sheets("Prog")
        DL = .Range("A65500").End(xlUp).Row
        Chaine = "": N = 0
        For L = 2 To DL
            a = Sheets("Prog").Cells(L, "A")
            b = Sheets("Prog").Cells(L, "G")
            If .Cells(L, "A") <> "" And .Cells(L, "G") = "" And N < 40 Then
                Chaine = Chaine & .Cells(L, "A") & Chr(10)
                N = N + 1
            End If
        Next L
    End With
    If N > 39 Then Chaine = Chaine & Chr(10) & Chr(10) & "( Tout n' a pas pu être affiché )"
    MsgBox Chaine, vbCritical, "FACTURES NON PAYEES AU " & Date
End Sub
J'ai limité à 40 le nombre d'impayés affichés pour éviter un msgbox trop haut.
 

La flamme

XLDnaute Junior
Dans cette même perspective il faudrait que l'userform 1 n'apparaisse plus à la validation de la facture, mais plutôt incorporer dans l'userform qui s'ouvre à l'ouverture du classeur ou après un click sur le bouton état des factures qu'on va créer . Merci d'avance
Dans l'attente d'une suite favorable, je reste à votre disposition pour tout renseignement complémentaire.



Cordialement
 

sylvanu

XLDnaute Barbatruc
Supporter XLD
Re,

Pas tout compris.
1- Tel que conçu, le msgbox ne permet pas d'accéder à la feuille quand il est affiché. Je vous propose une MFC qui colore les lignes incriminées. Ce qui revient au même pour le traitement.
2-
l'userform 1 n'apparaisse plus à la validation de la facture
L'userform n'apparait qu'à l'ouverture du fichier. Voulez vous dire qu'on ne remonte pas l'info si en colonne N on a "Non validé" ?

En PJ un essai avec la MFC et la non prise en compte des lignes Non validé.
Pb : Que faire pour les lignes où pas de somme en G et pas de statut en F ? ( en PJ elles sont ignorées )
 

Pièces jointes

  • suivief-v2.xlsm
    29.1 KB · Affichages: 5

sylvanu

XLDnaute Barbatruc
Supporter XLD
Je suppose que vous ne connaissez pas les MFC ?

C'est dommage car c'est simple et puissant.
Cela permet de faire une Mise En Forme Automatique suivant conditions.

Quand vous avez des fichiers plein de nombres comme le votre, cela permet de faire une synthèse visuelle en fonction d'états bien précis. Et vous pouvez en mettre tant que vous voulez.

En PJ un essai avec rouge et vert comme demandé.

( vous cliquez sur G1, puis Accueil/Mise en Forme/Gérer les règles. Vous avez les 2 MFC appliquées que vous pouvez modifiez à votre convenance )
 

Pièces jointes

  • suivief-v3.xlsm
    29.1 KB · Affichages: 5

La flamme

XLDnaute Junior
Je suppose que vous ne connaissez pas les MFC ?

C'est dommage car c'est simple et puissant.
Cela permet de faire une Mise En Forme Automatique suivant conditions.

Quand vous avez des fichiers plein de nombres comme le votre, cela permet de faire une synthèse visuelle en fonction d'états bien précis. Et vous pouvez en mettre tant que vous voulez.

En PJ un essai avec rouge et vert comme demandé.

( vous cliquez sur G1, puis Accueil/Mise en Forme/Gérer les règles. Vous avez les 2 MFC appliquées que vous pouvez modifiez à votre convenance )
Merci infiniment je viens de faire grâce à vous une découverte majeur qui me sera très utile par la suite. Mon problème est résolu de la plus simple et efficace des manière


Cordialement