besoin d'aide pour creer un programme, je n'y connais rien

  • Initiateur de la discussion Initiateur de la discussion gabarn
  • Date de début Date de début

Boostez vos compétences Excel avec notre communauté !

Rejoignez Excel Downloads, le rendez-vous des passionnés où l'entraide fait la force. Apprenez, échangez, progressez – et tout ça gratuitement ! 👉 Inscrivez-vous maintenant !

gabarn

XLDnaute Nouveau
Bonjour,

Mon pére m'a demander de creer un programme excel mais je n'y connais absolument rien. C'est pour sa petite entreprise.
Je souhaiterai creer un programme excel où je puisse rentrer le nom, adresse, departement, ville, prix du devis et un commentaire.Il faudrai aussi pourvoir faire un tri par les différentes catégories

Merci beaucoup.
Gabarn
 
Re : besoin d'aide pour creer un programme, je n'y connais rien

Bonjour Gabarn, bonjour le forum....

Tu voudrais des catégories de quoi éxactement?

Ce programme est facilement réalisable, mais il faut un minimum d'info pour le réaliser. Je bosse sur ce programme et te le propose juste après.

++
 
Re : besoin d'aide pour creer un programme, je n'y connais rien

Bonjour le forum, bonjour Gabarn.
Ravi que ce petit programme te convienne.
Il est issu d'une portion de code que j'avais trouvé sur ce forum il y a quelques temps et que j'ai adapté pour le besoin.

Ce forum est trop génial!!

++
 
Cette ressource (enfin c'en sera enfin une à partir du moment où il existera une catégorie "Utilitaires et compléments Excel et VBA" n'ayant rien à voir avec la sous-rubrique "Utilitaires" de la catégorie "Leçons et tutoriaux") faciliterait la programmation d'une macro établissant ce récapitulatif. Certains sauraient le faire avec d'autres outils que je ne maitrise absolument pas.
 

Pièces jointes

Dernière édition:
Module de l'objet Worksheet d'un nouvelle feuille :
VB:
Option Explicit
Private Sub Worksheet_Activate()
   Dim Empl As SsGr, TRés(), L As Long
   ReDim TRés(1 To Feuil1.UsedRange.Rows.Count, 1 To 2)
   For Each Empl In Gigogne(Feuil1.[A6], 1)
      L = L + 1
      TRés(L, 1) = Empl.Id
      TRés(L, 2) = Empl.Total(2)
      Next Empl
   Me.[A6].Resize(UBound(TRés, 1), 2).Value = TRés
   End Sub
 
- Navigue sans publicité
- Accède à Cléa, notre assistante IA experte Excel... et pas que...
- Profite de fonctionnalités exclusives
Ton soutien permet à Excel Downloads de rester 100% gratuit et de continuer à rassembler les passionnés d'Excel.
Je deviens Supporter XLD

Discussions similaires

D
Réponses
2
Affichages
1 K
Retour