zayab
XLDnaute Junior
Bonjour Ô forumtoiquisaittout,
A ma plus grande surprise j'ai bricolé du code qui en plus fonctionne.
Le code est dans un module de class (si j'ai bien tout compris) dans la Feuille("Tableau") . Dans cette feuille à chaque fois que la valeur en A2:d2,E2:G2 change, le (calcul?) listeact s'active grâce à ça:
Option Explicit
ListeAct
End
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Me.[A2:d2,E2:G2], Target) Is Nothing Then
listeact
End Sub
Sub ListeAct()
Dim DébP As Date, FinP As Date, TE(), LE As Long,
etc...
Mais je dois modifier j'ai besoin de masquer la feuille le temps du calcul pour éviter de bouffer les ressources du PC avec l'affichage avec un petit : Sheets("Tableau").Visible = False
J'aimerai lancer ce (calcul?) maintenant avec un bouton dans un module (standard?)
J'aimerai tant que ce soit clair... (à vrai dire c'est le petit Me qui me fait des miseres, je crois.)
Est ce possible? Pouvez vous m'aider svp?
Un grand Merci d'avance
A ma plus grande surprise j'ai bricolé du code qui en plus fonctionne.
Le code est dans un module de class (si j'ai bien tout compris) dans la Feuille("Tableau") . Dans cette feuille à chaque fois que la valeur en A2:d2,E2:G2 change, le (calcul?) listeact s'active grâce à ça:
Option Explicit
ListeAct
End
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Me.[A2:d2,E2:G2], Target) Is Nothing Then
listeact
End Sub
Sub ListeAct()
Dim DébP As Date, FinP As Date, TE(), LE As Long,
etc...
Mais je dois modifier j'ai besoin de masquer la feuille le temps du calcul pour éviter de bouffer les ressources du PC avec l'affichage avec un petit : Sheets("Tableau").Visible = False
J'aimerai lancer ce (calcul?) maintenant avec un bouton dans un module (standard?)
J'aimerai tant que ce soit clair... (à vrai dire c'est le petit Me qui me fait des miseres, je crois.)
Est ce possible? Pouvez vous m'aider svp?
Un grand Merci d'avance