Re : Feuille de temps et analyse de production
Re bonjou,
j'avais une question que je n'ai pas osé posé ce midi. Les Commandbutton 10 et 8, ils sont planqués où ?
Dans la Frame1 qui n'existe plus lol
Je sais; c'est moi, je n'ai pas fait le ménage quand je t'ai refait le formulaire
Si tu trouves d'autres cadavres te gène pas de les supprimer.
Existe t'il une astuce pour faire dire à une formule qui implique la ligne juste au dessus quelle se "recalcule" correctement lorsque qu'on fait une sélection d'uniquement quelques lignes avec la "fleche" de seléction qui se trouve sur les entetes de colonnes
Sûrement mais la je sèche
, une bonne viré sur le forum via l'option recherche s'impose. J'ai déjà croisé des sujets qui traîte de se genre de problème. Suis pas un Babatruc moi, suis humble.
On continue le ménage?
Dans module1 Sub okgo:
supprime
.repaint, cette méthode n'a rien apporté.
Je voulais que j'usf se recharge quand on rentre une nouvelle données dans les combo, mais pfff sa marche pas. L'usf3 s'en charge maintenant.
Les codes en vert tu peux aussi les virer (
label11, 7, textbox3,1)
Dans module2 sub masquer:
Les codes en vert tu peux aussi les virer (
label7, textbox1)
Dans Usf3:
-Cmdbutton7 et 8 (j'abrège):
supprime
DoEvents
-actuellement les txtbox 7,8,9 sont figé en chiffres (nbre entier); tu ne pourras rentrer de décimale. Si cela te gène vire les code associé au textbox.
Dans le cas contraire reproduit le également pour textbox10 et 25.
Voilà je pense que cela devrait être mieux rangé, ça sent le propre!!!
Pour ton problème plus haut une piste ici:
https://www.excel-downloads.com/threads/faire-une-somme-des-cellules-visibles-uniquement.84751/
et ici:
https://www.excel-downloads.com/threads/addition-cellules-visibles.96628/
Ou ceci de Frédéric sigonneau:
Attribute VB_Name = "SommeCellulesVisibles"
'Somme des cellules visibles
'L Longre, mpfe
Function SOMMEVISIBLE(Plage As Range) As Double
Dim Z As Range, C As Range
For Each Z In Plage.Columns
If Not Z.EntireColumn.Hidden Then _
If C Is Nothing Then Set C = Z Else Set C = Union(Z, C)
Next Z
If C Is Nothing Then Exit Function
If C.Areas.Count = 1 And C.Columns.Count = 1 Then
For Each Z In C.Cells
If Not Z.EntireRow.Hidden Then SOMMEVISIBLE = SOMMEVISIBLE + Z
Next Z
Else
For Each Z In C.Rows
If Not Z.EntireRow.Hidden Then _
SOMMEVISIBLE = Application.Sum(SOMMEVISIBLE, Z)
Next Z
End If
End Function
'Si des lignes et/ou des colonnes sont masquées par la suite, il faut
'faire Ctrl-Maj-F9 pour mettre à jour le résultat de cette fonction dans
'toutes les cellules où elle a été utilisée.
Trouvé ici:
Ce site n'existe plus
A y'est 5 minutes de recherche via google et suis épuisé...
Je te laisse le soin de l'adapter.