gestion de stock avec plusieurs feuilles : utilisation de activesheet

[Marianne]

voilà, j'espère être claire dans mes explications :

j'ai parcouru ce forum attentivement car c'est la toute première fois que je fais quelque chose en VBA

j'ai réussi à faire une page de ma gestion de stock : celle de la marque Esprit (comme vous pourrez le voir si vous regardez mon fichier)

le problème qui se pose à moi, c'est que je dois faire une page par marque. Je pensais qu'en copiant ma feuille "Esprit", en nommant la copie "marque 2" et en remplaçant dans le code les "Esprit" par "Marque 2", ça marcherait mais ce n'est pas le cas : il faudrait pour cela que je crée 4 userform par marque (comme j'ai 12 marques, ça va faire beaucoup)

j'ai cru trouver la solution en remplaçant des formules type : Sheets("Esprit").Range("A9:A255") par des formules Activesheet.range("A9:A255")
ça marche dans la majorité des cas....

Sauf pour la combobox. Je n'arrive pas à trouver la façon de lui dire d'aller chercher les références de la feuille active pour la combo_ref

C'est parce que j'ai déjà essayé "en tatonnant" beaucoup de choses et que je suis à deux doigts d'abandonner que je vous appelle à l'aide.

merci beaucoup à tous ceux qui voudront bien faire chauffer leurs neurones pour moi

 

[Pascal76]

Bonjour

Je t'ai modifié ton fichier sans trop rentré dans le code pour qu'en recopiant une feuille et en la renommant avec ton nouveau nom de marque cela fonctionne

Pascal

 

[Marianne]

merci beaucoup Pascal

j'ai évidemment aussitôt mis le nez dans le code pour regarder les modif' que tu as faites.

Donc j'ai bien compris qu'il fallait mettre : "MaFeuille = ActiveSheet.Name" après chaque private sub

en revanche, il me fait toujours l'erreur à ce niveau-là :

combo_ref.RowSource = MaFeuille & "!A9:A255"

sur les usf_entrer et usf_sortir

mais en tout cas, tu m'as redonné la motivation pour continuer ce projet

je continuer à me ronger les ongles dessus ;-)

 

[Michel_M]

Bonjour Marianne et Pascal,

ci dessous tiré de usf_entrer

With ActiveSheet
'Set plageStock = .Range("A9:A255")
Set plageFacture = .Range("L12:L12")
combo_ref.RowSource = "A9:A255"
End With

je n'ai pas regardé le projet à fond mais:
pourquoi ne pas passer plagestock en variable private


Si j'avais ce projet à réaliser je ferais autant de classeurs qu'il y a de marques: moins de boulot, + grande souplesse, sécurité, manipulations + rapides.
Avec un classeur nommé "Acceuil" ou "home" ou autre dirigeant par lien hypertexte sur la marque voulue
le tout dans le mçme répertoire...

petite simplification de ton code de bouton ( en petit supplément gratuit)

Private Sub effacer_inventaire_Click()
'Range("A9:J255").ClearContents
Range("A9:J255").Borders.LineStyle = xlNone
Range("A9").Select
End Sub

A+
Michel

 

[Marianne]

euh...

comme je l'ai, je débute et je n'ai fait qu'un "patchwork" de tout ce que j'ai trouvé sur ce forum

c'est la raison pour laquelle mon plagestock n'est pas en private

juste pour ma "culture générale", ça veut dire quoi de passer la variable en pivate ?

je vais tester l'idée des différents classeurs et liens hypertexte qui semble être me meilleurs compromis au niveau de l'économie d'énergie

je vous tiens au courant

en tout cas, je le répète : merci à vous deux pour le temps que vous avez passé sur ma balbutiante gestion de stock 🙂