Lancer fonction sur autre feuille


#1

Bonjour,

Je débute en VBA. J’ai créé une petite fonction qui me permet de déterminer le nombre d’occurence d’une combinaison de valeur dans deux cellelules adjacente dans une feuille entière. Je souhaiterai lancer cette fonction depuis une autre feuille mais je ne sais pas comment faire. Voici mon code :

Function oc_projet()
Dim n_projet As Long ’ Variable text
Dim Ligne As Long ’ Variable numérique pour balayer les lignes de la feuille.
Dim Colonne As Long ’ Variable numérique pour balayer les colonnes de la feuille.
Ligne = 1 ’ Initialise Ligne à 1
Colonne = 1 ’ initialise Colonne à 1
While Colonne < 30
While Ligne < 50
If Cells(Ligne, Colonne) = “Projet 2” And Cells(Ligne, Colonne + 1) = “phase 2” Then n_projet = n_projet + 1
Ligne = Ligne + 1
Wend
Ligne = 1
Colonne = Colonne + 1
Wend
oc_projet = n_projet
End Function

Est-ce que quelqu’un pourrait me guider?

Merci d’avance.


#2

Bonjour,

Si tu as mis cette fonction dans un module (je dis bien un module),
ta fonction sera aussi fonctionnelle sur une autre feuille