1ers lettres liste decalee

pierrejean

XLDnaute Barbatruc

• 20 Juin 2015

• #2

Re : 1ers lettres liste decalee

Bonjour MARIE

Vois si cela va mieux

 

Pièces jointes

• devis founis essai 6 (1).xlsm

  231.5 KB · Affichages: 57
• devis founis essai 6 (1).xlsm

  231.5 KB · Affichages: 45
• devis founis essai 6 (1).xlsm

  231.5 KB · Affichages: 37

Vote positif 0 Vote négatif

M

MARIENO35

Guest

• 20 Juin 2015

• #3

Re : 1ers lettres liste decalee

Bonjour Pierre-Jean

Je te remercie pour ta solution qui fonctionne très bien.

Mais, j'ai un tarif qui fait 4000 articles environ et la recherche qui se fait sur tout les mots qui contiennent les lettres saisies ; c'est un peu compliqué et fastidieux ;
j'ai donc modifié mon exemple ci-joint en créant 1 texbox1 pour la recherche uniquement sur les 1ères lettres du nom de l'article et une 2ème texbox2 permettant si besoin une recherche plus large sur tout les mots contenus dans le nom de l'article
Pour la texbox2, j'ai donc fait un copier coller de ta solution mais je ne sais pas comment faire pour la textbox1 si je veux faire 1 recherche que sur les 1ères lettres du nom de l'article.

Si quelqu'un peut m'aider, je le remercie d'avance.

bonne journée
cdlt

 

Pièces jointes

• devis fourni 1 dowload.xlsm

  230.4 KB · Affichages: 31
• devis fourni 1 dowload.xlsm

  230.4 KB · Affichages: 46
• devis fourni 1 dowload.xlsm

  230.4 KB · Affichages: 49

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 20 Juin 2015

• #4

Re : 1ers lettres liste decalee

RE

Vois ceci

 

Pièces jointes

• devis fourni 1 dowload.xlsm

  231.3 KB · Affichages: 50
• devis fourni 1 dowload.xlsm

  231.3 KB · Affichages: 49
• devis fourni 1 dowload.xlsm

  231.3 KB · Affichages: 37

Vote positif 0 Vote négatif

M

MARIENO35

Guest

• 20 Juin 2015

• #5

Re : 1ers lettres liste decalee

Merci beaucoup
ça fonctionne parfaitement mais comme la liste est longue, la recherche est lente.
et je n'ai pas trouvé d'autre solution.

Bonne soirée

 

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 21 Juin 2015

• #6

Re : 1ers lettres liste decalee

Bonjour,

Sur cet exemple, on recherche sur une BD de 38.000 communes

http://boisgontierjacques.free.fr/fichiers/DonneesValidation/SaisieSemi-automatiqueVilles.xls

JB

 

Vote positif 0 Vote négatif

M

MARIENO35

Guest

• 21 Juin 2015

• #7

Re : 1ers lettres liste decalee

Bonjour

Merci pour exemple que je vais essayer d'adapter à mon cas.
Mais je pense que la recherche est lente parce que les articles ne sont pas classés par ordre alphabétique et je ne peux pas le faire car pour accéder à l'article, je passe d'abord par un plan avec familles et sous familles reliées par des liens hypertextes vers le fichier tarif
voir mon exemple mais ici la recherche est beaucoup plus rapide que dans mon fichier réel

merci et bon dimanche

 

Pièces jointes

• TARIF.xlsm

  162.5 KB · Affichages: 30
• TARIF.xlsm

  162.5 KB · Affichages: 78
• TARIF.xlsm

  162.5 KB · Affichages: 47

Vote positif 0 Vote négatif

pierrejean

XLDnaute Barbatruc

• 21 Juin 2015

• #8

Re : 1ers lettres liste decalee

RE

Salut JB

Avec utilisation d'un dictionnaire comme dans l'exemple de JB

 

Pièces jointes

• TARIF.xlsm

  167.9 KB · Affichages: 29
• TARIF.xlsm

  167.9 KB · Affichages: 44
• TARIF.xlsm

  167.9 KB · Affichages: 78

Dernière édition: 21 Juin 2015

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 21 Juin 2015

• #9

Re : 1ers lettres liste decalee

Saisie intuitive sur lettres contenues dans le libellé:

Code:

Dim a(), Tarticles()
Private Sub UserForm_Initialize()
  a = Application.Transpose([liste].Value)
  Tarticles = [articles].Value
  Me.ComboBox1.List = a
  Me.ComboBox1.SetFocus
End Sub

Private Sub ComboBox1_Change()
 If Me.ComboBox1 <> "" And IsError(Application.Match(Me.ComboBox1, a, 0)) Then
   Me.ComboBox1.List = Filter(a, Me.ComboBox1.Text, True, vbTextCompare)
   Me.ComboBox1.DropDown
 End If
End Sub

Private Sub CommandButton1_Click()
    If ComboBox1.ListIndex = -1 Then
        MsgBox "Vous n'avez rien sélectionné.", 16
        Exit Sub
    End If
    For i = 1 To UBound(Tarticles)
      If Tarticles(i, 1) = Me.ComboBox1 Then
       ActiveCell = Tarticles(i, 3)
       ActiveCell.Offset(, 1) = Tarticles(i, 1)
       ActiveCell.Offset(, 7) = Tarticles(i, 6)
      End If
    Next i
   Unload Me
 End Sub

