Programmation sur EXCEL

Question

Configuration: Windows XP / Internet Explorer 7.0


Bonjour,

J'ai sur une feuille Excel nommée "articles", une centaine de "boutons" qui symbolisent des articles, qui en cliquant dessus affiche sur la meme feuille sur une forme de facture differente choses.

J'ai sur une deuxieme feuille Excel nommée "code" la liste des articles avec leur prix etc....

La macro suivante me permet d'afficher sur la facture de la feuille "artcles", la qte, le nom, le prix etc...

' FABRICATION DE LA FACTURE
Public Sub addition()
Dim valeur As String
Dim l As Integer
nombre = Application.InputBox("Combien ? :", Type:=1)
If nombre = False Then Exit Sub
l = Sheets("articles").Range("c28").End(xlUp).Row + 1
valeur = ActiveSheet.Shapes(Application.Caller).TextFrame.Characters.Text

For Each c In Sheets("CODE").Range("b3:b" & Sheets("code").Range("b500").End(xlUp).Row)

If c.Value = valeur Then

With Sheets("articles")
'note la quantite sur la facture
.Range("b" & l).Value = nombre
' note la designation sur la facture
.Range("c" & l).Value = c.Value
' note le prix sur la facture
.Range("e" & l).Value = c.Offset(0, 1).Value
' note le code TVA sur la facture
.Range("a" & l).Value = c.Offset(0, -1).Value
End With
End If
Next c

End Sub
PROBLEME :

Je voudrais pouvoir travailler sur plusieurs factures en meme temps.

Actuellement j'ai resolu mon probleme en copiant 10 fois la page "articles" et 10 fois la macro, mais je me heurte à 2 problemes:
 1°) je n'ai souvent pas assez des 10 
2°) il me faut à chaque changement de nom de produit, que je le change sur les 10 pages.

Comment faire differement ?

D"avance MERCI

lermite222 · Answer

Bonjour, 
Laisser la page vierge (ne pas s'en servir) et chaque fois que tu clic sur le bouton créer une copie de la page. 
Par faciliter ta macro devrait être dans le module de la feuille. 
Et Tu pourais la cacher.
A+ 
L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

lermite222 · Answer

J'ai relu ta question et ça me parais difficile de te donner une piste comme ça.
Tu pourrais pas mettre une copie de ton classeur sur Cjoint.com ? et mettre le lien dans un poste suivant ?

lermite222 · Answer

J'ai trouver que ton approche n'était pas fort...heuuu
Alors j'ai cogité un classeur qui pourrait peut-être t'intèressé..
Regarde ce classeur
Je n'ai pas poussé le design, ça je te le laisse..:D
A+

lermite222 · Answer

Il est préférable que tu pose tes questions en ajoutant un poste sur la discution et pas chaque fois de m'envoyer un MP. Je n'y répondrais plus. 

Je ne comprend d'ailleur pas ta remarque, j'ai retester le classeur et il fonctionne normalement. 
Le bouton "Gérer addition des tables" ne doit être employer qu'une fois, il est là pour que tu puisse lire le mode d'emploi et ensuite ouvrir l'UF. 
C'est dans le formulaire que tu peu ouvrir autant de table que tu veux en cliquant sur le bouton Entrer Table,  et pas en recliquant sur le bouton de la feuille 
Tant qu'excel n'est pas fermer, tout est mémoriser. 

L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

lermite222 · Answer

Bonjour,   
Beh je n'ai pas eu la prétention de te faire toute ton appli, ce n'est qu'un exemple pour te montrer une autre option.   

Mettre des boutons à la place des listes.. C'est possible, mais tu a vu le nombre de boutons qu'il te faudrais pour les boissons? je me demande si ça tiendrait dans un écran ???   

Si tu regarde dans le code tu verras que j'ai mis une remarque pour justement effectuer une saisie quand Divers est sélectionner.   

Pour comprendre le code tu a entre-autre, Un tuto ici   

Enlever le 0 après Show n'est surement pas l'erreur qui bloque, et de cette façon tu ne peu revenir sur une feuille pour faire d'éventuels changements. Tu dois fermer le formulaire et perdre les données déja entrées. 

Essaye d'avancer et revient avec un classeur un peu plus complet..   
A+   

L'expérience instruit plus sûrement que le conseil. (André Gide)     
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

lermite222 · Answer

Remet ton classeur tel quel sur Cjoint et donne le lien. 
J'ai tester mon modèle, j'ai rechargé le modèle depuis le site au cas ou il y aurait eu une erreur dans le transfert et chez moi ça fonctionne dans tout les cas. 
Tu a certainement modifié quelque chose, peut être sans t'en apercevoir. 
A-tu essayé de télecharger à nouveau ? 
Tu n'aurais pas changer des noms de feuilles ?

L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

lermite222 · Answer

Beh chez moi y va impec !! 
Ca doit provenir de ton excel.  
Note que j'ai tester sur Excel 2000 et 2007 et pas de problème; 
Regarde un peu ce que tu a dans les références. 
Quand tu est en VBA tu clic >> Outils >> Références , tu devrait avoir 4 références cochées, dis moi les quel tu as. 
L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

lermite222 · Answer

JE VIENS DE   VOIR... TU A EXCEL 97 ??? 
Si oui, tu enlève le 0 de show.
Tu va dans le module de l'userForm et tu change dans la sub Initialize
Private Sub UserForm_Initialize()
Dim i As Integer
Dim B As Boolean

    B = FALSE  'pendant les modifications code, à mettre à False pour travail
Et ça va aller, sauf que tu devra fermer l'userForm pour éventuellement faire des modif dans les feuille.
Mais avec ce changement les données ne seront pas perdues.

L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

lermite222 · Answer

Ca se trouve dans le module de l'UserForm dans la Sub VoirFacture() 
Mais tu dois lier au bouton voir facture... 
tu ajoute entre  
Private Sub CommandButton11_Click() 
    VoirFacture 
End Sub
Là tu peu modifier les emplacements des colonnes en changeant... 
ListFacture.List(lig, 3) .. le 3 c'est le N° de la colonne tu peu aussi mettre la lettre entre guillement.. 
ListFacture.List(lig, "D") 
Note: quand le projet est définitif oublie pas de mettre B = False dans l'initialize de l'UF.
A+ 
L'expérience instruit plus sûrement que le conseil. (André Gide)   
Si tu te cogne à un pot et que ça sonne creux, c'est pas forcément le pot qui est vide. ;-)(Confucius)

Programmation sur EXCEL

9 réponses

Newsletters