XL 2021 stock inventaire

[C'est Génial]

Bonjour,

J'ai besoin d'une aide, j'ai rempli mon tableau de fournitures que je commande régulièrement,
Je souhaite avoir une fenêtre que dès que je tape (exemple : vis) toute ma liste de vis apparait avec le prix,
Ensuite je suis preneuse d'améliorer ce tableau, donc toutes bonnes idées je prends,
Merci beaucoup

 

[vgendron]

Hello

à priori, ton fichier est incomplet..?? il manque des feuilles "Sorties et Entrées" ??
il manque aussi un formulaire (celui lancé par la macro "Lance")

j'ai noté également que tes nombres sont parfois avec des virgules (donc excel ne les reconnait pas en tant que nombre, mais texte)
les formules ne sont pas toujours sur TOUTE la colonne..

pour améliorer et gagner en viibilité, tu peux mettre tes données sous forme de table structurée

ensuite. la "fenetre" que tu souhaites.. c'est quoi? un formulaire??

 

[C'est Génial]

bonjour,
Merci de m'avoir répondu,
Ce qui m'intéresse est seulement la colonne désignation et la colonne HT, oui en style de formulaire si je tape par exemple le premier mot comme Tôle il me met que la liste ou apparait Tôle avec le prix ht

 

[Compte Supprimé 979]

Bonjour Mouchette,

De ce que je lis,
Vous avez posté votre message avec un formatage incorrect pour un forum :
- Le titre du fil doit être explicite (le plus clair possible)

Votre titre parle d'inventaire stock et votre demande n'est pas celle-là à priori 🤔 😕

Merci de rectifier SVP

 

[C'est Génial]

Bonjour Mouchette,

De ce que je lis,
Vous avez posté votre message avec un formatage incorrect pour un forum :
- Le titre du fil doit être explicite (le plus clair possible)

Votre titre parle d'inventaire stock et votre demande n'est pas celle-là à priori 🤔 😕

Merci de rectifier SVP

Bonjour,
Désolée, comment dois je faire pour modifier ?

 

[Compte Supprimé 979]

Re,

Normalement en bas de votre 1er post, vous devriez avoir

Si ce n'est pas le cas, c'est que vous n'avez pas assez de messages à votre actif 🤔

 

[vgendron]

en PJ une proposition de formulaire

tu cliques sur le bouton "Recherche" pour lancer le formulaire
tu commences à taper dans le textbox (en haut)
et au fur et à mesure, la listbox se remplit

PS: je ne comprend pas pourquoi lorsqu'il y a UNE seule ligne, le montant est alors ecrit en dessous...
c'est la première fois que j'utilise cette méthode pour filtrer une table dans un tableau qui alimente ensuite la listbox.. (faut bien que je m'amuse un peu aussi.. 😉 )

@BrunoM45: hello, il me semble que tu es un habitué de cette méthode de remplissage.. peut etre sauras tu me dire où se trouve la subtilité..?

 

[C'est Génial]

en PJ une proposition de formulaire

tu cliques sur le bouton "Recherche" pour lancer le formulaire
tu commences à taper dans le textbox (en haut)
et au fur et à mesure, la listbox se remplit

PS: je ne comprend pas pourquoi lorsqu'il y a UNE seule ligne, le montant est alors ecrit en dessous...
c'est la première fois que j'utilise cette méthode pour filtrer une table dans un tableau qui alimente ensuite la listbox.. (faut bien que je m'amuse un peu aussi.. 😉 )

@BrunoM45: hello, il me semble que tu es un habitué de cette méthode de remplissage.. peut etre sauras tu me dire où se trouve la subtilité..?

Un grand merci, c'est ce qu'il me faut, merci d'être là car franchement vous nous apportez énormément dans le boulot,
Excellente journée à vous,
Je vais voir pour modifier pour intitulé

 

[Compte Supprimé 979]

Salut vgendron,

Lorsqu'il n'y a qu'une ligne ce n'est plus un tableau (2, n) mais (1,2) sinon on a 2 lignes 😉

A+

 

[vgendron]

Salut vgendron,

Lorsqu'il n'y a qu'une ligne ce n'est plus un tableau (2, n) mais (1,2) sinon on a 2 lignes 😉

A+

oui effectivement, j'y ai pensé juste après avoir posté..
et je pensais avoir trouvé la parade.. mais... non
je crois que je vais aller prendre l'air pour m'éclaircir les idées... suis en train de faire une usine à gaz en mélangeant les lignes et colonnes... 🙃

If UBound(Tablist, 2) = 1 Then
    Me.Lbx_Data.List = Tablist
Else
    Me.Lbx_Data.List = Application.Transpose(Tablist)
End If

 

[Compte Supprimé 979]

Re,
Si on veut faire "propre" il faut le faire en 2 étapes 😉
Et comme on applique pas "Option Base"

Private Sub Tbx_recherche_Change()
  Dim TabStock() As Variant
  Dim Ind As Long, Tablist()
 
  With Sheets("Stock").ListObjects("t_Stock")
    TabStock = .DataBodyRange.Value
    Ind = 0: n = 0
    ' Compter le nombre de valeurs correspondantes
    For i = LBound(TabStock, 1) To UBound(TabStock, 1)
      If UCase(TabStock(i, 2)) Like "*" & UCase(Me.Tbx_recherche) & "*" Then
        Ind = Ind + 1
      End If
    Next i
    ' Si > 1
    For i = LBound(TabStock, 1) To UBound(TabStock, 1)
      If UCase(TabStock(i, 2)) Like "*" & UCase(Me.Tbx_recherche) & "*" Then
        If Ind > 1 Then
          n = n + 1
          ReDim Preserve Tablist(1 To 2, 1 To n)
          Tablist(1, n) = TabStock(i, 2)
          Tablist(2, n) = TabStock(i, 4)
        Else
          ReDim Tablist(1, 2)
          Tablist(0, 0) = TabStock(i, 2)
          Tablist(0, 1) = TabStock(i, 4)
        End If
      End If
    Next i
  End With
  Me.Lbx_Data.Clear
  On Error GoTo fin
  If Ind > 1 Then
    Me.Lbx_Data.List = Application.Transpose(Tablist)
  Else
    Me.Lbx_Data.List = Tablist
  End If
fin:
End Sub

A+

 

[vgendron]

je vais creuser ca pour comprendre pourquoi selon le nombre de lignes de données, il faut passer soit par
ReDim Preserve Tablist(1 To 2, 1 To n)
soit
ReDim Tablist(1, 2)

merci