Adaptation d'un code VBA

Bonsoir à tous

J'aimerais adapter ce code Vba avec mon nouveau projet de gestion

Le code Vba de gmb (et je l'en remercie à l'occasion) sert à

Afficher seulement les clients non payés et non doublant

Je joins le fichier et le code Vba c'est plus facile à comprendre.

Le code:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim Clients As Object
Dim Cel As Range
If Target.Count > 1 Then Exit Sub
If Target.Address = "$A$2" Then
    Set Clients = CreateObject("Scripting.Dictionary")
    For Each Cel In Range("B14:B" & Cells(Rows.Count, "B").End(xlUp).Row)
        If Cel <> "" And Cel.Offset(, 3).Value = "Non Payé" Then
            Clients(Cel.Value) = Cel.Value
        End If
    Next Cel
    With Target.Validation
        .Delete
        .Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:= _
        xlBetween, Formula1:=Join(Clients.Keys, ",")
    End With
End If
End Sub

Merci d'avance pour vos réponses.

A très bientôt

« Amicalement. »

14g-s-zine-2015-v2.xlsm (189.48 Ko)

Salut

Sans savoir ce qui a changé, essaie de modifier ton Offset par 0,4 et ça devrait marcher.

Bonjour le forum

Bonjour SoumZoum et Merci de ta réponse,

ça marche pas!

Cordialement

Ben, chez moi la liste déroulante correspond aux non-payés pourtant ? Qu'est-ce que tu entends par "ne marche pas" ?

Bonjour le forum

Bonjour SoumZoum

Attendez-moi un peu, je vais vous expliquer plus:

  • la liste des clients se trouve dans feuille recap
  • la liste déroulante se trouve dans feuille Tableau De Bord

je souhaite afficher ''apparaître'' dans la liste de choix les clients " non payés" seulement.

télécharger le nouveau fichier.

Bien cordialement à tous!!!

Bonsoir à tous

Y aurait-il quelqu'un qui pourrait m'aider à résoudre mon petit problème?

« Sincères salutations. »

Rechercher des sujets similaires à "adaptation code vba"