Associer des cellules visibles entre elles après un filtre

Question

Je rencontre un problème sur une macro VBA. Voici le principe, je filtre en colonne A la date souhaitée. Une fois le filtre effectué je voudrais en colonne C écrire un texte spécifique et rattacher à ce texte la valeur de la cellule B visible. Par exemple si je filtre pour "décembre" en colonne A, je voudrais avoir en résultat en colonne C : BL-2020-12-3000. Tout en tenant compte que des cellules en colonne A et B peuvent être vides. Si vous avez des solutions pour mon problème je suis preneur car je bloque. Merci d'avance GuiGui8731...

3GB · Accepted Answer

Re Guigui,

Je te propose quand même ce que j'ai fait même si ça ne correspondra peut-être pas à ton souhait (bien que je pense avoir saisi avec ton dernier exemple le besoin).

Il y a un code dans le module de la feuille 1, propre au commandbutton, qui alimente la combobox d'un nouvel userform (UF_Filtre) avec la liste des mois au format "MM/AAAA". La liste va du mois de la plus petite date de la colonne B au mois du jour. Ensuite, on montre l'userform.

On choisit la période et on clique (petit code dans le module de UF_Filtre qui, au clic, appelle la macro paramétrée - qui dépend de la période choisie avec la combobox - nommée MAJBL).

Cette macro se trouve dans le module BL et prend la colonne D et y remplace les "" répondant aux conditions que tu as énoncées tout à l'heure par BL-AAAA-MM-N°_colC, où AAAA et MM sont respectivement l'année et le mois de la période issue de la combobox.

A toi de voir

14fichier-test.xlsm (37.60 Ko)

Et pour ton code, je pense qu'il vaut mieux réserver les filtres pour les cas où ils sont nécessaires et également éviter les textbox car cela demande de cadrer la saisie (c'est pour ça que je n'en ai pas tenu compte lors de ma première réponse) contrairement à une liste qui a déjà tout verrouillé vu que le choix est limitatif d'entrée. Sinon, on se perd dans la gestion des cas particuliers... Le but étant de parvenir par améliorations successives à rendre les exécutions dynamiques en "éradiquant" tout paramètre fixe, susceptible de provoquer un bug.

Cdlt,

3GB · Accepted Answer

Et au cas où, pour avoir le message quand une période postérieure à déjà été traitée :

Sub MAJBL(periode$)

Dim mois$, annee$, cc, i%

mois = Split(periode, "/")(0): annee = Split(periode, "/")(1)

With Worksheets("Feuil1")
    If .FilterMode Then .ShowAllData
    With .Range("TAB")
        For i = 1 To .Rows.Count
            If .Cells(i, 4) <> "" Then
                If Split(.Cells(i, 4), "-")(1) * 100 + Split(.Cells(i, 4), "-")(2) >= annee * 100 + mois Then
                    continuer = MsgBox("Cette période a déjà été traitée !" & vbLf & vbLf & "Voulez-vous continuer ?", _
                                vbInformation + vbYesNo, "Demande de confirmation")
                    If continuer <> vbYes Then Exit Sub
                    Exit For
                End If
            End If
        Next i
        cc = Application.Transpose(.Columns(4))
        For i = 1 To .Rows.Count
            If .Cells(i, 2).Value <> "" And .Cells(i, 3).Value <> "" Then
                If .Cells(i, 2) < Application.EoMonth(DateSerial(annee, mois, 1), 0) Then
                    If cc(i) = "" Then cc(i) = "BL" & "-" & annee & "-" & mois & "-" & .Cells(i, 3)
                End If
            End If
        Next i
        .Columns(4) = Application.Transpose(cc)
    End With
End With

End Sub

Cdlt,

3GB · Answer

Heureusement qu'on a un 2è aperçu parce que le problème est pas super clair . Vous voulez joindre les valeurs des 3 colonnes si je comprends bien ? Cdlt...

3GB · Answer

Mais pourquoi toutes ces conditions et ce filtre ? Pourquoi ne pas le faire automatiquement ? Si on a une date en B et une valeur en C, on remplit D ?

Voici une proposition selon ce qui me semble logique, habituelle avec un tableau structuré, le code dans un module normal, l'exécution au clic sur le bouton (par appel de la procédure) sans tenir compte d'un quelconque filtre :

9fichier-test.xlsm (31.77 Ko)

Cdlt,

3GB · Answer

De ce que je comprends, il faut donc ajouter un BL en colonne D : - si B et C sont remplies, - si D est vide bien entendu, - et si la date en B est antérieure au dernier jour du mois désigné avec l'userform ...

3GB · Answer

Nickel ! Je suis content que ça te plaise et que surtout que ça marche comme tu l'attendais ! Bonne continuation ...

3GB · Answer

Oui, normalement, le code mis à jour répond au moins en partie à ton besoin : Sub MAJBL(periode$) Dim mois$, annee$, cc, i%, continuer% mois = Split(periode, "/")(0): annee = Split(periode, "/")(1) With Worksheets("Feuil1") If .FilterMode Then .ShowAllData With .Range("TAB") If Application.CountIf(.Columns(4), "BL-" & annee & "-" & mois & "-*") &gt; 0 Then continuer = MsgBox("Cette période a déjà été traitée !" & vbLf & vbLf & "Voulez-vous continuer ?", _ vbInformation + vbYesNo, "Demande de confirmation") If continuer &lt;&gt; vbYes Then Exit Sub End If cc = Application.Transpose(.Columns(4)) For i = 1 To .Rows.Count If .Cells(i, 2).Value &lt;&gt; "" And .Cells(i, 3).Value &lt;&gt; "" Then If .Cells(i, 2) &lt; Application.EoMonth(DateSerial(annee, mois, 1), 0) Then If cc(i) = "" Then cc(i) = "BL" & "-" & annee & "-" & mois & "-" & .Cells(i, 3) End If End If Next i .Columns(4) = Application.Transpose(cc) End With End With End Sub Mais, pour l'instant, seule la période demandée est examinée... C'est-à-dire que si tu choisis 12/2020 et qu'il existe un BL avec 2020-12, il y aura le message. Cependant, s'il existe n'en existe pas mais qu'il existe un BL d'une période postérieure (2021-01), il n'y aura pas de message... Cdlt...

3GB · Answer

Au cas où, j'ai édité le second code pour alléger la condition... Je ne sais pas si tu as eu le temps de le tester (si c'est le cas, tu es rapide). Merci, très bon dimanche à toi ...