Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

aide sur date

P

PY

Guest
Bonsoir à tous

voila mon probleme: a partir d'un classeur qui comprend plusoeurs onglets: je fais activesheetcopy et j'enregistre la feuille active en temps que nouveau classeur XL.
je voudrais qu'en ouvrant mon classeur principal il me liste (en interne) les dates qui figurent sur les feuilles enregistrées et qu'il me fasse un truc du genre:
si il y a une date dépassée de 3 semaines (18 jrs) depuis aujourd'hui alors msgbox.

deuxième question est-il possible de supprimer la barre de menu (en mettant les instruction dans sub woorkbook open () ) et de la rétablir en quittant le classeur dans sub woorbook bfeore close ()?

merci de m'aider
 
P

petitstagiaire

Guest
bonjour PY,

pour ta 1ere question, dans ton workbook open () tu fais une recherche des feuilles que tu as crée
Set fs = Application.FileSearch
With fs
.LookIn = 'ton répertoire
.SearchSubFolders = True 'vrai si tu veux rechercher dans tes ss-repertoires
.Filename = 'le nom de tes feuilles
.Execute
If .FoundFiles.Count = 0 Then
MsgBox "Aucun fichier n'a été trouvé."
Exit Sub
End If

End With



Pour ce qui est des barres de menu :

dans workbook open()
Application.CommandBars(1).Enabled = True
Application.CommandBars(3).Enabled = True

et = False dans workbook beforeclose ()

je ne sais plus quel numéro sert à quelle barre mais tu essaieras.
 
P

petitstagiaire

Guest
bonjour PY,

pour ta 1ere question, dans ton workbook open () tu fais une recherche des feuilles que tu as crée
Set fs = Application.FileSearch
With fs
.LookIn = 'ton répertoire
.SearchSubFolders = True 'vrai si tu veux rechercher dans tes ss-repertoires
.Filename = 'le nom de tes feuilles
.Execute
If .FoundFiles.Count = 0 Then
MsgBox "Aucun fichier n'a été trouvé."
Exit Sub
End If
For i = 1 To .FoundFiles.Count
'ton traitement
next
End With



Pour ce qui est des barres de menu :

dans workbook open()
Application.CommandBars(1).Enabled = True
Application.CommandBars(3).Enabled = True

et = False dans workbook beforeclose ()

je ne sais plus quel numéro sert à quelle barre mais tu essaieras.
 
P

pannel

Guest
J'ai une liste de nombre ( en format hh:mm) a rentrer.
En a1 je rentre 00:20
En a2 je rentre 00:10
En a3 je rentre 00:50
En a4 je rentre 01:00

Je voudrais en a5 le total de nombre d'heure pleine c'est a dire que l'ordinateur balaye les cellules et repere celles qui ont la valeur 01:00 et les ajoute. Ici le resultat serait 01:00.

Je voudrais en a6 le total des minutes. L'ordinateur balaye les cellules et reperes celles qui ont une valeur comprise entre 00:01 minute et 00:59 minutes et les ajoute. ici le resultat devrait etre 01:20. (une heure et vingt minute.
Merci c'est tres urgent.
 
J

Jacky

Guest
Bonjour

Voici une solution

En A5 tu mets cette formule pour les heures pleines
=SOMME.SI(A1:A4;">=1:00")


En A6 pour les heures en dessous de 1:00

=SOMME.SI(A1:A4;"<1:00")

Bon courage
 

Discussions similaires

Réponses
31
Affichages
2 K
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…