Petit coup de main sur du VBA

Y compris Power BI, Power Query et toute autre question en lien avec Excel
S
Sylvain_29
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 21 mai 2014
Version d'Excel : 2010 FR

Message par Sylvain_29 » 21 mai 2014, 17:54

Bonjour,

Un ami m'a beaucoup aidé pour créer une gestion de stock sur excel avec des macros.
Seulement j'ai modifié des colonnes dans mon fichier de base. Ca fait 2 heures que je m'énerve à comprendre le VBA sur le tas, mais sans succès ...
Si quelqu'un pouvait juste revoir au niveau des macros ce qui cloche pour que ça marche, ce serait vraiment super !

Merci d'avance,

Cdlt
Gestion stock celtic.xlsm
(35.68 Kio) Téléchargé 14 fois
Avatar du membre
BrunoM45
Membre impliqué
Membre impliqué
Messages : 2'902
Appréciations reçues : 87
Inscrit le : 29 octobre 2011
Version d'Excel : 2016 FR, O365 FR
Contact :

Message par BrunoM45 » 21 mai 2014, 18:24

Bonjour Sylvain_29

D'après ce que je vois dans le code, les lignes sont stockés dans un tableau (variable : Tablo)
Il suffit alors d'adresser la bonne colonne
2 = Employé
3 = Chantier
4 = Stock
Le code est donc
Private Sub ComboBox1_Change()
  If ComboBox1.ListIndex = -1 Then
    Efface
    Exit Sub
  End If
  TextBox1 = Tablo(ComboBox1.ListIndex + 1, 4)
End Sub
A+
[F1] est une touche qui appelle l'aide : Essayez, c'est assez performant et on trouve plein de choses

Il n'y a ni bon ni mauvais usage de la liberté d'expression, il n'en existe qu'un usage insuffisant.
r
robjam
Membre dévoué
Membre dévoué
Messages : 538
Inscrit le : 8 mai 2012
Version d'Excel : 2010 FR, 2016 FR

Message par robjam » 21 mai 2014, 18:38

Bonjour,
J'ai pu corriger l'affichage du Stock après indication de la désignation. Mais on ne peut rien faire d'autre. Les autres combos ne sont pas remplis et on ne peut le faire car les feuilles sont protégée et il faut un mot de passe pour les déprotéger.
La moindre des choses serait de prévenir pour ne pas que les bénévoles qui veulent bien vous aider ne perdent pas leur temps.
Cordialement
R.J.
S
Sylvain_29
Nouveau venu
Nouveau venu
Messages : 9
Inscrit le : 21 mai 2014
Version d'Excel : 2010 FR

Message par Sylvain_29 » 22 mai 2014, 08:53

Merci de vos réponses.

Merci pour les stocks BrunoM45, ça marche super.
Mais maintenant mon soucis c'est que logiquement le "4" qu'il y a ici :
Private Sub ComboBox1_Change()
If ComboBox1.ListIndex = -1 Then
Efface
Exit Sub
End If
TextBox1 = Tablo(ComboBox1.ListIndex + 1, 4)
End Sub

Je devrais normalement juste le remplacer par un "2" pour employé et un "3" pour Chantier mais ça ne marche pas, mes menus déroulants restent vides. ll faut que je crée quelque chose avant non?

Et oui Robajm, je suis désolé, j'avais oublié que j'avais protéger les feuilles. Maintenant c'est bon, et au cas où il faudrait le mot de pass, le voilà : "CELTIC" (en majuscule).

Merci du temps que vous consacrez à m'aider.
Gestion stock celtic.xlsm
(36.19 Kio) Téléchargé 15 fois
Répondre Sujet précédentSujet suivant
  • Sujets similaires
    Réponses
    Vues
    Dernier message