Création bouton pour macro de tri et affichage sur une page type userform
bonjour à tous,
Je me suis créer un formulaire qui me permet d'enregistrer des interventions dans une feuille du classeur, j'aimerais maintenant me créer un autre formulaire avec un bouton qui me permette de sélectionner une machine, un intervalle de temps , et me calcule la somme des temps de pannes pour l'intervalle de temps demandé.
Et que en plus cela me l'affiche sur une page type userform.
est ce réalisable ?
Bonjour Cyroulette,
Désolé, je n'ai pas bien compris ta demande.
bonjour,
voici mon fichier, j'aimerais me créer à nouveau bouton sur la page accueil, qui m'emménerait sur un formulaire que j'appellerais STATISTIQUES , dedans je voudrais avoir la possibilité de choisir une machine grace à son numéro, une date ou un interval de temps , et cela me donnerais la somme des temps d'interventions toutes ces données seraient tirées de la page interventions. et j'aimerais que cela s'affiche dans une page autre que la feuille de donnée d'ou sont tirées les données.
c'est pour avoir un modèle après j'essaierais de l'adapter à d'autres calculs.
voilà j'espère avoir été assez clair
OK Cyroulette, j'ai bien compris ta demande.
Une question : dans la feuille 'machines', certaines machines n'ont pas de N°SIS. Faut-il ignorer ces machines dans la sélection ?
Cyroulette,
En P.J. une proposition.
J'ai ajouté un bouton dans le volet 'Accueil' :
qui ouvre le formulaire :
Dans le formulaire, pour la saisie des dates j'ai utilisé la fonction 'datePicker' du complément gratuit téléchargeable ici : https://www.excel-pratique.com/fr/fonctions-complementaires/date-picker
bonjour,
Oui cela à l'air bien, mais je ne vois pas la pièce jointe
j'ai bien installer le complément mais cela me met une erreur
Private Sub UserForm_Initialize()
Dim oLO As ListObject
Dim oRow As Range
Dim oItem As Object
Dim CollectionMachines As New Collection
Dim sMachine As String
Dim i As Long
Set oLO = ThisWorkbook.Worksheets("machines").ListObjects("Tableau7")
For Each oRow In oLO.DataBodyRange.Rows
sMachine = CStr(oRow.Columns(oLO.ListColumns("N° SIS").Index).Value)
If Len(Trim(sMachine)) > 0 Then
CollectionMachines.Add sMachine
End If
Next
SortCollection CollectionMachines
For i = 1 To CollectionMachines.Count
cmbMachines.AddItem CollectionMachines.Item(i)
Next
End Sub
c'est sur trim que ca plante apparemment
Bonjour Cyroulette,
Peux-tu vérifier ceci : dans le menu VBA sélectionnes Outils/Références :
et dans la fenêtre affichée , vérifies que tu as la même liste de références ci-dessous sans "MANQUANT" :
