Discussion :

[Matbb2000]

Bonjour,
Je suis débutant en VBA et un problème se pose à moi. J'ai besoin d'utiliser une feuille de mon classeur comme paramètre d'une procédure(ici Pro1)

Code :

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

1
2
3
4
Sub Pro1(feuille As Worksheet, compteur As Byte)
    Sheets(feuille).Select
    [...]
End Sub

J'ai créé cette procédure qui crée la feuille et normalement appelle Pro1 mais ça ne marche pas ...

Code :

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

1
2
3
4
5
Sub NouvelEleve()
    Dim feuille As Worksheet
    Set feuille = Sheets("IMA_3")
    NouvelleLigne feuille, 16
End Sub

Pouvez-vous éclairer mon visage assombris pas la défaite avec votre connaissance ?
merci d'avance

[Patrice740]

Bonjour

Tout d'abord, une worksheet est une sheet mais pas l'inverse !
Donc il faut appeler un chat : un chat.

Si tu transmet une worksheet dans la variable nommée feuille, pour la sélectionner c'est :

Code :

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

feuille.Select

ou encore

Code :

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

Worksheets(feuille.Name).Select

Ceci dit, dans 99,99% des cas .Select est inutile et source d'ennuis.

Même remarque pour (qui ne crée pas de feuille mais affecte un feuille existante à la variable feuille):

Code :

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

1
2
3
4
5
Sub NouvelEleve()
    Dim feuille As Worksheet
    Set feuille = Worksheets("IMA_3")
    NouvelleLigne feuille, 16
End Sub

Il manque la procédure NouvelleLigne

[Matbb2000]

Effectivement, j'ai changé son nom en cours de route,

Voici donc NouvelleLigne ;

Code :

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

1
2
3
4
Sub NouvelleLigne(feuille As Worksheet, compteur As Byte)
    Sheets(feuille).Select
[...]
End Sub

J'ai fait les modifications de cette manière ;

Code :

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

1
2
3
4
5
Sub NouvelEleve()
    Dim feuille As Worksheet
    Set feuille = Worksheets("IMA_3").Select
    NouvelleLigne feuille, 16
End Sub

Cela ne fonctionne toujours pas
Merci d'avance

[unparia]

Bonjour
Tu as déclaré feuille comme un objet.
Et dans ce cas :

Code :

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

Sheets(feuille)

ne saurait avoir un sens
C'est feuille, tout simplement !

[Matbb2000]

Effectivement !
Quand je lance le programme voici un nouveau message d'erreur :

"Erreur d'exécution '424'
Objet requis"

J'ai cherché dans la doc mais je ne comprend pas d'où viens mon erreur. Pour info, le débogage m'indique la ligne :

Code :

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

Set feuille = Worksheets("IMA_3").Select

Si quelqu'un peut m'aider, désolé encore je suis un débutant

[Patrice740]

J'ai cherché dans la doc mais je ne comprend pas d'où viens mon erreur. Pour info, le débogage m'indique la ligne :

Code :

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

Set feuille = Worksheets("IMA_3").Select

Pour info :

Ceci dit, dans 99,99% des cas .Select est inutile

Eh bien là c'est le cas !
Il suffit de :

Code :

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

Set feuille = Worksheets("IMA_3")

Mais

...qui ne crée pas de feuille mais affecte un feuille existante à la variable feuille

Il faut donc que la feuille IMA_3 existe.

Voir : http://bidou.developpez.com/article/VBA/