Alimenter TEXTBOX selon COMBOBOX par une RECHERCHEV dans une feuille..

pierrejean

XLDnaute Barbatruc

• 26 Juillet 2008

• #2

Re : Alimenter TEXTBOX selon COMBOBOX par une RECHERCHEV dans une feuille..

bonjour pierolefou

Mon ami Tibo a recemment dit une chose très juste:
Il vaut mieux aller chez son garagiste avec sa voiture plutot qu'avec la photo du moteur
Ici c'est sensiblement la même chose
Avec un fichier exemple(sans données confidentielles) on sera plus a l'aise pour t'aider

 

Vote positif 0 Vote négatif

P

pierolefou

Guest

• 26 Juillet 2008

• #3

Re : Alimenter TEXTBOX selon COMBOBOX par une RECHERCHEV dans une feuille..

Ok j'essaie de faire ça au plus vite en allégeant au max

 

Vote positif 0 Vote négatif

P

pierolefou

Guest

• 26 Juillet 2008

• #4

Re : Alimenter TEXTBOX selon COMBOBOX par une RECHERCHEV dans une feuille..

pierolefou à dit:

Ok j'essaie de faire ça au plus vite en allégeant au max

Cliquez pour agrandir...

Pas moyen de réduire mon fichier à moins de 48ko
Comment faire ?

je suis à plus de 1.2Mo...

 

Vote positif 0 Vote négatif

C

Compte Supprimé 979

Guest

• 26 Juillet 2008

• #5

Re : Alimenter TEXTBOX selon COMBOBOX par une RECHERCHEV dans une feuille..

Salut Peirolefou,

Tu peux le mettre sur Cijoint.fr - Service gratuit de dépôt de fichiers

Après si il est encore plus gros que 8Mo il y a Free - Envoyez vos documents

A+

 

Vote positif 0 Vote négatif

P

pierolefou

Guest

• 26 Juillet 2008

• #6

Re : Alimenter TEXTBOX selon COMBOBOX par une RECHERCHEV dans une feuille..

Génial !

Alors donc !
Voici le lien pour accéder à mon fichier

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


Démarche (j'ai désactiver bcp de fonctionnalité et bcp de feuilles pour alléger) :

1/ clic sur bonzomme vert dans la feuille bordereau
2/ clic sur "nouveau produit"
3/ clic sur "DIVERS" en bas à droite

4/ choix du fabricant (ici un seul est renseigné)
5/ choix du produit (champ "désignation")

Je voudrais que sur changement de ce dernier Combobox, les textbox prix unitaire et remise fournisseur soient renseignés.. en allant chercher les infos dans la feuille catalogue

c'est y assez explicite ?

Merci et bravo pour la réactivité toujours surprenante !

Pierre

 

Dernière modification par un modérateur: 26 Juillet 2008

Vote positif 0 Vote négatif

P

pierolefou

Guest

• 26 Juillet 2008

• #7

Re : Alimenter TEXTBOX selon COMBOBOX par une RECHERCHEV dans une feuille..

Excusez : mot de passe pour les macros du classeur =

 

Dernière modification par un modérateur: 3 Août 2008

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 26 Juillet 2008

• #8

Re : Alimenter TEXTBOX selon COMBOBOX par une RECHERCHEV dans une feuille..

Re

A tester:

Dans l'Usf Depose Cablages

Code:

Private Sub ComboBox2_Change()
Set c = Sheets("catalogue").Columns("A").Find(ComboBox2.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
   TextBox6 = c.Offset(0, 4)
   If c.Offset(0, 5) = "" Then
     texbox7 = Format(0.4, "0.00%")
   Else
     TextBox7 = Format(c.Offset(0, 5), "0.00%")
   End If
End If
End Sub

 

Vote positif 0 Vote négatif

P

pierolefou

Guest

• 26 Juillet 2008

• #9

Re : Alimenter TEXTBOX selon COMBOBOX par une RECHERCHEV dans une feuille..

Génialissimo !

A priori aucun problème !

Merci beaucoup PierreJean... Je n'ai plus qu'à adapter à l'ensemble de mon classeur..

Ce forum est réellement le meilleur que je connaisse...

En passant merci également à BrunoM45..

Pierre

 

Vote positif 0 Vote négatif

P

pierolefou

Guest

• 26 Juillet 2008

• #10

Re : Alimenter TEXTBOX selon COMBOBOX par une RECHERCHEV dans une feuille..

Encore un petit souci :

Code:

Private Sub ComboBox2_Change()
Set c = Sheets("catalogue").Columns("A").Find(ComboBox2.Value, LookIn:=xlValues, lookat:=xlWhole)
If Not c Is Nothing Then
TextBox6 = c.Offset(0, 4)

If c.Offset(0, 5) = "" Then
texbox7 = Format(0.4, "0.00%")
Else


TextBox7 = Format(c.Offset(0, 5), "0.00%")
End If
End If
End Sub

il semble que la première condition (si la colonne remise fournisseur est vide, insérez 0.4 en format %, ne fonctionne pas : le champ n'est renseigné que si cette colonne l'est. Le 40% par défaut n'apparaît donc pas)
Où est le bug, je cherche mais ne trouve pas pour l'instant

 

Vote positif 0 Vote négatif

Bernard_XLD

XLDnaute Barbatruc

Membre du Staff

Modérateur

• 26 Juillet 2008

• #11

Re : Alimenter TEXTBOX selon COMBOBOX par une RECHERCHEV dans une feuille..

salut

ecris textbox7 au lieu de texbox7, là, VBA ne retrouve pas son petit

A+

 

Vote positif 0 Vote négatif

P

pierolefou

Guest

• 26 Juillet 2008

• #12

Re : Alimenter TEXTBOX selon COMBOBOX par une RECHERCHEV dans une feuille..

Evidemment... parfois les yeux sont pas en face des trous !

merci !

 

Vote positif 0 Vote négatif