Discussion :

[romain8544]

Bonjour,

Je souhaite une macro avec la nom de la feuille en variable.

Grace à la F.A.Q., j'arrive à un bout de code.

déclaration variable

Code :

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

Dim varFeuille As Worksheet

Prog 01

Code :

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

1
2
3
4
5
6
Public Sub CommandButton1_Click()
'CHARGEMENT_PROGRAMME_01
Set varFeuille = Sheets("PROG 01")
Call CHARGEMENT_PROGRAMME
Set varFeuille = Nothing
End Sub

PROGRAMME CHARGEMENT

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Public Sub CHARGEMENT_PROGRAMME()
Application.ScreenUpdating = False
    Sheets(varFeuille).Select
    Range("A3").Select
    Selection.Copy
 
    Sheets(FEUILLE01).Select
    Range("C4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False 
End Sub

Le problème ça bloque à:

Code :

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

Sheets(varFeuille).Select

Cela m'affiche varFeuille=nothing.

Je doit me tromper sur la déclaration de la variable:
Dim varFeuille As Worksheet
Set varFeuille= ???


Pouvez-vous m'aider SVP.
Merci d'avance

[joe.levrai]

Bonjour,

ta variable a une portée "procédure", c'est à dire que tu ne peux pas l'utiliser dans une autre procédure

tu as deux solutions :

- augmenter la portée de ta variable en la déclarant en haut du module (par exemple)
- transmettre cette variable en tant qu'argument de la procédure qui en a besoin, en créant simplement un paramètre dédié dans ta procédure

Code :

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

1
2
3
4
5
6
7
8
9
Sub Macro1
Dim UneFeuille As WorkSheet
Set UneFeuille = Thisworkbook.Worksheets("Feuil1")
Macro2 UneFeuille
End Sub
 
Sub Macro2(MaFeuille as Worksheet)
    MsgBox MaFeuille.Name
End Sub

[romain8544]

Merci pour ta réponse très rapide.

C'est parfait !!!

merci beaucoup

[Marc-L]

Bonjour, bonjour !

Tout ceci est inutile quand la feuille de calculs fait partie du classeur contenant le code ‼

Il suffit juste d'utiliser la variable objet la définissant déjà, à savoir son CodeName …

Voilà, voilà !

_________________________________________________________________________________________________________

Je suis Paris, Istanbul, Berlin, Nice, Bruxelles, Charlie, …