Valeurs null textbox VBA

Regueiro

XLDnaute Impliqué

• 8 Mars 2016

• #2

Re : Valeurs null textbox VBA

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

 

Vote positif 0 Vote négatif

G

GysEcxelVBA

Guest

• 8 Mars 2016

• #3

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.

 

Pièces jointes

• valeurs null texbox.xlsm

  22.8 KB · Affichages: 25
• valeurs null texbox.xlsm

  22.8 KB · Affichages: 30

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 8 Mars 2016

• #4

Re : Valeurs null textbox VBA

bonsoir GysEcxelVBA ,Regueiro 🙂

comme je comprends!! code user

Code:

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

 

Vote positif 0 Vote négatif

G

GysEcxelVBA

Guest

• 8 Mars 2016

• #5

Re : Valeurs null textbox VBA

bonsoir laetitia90,

merci de ta réponse, je vais tester

 

Vote positif 0 Vote négatif

G

GysEcxelVBA

Guest

• 8 Mars 2016

• #6

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

 

Vote positif 0 Vote négatif

G

GysEcxelVBA

Guest

• 8 Mars 2016

• #7

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

 

Dernière modification par un modérateur: 8 Mars 2016

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 9 Mars 2016

• #8

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

Cliquez pour agrandir...

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

Cliquez pour agrandir...

-1 normal listindex commence a 0

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

Code:

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

 

Vote positif 0 Vote négatif

G

GysEcxelVBA

Guest

• 9 Mars 2016

• #9

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 [

Code:

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

pour que ma formule

Code:

=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

 

Dernière modification par un modérateur: 9 Mars 2016

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 9 Mars 2016

• #10

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 ???

Code:

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

 

Vote positif 0 Vote négatif

G

GysEcxelVBA

Guest

• 9 Mars 2016

• #11

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

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 9 Mars 2016

• #12

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!!!!

 

Vote positif 0 Vote négatif

G

GysEcxelVBA

Guest

• 9 Mars 2016

• #13

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

 

Pièces jointes

• valeurs null texbox.xlsm

  29 KB · Affichages: 20
• valeurs null texbox.xlsm

  29 KB · Affichages: 23

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 9 Mars 2016

• #14

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

 

Pièces jointes

• valeurs null texbox (4).xlsm

  27.4 KB · Affichages: 26

Vote positif 0 Vote négatif

G

GysEcxelVBA

Guest

• 9 Mars 2016

• #15

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é ?

 

Vote positif 0 Vote négatif