Insérer une fonction dans un module
Salut à tous
Je débute en VBA.
J'ai déjà un module avec une fonction qui me permet de récupérer les valeurs sur l'onglet précédent.
Function OngletPrec(c As Range) As Variant
Application.Volatile
Var = Sheets(ActiveSheet.Index - 1).Range(c.Address)
OngletPrec = Sheets(ActiveSheet.Index - 1).Range(c.Address)
End Function
Jusque là, tout baigne.
J'ai un 2nd module avec une macro dans lequel j'ai mis une condition :
Sub Macro1()
If Range("Q9").Value < Range("Q3").Value Then
Range("Q23").Value = "VRAI"
Else
Range("Q23").Value = "FAUX"
End If
If Range("Q23").Value = "VRAI" Then
............
End If
End Sub
Dans la 2nde condition je souhaiterais afficher (à la place des pointillés) que : Q24=OngletPrec(R11)
Merci pour votre aide
d'autre part comment faire pour que cette macro se lance automatiquement sur chaque onglet sans que je puisse passer par un bouton ?
Merci et prenez soin de vous
Hello,
A tester :
Q24=OngletPrec(R11).valuePour la deuxieme question il faut mettre le code dans un évènement Activate de feuille.
R@g
Bonjour
Merci mais j'avais déjà essayé : aucun résultat
Pour la deuxieme question il faut mettre le code dans un évènement Activate de feuille.
je fais comment et c'est quoi la différence avec un module
a+
Et comme ceci :
Range("Q24") = OngletPrec(R11).valueL'evenement d'une feuille donne la possibilité de lancer une macro lors d'une action utilisateur. Dans notre cas l'evenement Activate d'une feuille signifie que ta macro se lancera lorsque tu vas cliquer sur ta feuille en bas.
R@g