Déclaration de feuille dans une macro

[gecanosaga]

Bonjour à tous,

Je suis en train de développer une macro dans laquel je fais passer un paramétre correspondant à la feuille où la macro doit s'exécuter.
C'est un paramètre optionnel, si celui-ci n'est pas rempli je mets activesheet :

Sub BoucleR(cible As String, Optional num_feuille As Long)

Dim feuille As Sheets

If num_feuille = 0 Then

    feuille = ActiveSheet
    
Else

    feuille = Sheets(num_feuille)
    
End If

mon problème est qu'il ne veut pas remplir feuille. Je pense bien que le soucis vient de la déclaration. d'ailleur en mettant "Variant" ça fonctionne, mais j'aimerais savoir quel type je dois mettre pour que cela fonctionne (je n'aime pas mettre variant !)

merci

 

[JNP]

Re : Déclaration de feuille dans une macro

Bonjour Gecanosaga 🙂,
Il te manque Set

Sub BoucleR(cible As String, Optional num_feuille As Long)
Dim feuille As Sheets
If num_feuille = 0 Then
    Set feuille = ActiveSheet
Else
   Set feuille = Sheets(num_feuille)
End If

Bonne suite 😎
Ajout : Salut Robert 🙂

 

[Robert]

Re : Déclaration de feuille dans une macro

Bonjour Gecanosaga, bonjour le forum,

Essaie avec : Set feuille =

[Édition]
Bonjour Jean Noël on s'est croisé...

 

[ROGER2327]

Re : Déclaration de feuille dans une macro

Bonjour à tous

Outre l'utilisation de Set, il faut typer correctement la variable feuille :

Dim feuille As Object

ROGER2327
#5595

Mercredi 11 Pédale 139 (Testament de Saint P. Ucello, le mal illuminé - fête Suprême Quarte)
15 Ventôse An CCXX, 5,7152h - chèvre
2012-W10-1T13:43:00Z

 

[gecanosaga]

Re : Déclaration de feuille dans une macro

Merci pour cette réponse rapide, effectivement j'avais oublié les Set.....
Par contre maintenant on dirait que sheets n'est pas le bon type car lorsque j'essaye de m'en servir (feuille.cells(i,j) ) il me met : membre de méthode ou de données introuvable.

If num_feuille = 0 Then
    Set feuille = ActiveSheet
Else
    Set feuille = Sheets(num_feuille)   
End If

For i = c_debut To c_fin
    For j = l_debut To l_fin
        If feuille.Cells(i, j) = cible Then
            l_emplacement = i
            c_emplacement = j
            Exit Sub
        End If
    Next
Next

 

[ROGER2327]

Re : Déclaration de feuille dans une macro

Re... Voir #4


ROGER2327
#5596

Mercredi 11 Pédale 139 (Testament de Saint P. Ucello, le mal illuminé - fête Suprême Quarte)
15 Ventôse An CCXX, 5,7768h - chèvre
2012-W10-1T13:51:52Z

 

[Si...]

Re : Déclaration de feuille dans une macro

Salut

je passe plutôt par une déclaration de type Worksheet. Sachant bien entendu que toutes les autres variables sont initialisées (voire bien déclarées) :

...
Dim feuille As Worksheet
If num_feuille = 0 Then
    Set feuille = ActiveSheet
Else
    Set feuille = Sheets(num_feuille)
End If
cible = 5
For i = c_debut To c_fin
    For j =  c_fin To l_fin
        If feuille.Cells(i, j) = cible Then

 

[ROGER2327]

Re : Déclaration de feuille dans une macro

Bonjour Si...

Salut

je passe plutôt par une déclaration de type Worksheet.
(...)

On peut...
En croisant les doigts pour ne pas tomber sur une feuille graphique...​

ROGER2327
#5599

Mercredi 11 Pédale 139 (Testament de Saint P. Ucello, le mal illuminé - fête Suprême Quarte)
15 Ventôse An CCXX, 6,4836h - chèvre
2012-W10-1T15:33:39Z

 

[gecanosaga]

Re : Déclaration de feuille dans une macro

Merci beaucoup pour ces réponses. Etant donné que je ne souhaite pas prendre de risques, je vais suivre l'avis de Roger2327 et déclarer en Objet.

Merci encore, @+

 

[Si...]

Re : Déclaration de feuille dans une macro

re

Bonjour Si...
On peut...
En croisant les doigts pour ne pas tomber sur une feuille graphique...

On peut ausSi… croiser les doigts pour ne pas se mélanger les pinceaux notamment quand on ne sait pas ce que l'on a et ce que l'on veut.