Valeurs null textbox VBA

[GysEcxelVBA]

Bonjour à tous, le forum

Débutant à demi, mais je coince quand même sur certains codes. Voilà, une aide SVP pour ne pas afficher "0" dans les textbox si la cellule est vide.
J'ai plusieurs texbox dans un Userform qui affiche les valeurs de cellules de mon tableau excel mais quand certaines cellules n'ont pas de valeurs les textbox affichent "0".

Une idée SVP avec un code qui s'appliquerait à tous les textbox ?

Merci d'avance.

un bout de fichier pour faciliter les choses.

 

[Regueiro]

Re : Valeurs null textbox VBA

Bonsoir
Il n'y pas de Userform dans votre Fichier
@+

 

[GysEcxelVBA]

Re : Valeurs null textbox VBA

Bonjour, merci d'avoir pris le temps de repondre à ma demande, désolé le 1er fichier était pas bon, voici le bon avec le userform.

 

[laetitia90]

Re : Valeurs null textbox VBA

bonsoir GysEcxelVBA ,Regueiro 🙂

comme je comprends!! code user

Dim i As Byte
Private Sub UserForm_Initialize()
 ComboBox1.List = Feuil1.Range("a2:d" & Feuil1.Cells(Rows.Count, 1).End(3).Row).Value
End Sub
Private Sub ComboBox1_Change()
For i = 1 To 4: Me("TextBox" & i) = ComboBox1.List(ComboBox1.ListIndex, i - 1): Next i
End Sub

 

[GysEcxelVBA]

Re : Valeurs null textbox VBA

bonsoir laetitia90,

merci de ta réponse, je vais tester

 

[GysEcxelVBA]

Re : Valeurs null textbox VBA

Re tout le monde,

ton code fonctionne laetitia90, mais pr bien comprendre, le code sous userform_initialize correspond au textbox vide si la cellule = 0 ? et l'autre code sous combobox_change correspond au chargement de la liste des cellules A2:A5 de ma feuill excel ?

merci

 

[GysEcxelVBA]

Re : Valeurs null textbox VBA

j'avais oublier de préciser, les données de la list combobox doivent s'ecrire dans une cellule précise car les résultats change en fonction des données car il y a une formule Index ; Equiv de recherche

 

[laetitia90]

Re : Valeurs null textbox VBA

re 🙂
je comprends pas bien ce que tu veus faire
il y a beaucoup de methode pour remplir une combo..
rowsource ,tablo,AddItem ect.. j'ai utiliser .list dans ton cas

ComboBox1.List = Feuil1.Range("a2:d" & Feuil1.Cells(Rows.Count, 1).End(3).Row).Value

que dit ce code je prends le code name de la feuille plus simple si tu renome la feuille . feuil1....

je pars de A2 jusqu a la derniere cell non vide de la colonne a

.Cells(Rows.Count, 1).End(3).Row

mais je selectionne egalement la plage jusqu a la colonne D

Feuil1.Range("a2:d" &

pourquoi??? je vais exploiter listindex de la combo pour remplir les textboxs

For i = 1 To 4: Me("TextBox" & i) = ComboBox1.List(ComboBox1.ListIndex, i - 1): Next i

-1 normal listindex commence a 0

voila!!
si 0 dans cellule on peut modifier comme cela

For i = 1 To 4
 Me("TextBox" & i) = ComboBox1.List(ComboBox1.ListIndex, i - 1)
 If Me("TextBox" & i) = 0 Then Me("TextBox" & i) = ""
Next i

 

[GysEcxelVBA]

Re : Valeurs null textbox VBA

RE,

Ok, au fait pour remplir une combo c'est sur il y a plusieurs codes, la tienne est simple et bien.

Mais je veux que les données de la combo se reporte dans la cellule H6 d'où le code [

ThisWorkbook.Sheets("feuil1").Range("h6").Value = ComboBox1.Value

pour que ma formule

=INDEX(nom;EQUIV(H6;nom;0))

sous excel s’exécute.

Ensuite les texbox.value sont les resultats de la formule dans chaque cellule, MAIS quand la cellule qui a la formule est vide sous excel, bien le texbox.value = 0 et c'est ce que je ne veux pas pour chaque texbox de mon userform.

si tu pouvais regarder le fichier joint

merci

 

[laetitia90]

Re : Valeurs null textbox VBA

re

essai comme cela tu es pas oblige de recuperer le resultat des formules du moment que tu utilise la combo ???

Private Sub ComboBox1_Change()
 Feuil1.[h6] = ComboBox1
 For i = 1 To 4
 Me("TextBox" & i) = ComboBox1.List(ComboBox1.ListIndex, i - 1)
 If Me("TextBox" & i) = 0 Then Me("TextBox" & i) = ""
 Next i
End Sub

 

[GysEcxelVBA]

Re : Valeurs null textbox VBA

tres bien, pour mon vrai tableau qui contient environ 358 ligne et autant de colonnes 24 envrion, je peux utiliser ton code? et le userform que j'ai fait a au moins 30-40 texbox car il prennent la valeur des resultat de ma formule index equiv dans des cellules differentes

 

[laetitia90]

Re : Valeurs null textbox VBA

re 🙂
a mon avis ou on passe tous par des formules ou par code ????

met un fichier plus représentatif sans données confidentielles user compris

pour le moment je comprends pas la finalité de tout cela!!!!

 

[GysEcxelVBA]

Re : Valeurs null textbox VBA

re,😎

voici une copie de mon fichier original.

je cherche un code général pour que les texbox n'afficher pas "0" si la cellule est vide

 

[laetitia90]

Re : Valeurs null textbox VBA

re 🙂

un exemple avec ton dernier fichier pas grand chose change nb..colonnes box de 1 a 7

d'ailleurs box 6 & 7 sont interverties ..... tout avec du code

 

[GysEcxelVBA]

Re : Valeurs null textbox VBA

Re,😎

Niquel, je viens d'analyser pr comprendre. Et j'ai renomé les texbox pr vérifier si ton code focntionnait, et message d'erreur.

Dans ton code, les texbox doivent restent dans l'ordre et ne pas etre renomé ?