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