XL 2013 Manipulation de l'userform

[La flamme]

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

 

[sylvanu]

Bonjour La flamme,
Un essai en PJ avec un Workbook_Open :

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]

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 :

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]

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

 

[La flamme]

Ce dernier détail est impératif parceque la validation ou l'invalidation d'une proposition de marché peut avoir plusieurs jours à près l'élaboration de la pro forma.
Cordialement

 

[sylvanu]

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 )

 

[La flamme]

Merci bien excellente approche ,
Stp comment faire pour afficher automatique la ligne en rouge si non validé et en vert si la cellule F est vide ?
J'avais pensé à tout sauf à ton approche. Merci une fois de plus
Cordialement

 

[sylvanu]

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.

Utiliser la mise en forme conditionnelle pour mettre en surbrillance des informations dans Excel - Support Microsoft

Comment utiliser la mise en forme conditionnelle dans Excel pour découvrir, analyser et identifier des tendances et des modèles de manière visuelle.

support.microsoft.com

Cours Excel : mises en forme conditionnelles

Mises en forme conditionnelles (les MFC prêtes à l'emploi/prédéfinies, exemples de MFC en fonction de valeurs).

www.excel-pratique.com

Formation Excel : MFC personnalisée

Mises en forme conditionnelles sur mesure (comment créer une MFC personnalisée à l'aide de formules et de fonctions) ...

www.excel-pratique.com

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 )

 

[La flamme]

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.

Utiliser la mise en forme conditionnelle pour mettre en surbrillance des informations dans Excel - Support Microsoft

Comment utiliser la mise en forme conditionnelle dans Excel pour découvrir, analyser et identifier des tendances et des modèles de manière visuelle.

support.microsoft.com

Cours Excel : mises en forme conditionnelles

Mises en forme conditionnelles (les MFC prêtes à l'emploi/prédéfinies, exemples de MFC en fonction de valeurs).

www.excel-pratique.com

Formation Excel : MFC personnalisée

Mises en forme conditionnelles sur mesure (comment créer une MFC personnalisée à l'aide de formules et de fonctions) ...

www.excel-pratique.com

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