Ne pas afficher la valeur 0 dans un textbox

[Magzonex]

Allo

Est il possible, l'orsque j'ouvre mon userform et que je choisi dans mon ComboBox, si seulement la valeur de ma base de donnée "D" est de 0 (zéro) elle ne s'affiche pas dans le TextBox

Private Sub ComboBox1_Click()
If ComboBox1.ListIndex <> -1 Then
TextBox1 = Sheets("BD").Range("C" & ComboBox1.ListIndex + 2).Value
TextBox2 = Sheets("BD").Range("D" & ComboBox1.ListIndex + 2).Value

merci

 

[Pierrot93]

Re : Ne pas afficher la valeur 0 dans un textbox

Bonjour,

essaye avec ceci :

If ComboBox1.ListIndex <> -1 Then
    If ComboBox1.Value <> "0" Then
        TextBox1 = Sheets("BD").Range("C" & ComboBox1.ListIndex + 2).Value
        TextBox2 = Sheets("BD").Range("D" & ComboBox1.ListIndex + 2).Value
    End If
End If

bonne fin d'après midi
@+

 

[david84]

Re : Ne pas afficher la valeur 0 dans un textbox

Bonjour,
je ne sais pas si j'ai compris ta demande mais si c'est le cas, c'est plutôt lors du chargement de ton combobox qu'il faudrait agir en excluant les valeurs égales à 0, comme cela elles n'apparaîtraient pas dans ta liste.
Si tu n'as pas de réponses qui te conviennent, le mieux est de joindre un petit fichier exemple.
A+
Edit : bonjour Pierrot

 

[Magzonex]

Re : Ne pas afficher la valeur 0 dans un textbox

Ces en plien ça david84 tu as tout compris ....

et non ça marche pas avec

If ComboBox1.ListIndex <> -1 Then
If ComboBox1.Value <> "0" Then
TextBox1 = Sheets("BD").Range("C" & ComboBox1.ListIndex + 2).Value
TextBox2 = Sheets("BD").Range("D" & ComboBox1.ListIndex + 2).Value
End If
End If


David84,
je ne sais pas si j'ai compris ta demande mais si c'est le cas, c'est plutôt lors du chargement de ton combobox qu'il faudrait agir en excluant les valeurs égales à 0, comme cela elles n'apparaîtraient pas dans ta liste. Oui ces se que je veux.


merci

 

[david84]

Re : Ne pas afficher la valeur 0 dans un textbox

Re
dans ce cas, il faudrait tester le code à l'initialisation de l'USF et non lors de clic du combobox.
Joins un petit fichier exemple si tu n'y arrives pas (c'est plus simple).
A+

 

[Paritec]

Re : Ne pas afficher la valeur 0 dans un textbox

Bonjour David magzonex,Pierrot
alors ne cherche pas David l'ami Megazone charge ses combobox avec des rowsource !!!!
et c'est là qu'un infime défaut du fichier !!!
je suis dessus pour essayer de comprendre mais il a des macro de plus de 200 lignes !!!
des select à toutes les lignes etc etc.
bref je cherche
a+
papou

 

[Magzonex]

Re : Ne pas afficher la valeur 0 dans un textbox

Allo

tiens le voila

pour le userform2 se trouve le combobox3

Cijoint.fr - Service gratuit de dépôt de fichiers

 

[david84]

Re : Ne pas afficher la valeur 0 dans un textbox

Re
l'ami Papou s'occupe de toi (et il en est bien plus capable que moi!).
A+

 

[Magzonex]

Re : Ne pas afficher la valeur 0 dans un textbox

Allo j'ai fais ça

pour charger tes combobox retire les rowsources et mets
Private Sub UserForm_Initialize()
Dim aa As Variant
aa = Feuil3.Range("A2:A" & Feuil3.Range("A65536").End(xlUp).Row)
ComboBox3.List = aa
End Sub

j'ai fais ça ... pour la liste des combobox ça fonctionne, mais j'ai toujour la valeur 0 qui est afficher

 

[Paritec]

Re : Ne pas afficher la valeur 0 dans un textbox

Re David Magzonex
tu as chargé oui mais je t'ai donné le code pour la combobox3 donc pour combobox1 il faut adapter et retirer les rowsource de ta combobox1
a+
Papou

Private Sub UserForm_Initialize() ' dans l'userform1 bien sur
Dim aa As Variant
aa = Feuil3.Range("C2:C" & Feuil3.Range("C65536").End(xlUp).Row)
ComboBox1.List = aa
End Sub

 

[Pierrot93]

Re : Ne pas afficher la valeur 0 dans un textbox

Re,

et non ça marche pas avec

If ComboBox1.ListIndex <> -1 Then
If ComboBox1.Value <> "0" Then

fonctionne pourtant chez moi avec alimentation par rowsource ou list, rien dans les textbox.... bon je n'ais sans doute pas tout compris...

 

[Magzonex]

Re : Ne pas afficher la valeur 0 dans un textbox

Allo

le tout premier message c'était juste une exemple

comme tu a pu le voir dans mon document..

pour la valeur que je veux pas quelle s'affiche, ses dans le userform2 et non userform1 .. et oui combobox3 est de celui la qu'il est question...

lors du chargement de mon combobox3 il faudrait agir en excluant les valeurs égales à 0, comme cela elles n'apparaîtraient pas dans ma liste de textbox de mon userform2.

merci

 

[Paritec]

Re : Ne pas afficher la valeur 0 dans un textbox

re Magzonex le forum
bon alors tu parles de combobox3 !!!! ????? il n'y a pas que le fichier qui est ??? !!!!! alors même tes demandes ne sont pas simple
si tu lis ton début de post tu as écrit

Private Sub ComboBox1_Click()
If ComboBox1.ListIndex <> -1 Then
    TextBox1 = Sheets("BD").Range("C" & ComboBox1.ListIndex + 2).Value
    TextBox2 = Sheets("BD").Range("D" & ComboBox1.ListIndex + 2).Value

Hors tu n'as pas de combobox1 dans l'userform3 !!!!
mets voir un peu d'ordre STP
a+
papou

 

[Magzonex]

Re : Ne pas afficher la valeur 0 dans un textbox

Allo

La Paritec je trouve que tu commence a être un peux déplaisant dans tes réponces, que ça sois pour le combobox3 ou 4 ou 5 ou 6 la questions reste la meme, je sais très bien que tu n'aime pas la façon que j'ai utiliser, mais on ne peux avoir tous ton savoir !!!!!

et j'aime mieux comprendre comment... d,ou la première exemple

copy :
Est il possible, l'orsque j'ouvre mon userform et que je choisi dans mon ComboBox, si seulement la valeur de ma base de donnée "D" est de 0 (zéro) elle ne s'affiche pas dans le TextBox

Private Sub ComboBox1_Click()
If ComboBox1.ListIndex <> -1 Then
TextBox1 = Sheets("BD").Range("C" & ComboBox1.ListIndex + 2).Value
TextBox2 = Sheets("BD").Range("D" & ComboBox1.ListIndex + 2).Value

pis après ... j'ai mis:

Allo

tiens le voila

pour le userform2 se trouve le combobox3


Cijoint.fr - Service gratuit de dépôt de fichiers

ses assez claire ça !

 

[Magzonex]

Re : Ne pas afficher la valeur 0 dans un textbox

Up!!

une bonne idée .. pour faire cela..... suremenent que ça dois être simpe...