Fonction de mise a jour

tototiti2008

XLDnaute Barbatruc

• 28 Août 2008

• #2

Re : Fonction de mise a jour

Bonjour Absinth,

pfou, pas clair...
que font tes macros ?
comment se lancent-elles ?
ne faudrait il pas envisager de les lancer autrement ?

etc...

 

Vote positif 0 Vote négatif

Absinth

XLDnaute Junior

• 28 Août 2008

• #3

Re : Fonction de mise a jour

Moui, c'est vrai que c'est flou...

Dans l'ordre, j'ai qqun qui sélectionne un produit dans ue liste déroulante.
Des formules dans certaines cellules indique un résultat suivant le choix dans la liste.

Et la macro fait ses calculs sur base de ces cellules. Le hic, c'est qu'elle ne marche que si je change la valeur de ma cellule "manuellement", elle ne voit pas que la formule de la cellule à fait changer le résultat de la cellule, donc ma macro ne se met pas à jour...

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 28 Août 2008

• #4

Re : Fonction de mise a jour

et ne peux-tu pas lancer ta macro sur un Calculate plutôt que sur un Change ?

à tester...

 

Vote positif 0 Vote négatif

Absinth

XLDnaute Junior

• 28 Août 2008

• #5

Re : Fonction de mise a jour

😱

Euh, attends attends... Je comprends rien...

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
 
  If Target.Address = "$N$2" Then 
  Range([N4], Range("W" & [N4].End(xlDown).Row)).Clear
    Sheets("FILTRES").Range("B2:K240").AdvancedFilter Action:=xlFilterCopy, _
      criteriaRange:=ActiveSheet.Range("N1:N2"), CopyToRange:=ActiveSheet.Range("N4"), Unique:=False
  End If
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

Voilà ma macro (Loué soit le Seigneur Skoobi pour Sa Clémence et Sa Lumière). Si on simplifie un peu ma requête, on pourarit simplement dire

"que dois-je changer pour pouvoir l'assigner sur un bouton?"

😉 Merci en tout cas de m'aider à chercher !

 

Vote positif 0 Vote négatif

tototiti2008

XLDnaute Barbatruc

• 28 Août 2008

• #6

Re : Fonction de mise a jour

Bien,

dans un module, écrit ça :

Code:

Sub Lancer()
  Range([N4], Range("W" & [N4].End(xlDown).Row)).Clear
    Sheets("FILTRES").Range("B2:K240").AdvancedFilter Action:=xlFilterCopy, _
      criteriaRange:=ActiveSheet.Range("N1:N2"), CopyToRange:=ActiveSheet.Range("N4"), Unique:=False
End Sub

puis associe ton bouton à la macro Lancer

 

Vote positif 0 Vote négatif

Absinth

XLDnaute Junior

• 28 Août 2008

• #7

Re : Fonction de mise a jour

😱😱🙄😎🙂😉😀😱

*S'approche subrepticement....*
WAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA TRRRRROOPPPP FOOOORRRTTT !!!

 

Vote positif 0 Vote négatif