Microsoft 365 Filtre Listbox avec Combobox

[eric72]

Bonsoir à tous,
J'ai un userform multipage, dans la page "Dépense", je souhaite quand je fais une recherche par "Ref.Facture" que cela filtre dans la Listbox ce qui correspond à ma Combobox, j'ai entré un code dans CbRefFacture change mais cela ne fonctionne pas et je ne comprends pas pourquoi.
Auriez-vous une idée géniale?
Merci pour votre aide
Eric

 

[ChTi160]

Bonsoir Eric
j'ai juste modifié ça !

If CStr(Sheets("Dépenses").Range("D" & s).Value) = CbRefFacture Then

Peux tu avoir plusieurs lignes qui remonte pour une Réf.Facture ?
jean marie

 

[eric72]

Bonsoir Chti160,

Toujours là quand il y a un besoin, merci beaucoup et bravo pour l'efficacité (comme d'habitude)
Bonne soirée et merci encore.
Eric

 

[ChTi160]

Re
et ma question !
pas de réponse ?

Peux tu avoir plusieurs lignes qui remonte pour une Réf.Facture ?

jean marie

 

[eric72]

Bonjour Chti,
Désolé je n'avais pas vu la question, oui cela peut arriver!!!
1000 excuses
Merci
Eric

 

[eric72]

Jean-Marie,
Autre petite chose, quand je modifie une ligne "dépense" ma listbox ne se remet pas à jour toute seule alors que je met bien "alimenter_list"!!!
as-tu une idée?
Merci

 

[eric72]

Re Jean-Marie,
J'ai trouvé pour actualiser la liste, mais j'ai un autre problème je me suis aperçu que cela ajoutait une ligne et ce n'est pas ce que je veux!!! je veux juste modifier l'existante...
Merci

 

[ChTi160]

Bonjour Eric
Elle était ou cette demande ?
Je n'ai plus le fichier !
Faudrait que je regarde !
Jean marie

 

[eric72]

Bonjour Jean-Marie
voilà le fichier

 

[eric72]

Bonjour,
J'ai progressé avec mon code par contre j'ai encore 2 soucis
Quand je fais une recherche et que je sélectionne la ligne dans la listbox, je ne peux pas la modifier (msgbox: vous n'avez pas sélectionné de ligne), et en plus je crois que ça ajoute une ligne plutôt que de modifier l'existente!!!
(fichier joint)
Au secours...
Merci à tous
Eric

 

[eric72]

Bonjour,
Pour Patrick voilà le fichier!!!

 

[ChTi160]

Bonjour Eric
a l'ouverture de ton fichier j'ai un message d'erreur
ici

Private Sub Workbook_Open()
mensualtransfert 'Ici sub ou Fonction n'existe pas
Call supprDate
Sheets("Menu").Activate
Sheets("Menu").ScrollArea = "A1:o23"
End Sub

ça peut faire peur Lol
Bonne journée
Jean marie

 

[eric72]

Bonjour Jean-Marie,
Oups désolé et merci de ta réponse
C'est mieux là?
Merci

 

[ChTi160]

Re
Merci pour eux Lol
Est-il normal, voulu, que les Combobox de recherche soient Vide dans ce dernier Fichier ?
Jean marie

 

[eric72]

Je l'ai volontairement réduit, je te met donc la version complète, lol
Si si je vais y arriver mdr!!!