Adaptation d'un code VBA

Y compris Power BI, Power Query et toute autre question en lien avec Excel
z
zinelamri
Membre fidèle
Membre fidèle
Messages : 339
Inscrit le : 13 avril 2011
Version d'Excel : 2010 FR

Message par zinelamri » 8 février 2015, 21:33

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. »
G S ZINE 2015 V2.xlsm
(189.48 Kio) Téléchargé 13 fois
Avatar du membre
SoumZoum
Membre fidèle
Membre fidèle
Messages : 349
Inscrit le : 18 novembre 2014
Version d'Excel : Excel 2010 FR

Message par SoumZoum » 8 février 2015, 22:58

Salut

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

Toto l'asticot :D
z
zinelamri
Membre fidèle
Membre fidèle
Messages : 339
Inscrit le : 13 avril 2011
Version d'Excel : 2010 FR

Message par zinelamri » 9 février 2015, 07:39

Bonjour le forum
Bonjour SoumZoum et Merci de ta réponse,

ça marche pas!

Cordialement
Avatar du membre
SoumZoum
Membre fidèle
Membre fidèle
Messages : 349
Inscrit le : 18 novembre 2014
Version d'Excel : Excel 2010 FR

Message par SoumZoum » 9 février 2015, 10:19

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

Toto l'asticot :D
z
zinelamri
Membre fidèle
Membre fidèle
Messages : 339
Inscrit le : 13 avril 2011
Version d'Excel : 2010 FR

Message par zinelamri » 9 février 2015, 12:59

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!!!
G S ZINE 2015 V2.1.xlsm
(189.79 Kio) Téléchargé 11 fois
z
zinelamri
Membre fidèle
Membre fidèle
Messages : 339
Inscrit le : 13 avril 2011
Version d'Excel : 2010 FR

Message par zinelamri » 9 février 2015, 22:54

Bonsoir à tous

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


« Sincères salutations. »
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message