Eviction de Zéros résultant de Formules dans ListBox

[Dull]

Salut le Forum 🙂

Question esthétique :

Après plusieurs Essais infructueux, et lecture de beaucoup de Fils (etilyenà...😛) sur les ListeBox,
j'ail'Honneurdedemandervotreaide 🙂

Alors voilà

J'ai un UserForm où il y a une ListBox
Cette ListBox rapatrie les données de la feuil1 suivant la demande (VoirleCode)
Seulement Voilà... la colonne I contient des Formules et je ne veux pas des 0 (Zeros) dans la colonne I (Heu...danslaListeBox1...soitColumn(9))

Question: Comment avoir les données, Hors valeurs = 0, de la colonne I

En vous remerciant par avance

Recevez, Mademoiselle, Madame, Monsieur mes meilleures salutations

Heu...Fautquej'arrêtewordmoi...😀

Bonne Journée

 

[Paritec]

Re : Eviction de Zéros résultant de Formules dans ListBox

Bonjour Dull, le forum,
et comme cela c'est pas bon pour toi?
=SI(SI(J18=1;F19*D19-(F19*D19)*C19;(F19*D19-(F19*D19)*C19));I19;"")
du coup t'a plus de zéro puisque tu n'as plus rien dans ta cellule
a te lire
a+
Papou

 

[JCGL]

Re : Eviction de Zéros résultant de Formules dans ListBox

Bonjour à tous,
Salut Dull 🙂,

Un essai, si j'ai bien tout compris :

Option Explicit

Private Sub UserForm_Initialize()
With ListBox1
    .ColumnCount = 10
    .ColumnWidths = "120;0;0;20;0;40;0;0;30;0"
End With
End Sub

Et une plage nommée Liste avec DECALER()

=DECALER(Feuil1!$A$19:$J$19;;;NB.SI(Feuil1!$A$19:$A$39;"<>"&""))

et posée dans les RowsSource

Enespérantavoirréponduàtaquestion...

A++
A+ à tous

 

[Dull]

Re : Eviction de Zéros résultant de Formules dans ListBox

Salut Papou, le Fil

je t'aime Papou 😛 ...je te promet, j'ai cherché mais mes connaissances formulistique n'ont jamais été... cequ'ellesnesontpas 😱

ÉDITION: Heu...2millisecondes... Mon ami JC🙂 m'a aussi répondu...

doitfairetrèsfroidàChamrousse😉...j'aimepaslesRowsSource...je détestelesRowsSource 😛...JeanYanne&JCGL...Président(S) 😀

Apparemment Cela Fonctionne...mêmemieuxquej'auraisespérer 😱 car je ne peux sélectionner une cellule de la colonne I =0
alors... Je t'aime deux fois plus JC 🙂 ....Vive les RowsSource ...(...JeanYanne&JCGL...Président(S)) 😀JeanYanne...si tu nousécoute)😉

Merci Jean Claude 🙂 Bonne Journée à tous

 

[GCFRG]

Re : Eviction de Zéros résultant de Formules dans ListBox

Bonjour, à tester

Option Explicit
Dim Plage As Range, Déb As Integer, Fin As Integer, J As Integer

Private Sub UserForm_Initialize()
With Sheets("Feuil1")
For J = 19 To .Range("i" & .Rows.Count).End(xlUp).Row
If .Range("i" & J).Value <> 0 Then
Fin = .Range("i" & J).Row
End If
Next
Déb = 19
Set Plage = .Range("a" & Déb, "i" & Fin)
End With
With ListBox1
    .ColumnCount = 10
    .ColumnWidths = "120;0;0;20;0;40;0;0;30;0"
    .List = Plage.Value
End With

End Sub

Cordialement Gilbert

 

[Dull]

Re : Eviction de Zéros résultant de Formules dans ListBox

Salut le Fil

Merci Gilbert pour cet autre code🙂

mais si j'avais réfléchi un peu plus j'aurais fait comme cela

Insertion\Nom\Définir
Noms dans le Classeur: Plage
Fait référence à:

=DECALER(Feuil1!$A$19:$J$19;;;NB.SI(Feuil1!$A$19:$A$39;"<>"&""))

BenouaisJC 😎

Et dans UserForm_Initialize()

With ListBox1
    .ColumnCount = 9
    .ColumnWidths = "120;0;0;20;0;40;0;0;30;0"
    .List = Feuil1.Range("Plage").Value
End With

Plus besoin de RowSource

Et voilà pour ceux qui aurait le même problème que moi plusieurs solutions Toutes aussi Nickel

Bonne Journée à tous

 

[GCFRG]

Re : Eviction de Zéros résultant de Formules dans ListBox

Bonjour à tous, l'avantage de mon code c'est que ta plage s'adapte au nombre de ligne de ton tableau.
La formule(Excellente d'ailleur) limite ta plage à 20 lignes

@+ Gilbert

 

[JCGL]

Re : Eviction de Zéros résultant de Formules dans ListBox

Bonjour à tous,
Salut Gilbert,

Il suffit de mettre :

=DECALER(Feuil1!$A$19:$J$1000;;;NB.SI(Feuil1!$A$19:$A$1000;"<>"&"")-1)

et la limite est très largement repoussée.
Il en reste que ton code est, aussi, excellent

A++
A+ à tous

 

[GCFRG]

Re : Eviction de Zéros résultant de Formules dans ListBox

Salut à tous,
Merci JCGL, c'est vrai que je ne maitrise pas trop en Formule, je suis toujours admiratif quand je vois dans tes "fil", les formules que tu peux pondre Impressionnant, vraiment.

Bonne semaine à Tous

Gilbert