Création de macro ou simple fonction pour assurer un suivii

Bonjour,

J'ai un petit souci et j'aimerais que la communauté me vienne en aide.

J'ai un tableau de suivi pour le boulot avec X colonne et X ligne. les lignes sont mes clients et les x colonnes sont les informations liées a ces clients.

Je souhaite créer un bouton avec une macro, quand je clique dessus, cela m'affiche uniquement les clients qui ont une des cellules: "en attente d'éléments"

ou encore tous les clients qui ont une cellule " A PAYER" ou "A RÉALISER "

je souhaite ainsi avoir plusieurs boutons, ce qui m'éviterais de parcourir moi-même le tableau manuellement.

Jusqu'à alors j'enregistrais une macro où je faisais un filtre manuellement sur chaque colonne, sur la valeur souhaitée, toutefois si la colonne n'a pas encore la valeur souhaitée impossible de faire ma macro.

je pense donc qu'il faudrait faire ça par visual basic, toutefois je ne sais pas comment faire?

un coup de main svp

Bonjour

Un essai à tester. Te convient-il ?

Bye !

Mouahahahah

trop la classe, cette boite qui s'ouvre, bien mieux que ce que je voulais, merci à toi.

Si je devrais redire un truc, commente le code la prochaine fois, je suis en pleine apprentissage

Merci beaucoup c'est parfait, je vais essayer de le refaire moi-même sur mon fichier

Bonjour,

je déterre le sujet, après plusieurs personnalisation, ce fichier me convient pas exactement. en fait la méthode offset est utilisée et du coup une colonne est ciblée. Or dans mon cas, il se peut que sur toute la ligne d'un client j'ai "à vérifier".

EN fait il faudrait faire :

si dans la ligne il y a "A REALISER", "A VERIFIER", "EN ATTENTE" on affiche, sinon on n'affiche pas la ligne.

et je n'arrive pas à faire sans le offset.

un peu d'aide svp.

Merci

Mattieu a écrit :

si dans la ligne il y a "A REALISER", "A VERIFIER", "EN ATTENTE" on affiche, sinon on n'affiche pas la ligne.

C'est dans quelles colonnes que l'on risque d'avoir cela ?

Bye !

Alors comme je l 'ai dit il y en a beaucoup :

G-J-M-P-S-V-Z-AD-AG-AH-AI-AK-AL-AP-AT-AV-AW

MERCI

Nouvel essai à tester.

Bye !

Bonjour,

merci pour le fichier j'ai essayé de le mettre en place dans mon fichier. la boite de dialogue se lance, mais quand je clique sur AFFICHER j'ai un message d'erreur 424 : objet requis.

voici mon code :

Option Explicit

Dim f, plage, c, ln, j, col, flag

Private Sub CommandButton4_Click()  'Bouton Afficher
    Call ChargementListbox1
End Sub

Sub ChargementListbox1()

 Set plage = f.Range("A7:A" & f.Range("A" & Rows.Count).End(xlUp).Row)
    ListBox1.Clear
    For Each c In plage
        flag = 0
        For j = 1 To 17
            col = Choose(j, "G", "J", "M", "P", "S", "V", "Z", "AD", "AG", "AH", "AI", "AK", "AL", "AP", "AT", "AV", "AW")
            If Cells(c.Row, col) = "A RÉALISER" Or Cells(c.Row, col) = "A VÉRIFIER" Or Cells(c.Row, col) = "EN ATTENTE" Or Cells(c.Row, col) = "A PLANIFIER" Or Cells(c.Row, col) = "A FINALISER" Then
                flag = 1
            End If
        Next j
        If flag = 1 Then
            ListBox1.AddItem
            ListBox1.Column(0, ListBox1.ListCount - 1) = c.Value
            ListBox1.Column(1, ListBox1.ListCount - 1) = c.Offset(0, 1).Value
            ListBox1.Column(2, ListBox1.ListCount - 1) = c.Offset(0, 2).Value
            ListBox1.Column(3, ListBox1.ListCount - 1) = c.Offset(0, 9).Value
        End If
    Next c
End Sub

Private Sub CommandButton1_Click()  'Bouton Valider

    If ListBox1.ListIndex = -1 Then
        MsgBox "Aucune ligne n'a été sélectionnée dans la listbox.", 16
        Exit Sub
    End If
    listing_reponse
    listing_diametre
    type_revetement
    With INSP_Ancrage
        .TextBox11 = f.Range("A" & ln)
        .TextBox12 = f.Range("B" & ln)
        .TextBox13 = f.Range("C" & ln)
        .TextBox24 = f.Range("J" & ln)

        .ComboBox1 = f.Range("D" & ln)
        .ComboBox2 = f.Range("Q" & ln)
        .TextBox14 = f.Range("I" & ln)
        .TextBox15 = f.Range("S" & ln)
        .TextBox17 = f.Range("U" & ln)
        .TextBox16 = f.Range("T" & ln)
        .TextBox18 = f.Range("E" & ln)
        .TextBox19 = f.Range("F" & ln)
        .TextBox20 = f.Range("G" & ln)
        .TextBox21 = f.Range("H" & ln)

        'etc...
        'etc...

        .Show
    End With

End Sub

Private Sub ListBox1_Click()

    For Each c In f.Range("A4:A" & f.Range("A" & Rows.Count).End(xlUp).Row)
        If c.Value = ListBox1.Column(0, ListBox1.ListIndex) And c.Offset(0, 1).Value = ListBox1.Column(1, ListBox1.ListIndex) _
                    And c.Offset(0, 2).Value = ListBox1.Column(2, ListBox1.ListIndex) _
                    And c.Offset(0, 9).Value = ListBox1.Column(3, ListBox1.ListIndex) Then
            ln = c.Row
        End If
    Next c

End Sub
Private Sub CommandButton2_Click() 'Bouton RAZ
    Unload Me
    UserForm3.Show
End Sub

Private Sub CommandButton3_Click()  'Bouton Fermer
    Unload Me
End Sub

Private Sub userform3_initialize()

    Set f = Worksheets("SUIVI_OPÉRATION")
    'Définition de la ListBox
    ListBox1.ColumnCount = 4
    ListBox1.ColumnWidths = "100;100;100;100"

   End Sub

Le débogueur m'indique la ligne surligné comme problème...

merci en tout cas j'apprend beaucoup de tout ça

Bonjour

Mattieu a écrit :

pour le fichier j'ai essayé de le mettre en place dans mon fichier. la boite de dialogue se lance, mais quand je clique sur AFFICHER j'ai un message d'erreur

Alors, envoie ton fichier !

Bye !

Bonjour,

mon fichier en pièce jointe

merci!

Bonjour

En tentant de mettre en place la macro dans ton fichier, tu as commis des erreurs :

• Tu as modifié le nom d’une feuille pour l’appeler ‘’Suivi’’ et dans la macro, tu l’appelles ‘’ SUIVI_OPÉRATION’’

Il te faut choisir et mettre la même chose.

• Dans la feuille macro attachée à un userform, la macro ‘’…Initialize’’ doit impérativement s’appeler :’’Private sub Userform_Initialise()’’

Or, tu l’as appelée : ‘’ Private Sub userform3_initialize()

Deux raisons de bugs.

OK ?

Bye !

Bonjour,

désolé de la réponse tardive, mais tes infos m'ont bien aidé et tout fonctionne, j'adapte entièrement tes macros sur mon fichier et je poste le tout dans une semaine encore je pense

merci bonne journée