Discussion :

[Valerie9999]

Bonsoir,

Je souhaite créer une fonction en VBA qui fait appel à un autre onglet que celui qui est actif.
J'ai crée ma fonction dans un module VBA, mais quand je l'appelle dans l'onglet, il me fait les calculs dans l'onglet où je me situe, et non pas dans celui que j'appelle.
Voici ma fonction :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Function effectif_1_critere(nom_critere As String, valeur_critere) As Integer
 
Sheets("Effectif").Select
Range("A1").Select
 
nbre_lig = Application.WorksheetFunction.CountA(Range("A1", [A1].End(xlDown)))
nbre_col = Application.WorksheetFunction.CountA(Range("A1", [A1].End(xlToRight)))
 
num_col_critere1 = num_col(nom_critere, nbre_col)
num_col_comptage = num_col("COMPTAGE", nbre_col)
 
effectif_1_critere = Application.WorksheetFunction.SumIf(Range(Cells(2, num_col_critere1), Cells(nbre_lig, num_col_critere1)), valeur_critere, Range(Cells(2, num_col_comptage), Cells(nbre_lig, num_col_comptage)))
 
End Function

Je lance ma fonction dans l'onglet "Stats" et malheureusement il ne va pas chercher mes données dans l'onglet Effectif.
Comment faire ?

Par avance merci pour votre aide.

Valérie

[Nicolas JACQUIN]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
with WorskSheets("Effectif")
'ton code
end With

[Valerie9999]

Bonjour,

Je viens de tester et cela ne fonctionne pas. Lorsque je tape ma formule dans un onglet différent de Effectif, il me met #VALEUR!

Avez vous une autre idée ?

Par avance merci

Valérie

[pijaku]

Bonjour
Dans un bloc With, il faut ajouter un point devant les objets s'y référant.
Exemple :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
With Sheets("Feuil1")
    .Range("A1") = 3 'ici il s'agit de A1 Feuil1
    Range("A1") = 4 'ici il s'agit de A1 feuille active
End With

[Valerie9999]

Merci pour cette info.

Mais comment puis je faire pour récupérer le nombre de lignes et de colonnes de mon onglet effectif, et programmer ensuite l'équivalent d'une somme si en fonction de certains critères ?
Le but de ma fonction est de faire quelque chose de simple et "transparent" pour un utilisateur.

Par avance merci

Valérie

[RyuAutodidacte]

Bonjour,

- Comme l'on expliqué pijaku et Nicolas utiliser With … End With
En n'oubliant pas de mettre le . devant les Range (.Range) … voir dans l'aide vba le fonctionnement de With
- Peux-tu modifier ton 1er message pour mettre le code entre balises pour que cela soit plus lisible, un exemple se trouve dans ma signature.
- petits conseils, il est important d'expliquer son problème de manière claire et exhaustive avec le tenants et aboutissants, afin que l'on puisse mieux cerner le problème et que l'on puisse donner des réponses adéquates.