JB

 

Pièces jointes

• devis founis essai 6 (1).xlsm

  229.3 KB · Affichages: 57
• devis founis essai 6 (1).xlsm

  229.3 KB · Affichages: 63
• devis founis essai 6 (1).xlsm

  229.3 KB · Affichages: 42
• Sans titre.gif

  20.8 KB · Affichages: 31
• Sans titre.gif

  20.8 KB · Affichages: 44

Dernière édition: 21 Juin 2015

Vote positif 0 Vote négatif

M

MARIENO35

Guest

• 30 Juin 2015

• #10

Re : 1ers lettres liste decalee

Bonjour à tous

Cette semaine j'ai adapté la solution de JB et pierre-Jean sur mon tarif entier et le dictionnaire fonctionne très bien ; le résultat est instantané. merci à vous
Mais j'ai encore une dernière question :
LORSQUE JE CLIC SUR LA CELLULE A12 DANS LA DEMANDE DE PRIX, LA LISTE DES ARTICLES S'OUVRE MAIS IL N'Y A QUE LE NOM DE L'ARTICLE QUI S'AFFICHE , JE SOUHAITERAIS QU'APPARAISSE EGALEMENT SUR LA MËME LIGNE PAR EXEMPLE LA DATE D'ACHAT ET LE NOM DU FOURNISEUR
Si vous pouviez me donner un début de réponse!!!

merci

 

Pièces jointes

• 1ere lettre ou contient.xlsm

  230.7 KB · Affichages: 31

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 1 Juillet 2015

• #11

Re : 1ers lettres liste decalee

Bonjour,

cf PJ



http://boisgontierjacques.free.fr/fichiers/DonneesValidation/DevisIntuitif.xlsm

JB

 

Pièces jointes

• devis founis essai 6 (1)-1.xlsm

  235.1 KB · Affichages: 36
• Sans titre.gif

  37.5 KB · Affichages: 35
• Sans titre.gif

  37.5 KB · Affichages: 38

Dernière édition: 3 Juillet 2015

Vote positif 0 Vote négatif

M

MARIENO35

Guest

• 18 Juillet 2015

• #12

Re : 1ers lettres liste decalee

Bonjour

Je remercie Boisgontier pour son exemple que j'ai réussi à adapter à un extrait de mon fichier.

lorsque je clic dans la cellule A12, de l'onglet DEVIS, le fichier s'ouvre avec le nom de l'article, le N°, la date d'achat, le nom du fournisseur, l'unité" et le prix d'achat. c'est exactement ce que je voulais
Une fois l'article choisit, je fais OK mais il n'y a que le N° et la désignation qui s'inscrit dans le devis ; je n'arrive pas à afficher l'unité et le prix ; il doit y avoir une erreur mais je ne l'ai pas trouvée.
Si quelqu'un pouvait m'aider !!!!!

merci

 

Pièces jointes

• essai liste2.xlsm

  86.7 KB · Affichages: 37
• essai liste2.xlsm

  86.7 KB · Affichages: 48
• essai liste2.xlsm

  86.7 KB · Affichages: 24

Vote positif 0 Vote négatif

BOISGONTIER

XLDnaute Barbatruc

Repose en paix

• 18 Juillet 2015

• #13

Re : 1ers lettres liste decalee

Bonjour,

cf PJ

Code:

Private Sub CommandButton1_Click()
 If Me.TextBox1 <> "" Then
    ActiveCell.Offset(0, 0) = Me.TextBox1
    ActiveCell.Offset(0, 1) = Me.ComboBox1
    ActiveCell.Offset(0, 7) = Me.TextBox4
    ActiveCell.Offset(0, 9) = CDbl(Me.TextBox5)
    Unload Me
 End If
End Sub

JB

 

Pièces jointes

• essai liste2.xlsm

  84.6 KB · Affichages: 33
• essai liste2.xlsm

  84.6 KB · Affichages: 64
• essai liste2.xlsm

  84.6 KB · Affichages: 42

Dernière édition: 18 Juillet 2015

Vote positif 0 Vote négatif

M

MARIENO35

Guest

• 18 Juillet 2015

• #14

Re : 1ers lettres liste decalee

ok merci
ça fonctionne

Bonne soirée

 

Vote positif 0 Vote négatif

M

MARIENO35

Guest

• 19 Juillet 2015

• #15

Re : 1ers lettres liste decalee

Bonjour

Merci cela fonctionne à merveille ; avec de bons professeurs, cela devient de plus en plus intéressant même si j'ai beaucoup de lacunes en VBA mais j'avance à petit pas.

j'ai donc constaté que la formule : Val(Replace(Me.TextBox5,",", ".")) permettait de transformer la valeur de la texbox en numérique puisque c'est un prix, en gardant uniquement 2 chiffres après la virgule mais lorsque j'ouvre la liste des articles, les prix sont présentés avec plusieurs chiffres après la virgule et il en est de même de l'affichage du prix dans la texbox ; existe t-il une formule pour éviter celà ? (voir mon exemple)
Merci d'avance pour votre aide

bye

 

Pièces jointes

• essai liste2.xlsm

  122.7 KB · Affichages: 29
• essai liste2.xlsm

  122.7 KB · Affichages: 47
• essai liste2.xlsm

  122.7 KB · Affichages: 47

Vote positif 0 Vote négatif