Vba excel worksheet variable

Résolu/Fermé
MC's Assigned geek - 23 sept. 2009 à 01:05
 MC's Assigned geek - 24 sept. 2009 à 23:22
Bonjour,

J'ai un problème trés stupide, mais je suis en train de m'arracher les cheveux... et il ne m'en reste déjà pas beaucoup, alors je fais appel à votre savoir avant d'être chauve:

Dim alpha as Sheets ,beta as Sheets, charlie as Sheets

alpha = activesheet

activeSheet.next.Activate

beta = activesheet

activeSheet.next.Activate

Charlie = activesheet

ca ne marche pas...
J'ai également éssayé avec :

Alpha= activesheet.name

rien à faire

Dans le même esprit;

WB = activeworkbook

ne marche pas...

Il s'agit en fait simplement de faire référence à des feuilles ou à des classeurs par une variable défini dans la macro

Merci d'avance et bonne journée

MC's A gK

3 réponses

Polux31 Messages postés 6917 Date d'inscription mardi 25 septembre 2007 Statut Membre Dernière intervention 1 novembre 2016 1 204
23 sept. 2009 à 07:38
Bonjour,

Dim alpha As Worksheet, beta as Worksheet

Set alpha = Worksheets(1)
Set beta = Worksheets(2)

;o)
0
Bonjour,
Au lieu de dire : ca ne marche pas... , il serait bien de mentionner le message d’erreur et éventuellement la ligne de la procédure en jaune !
-1
michel_m Messages postés 16603 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 16 décembre 2023 3 303
23 sept. 2009 à 14:14
Bonjout tt le monde

Sub shadock()
Dim beta As Object
On Error GoTo erreur
ActiveSheet.Next.Activate
Set beta = ActiveSheet
'pour essai
 With beta
 Range("A1") = "ga bu zo meu"
 End With
 Exit Sub
erreur:
 MsgBox " action effectuée sur dernière feuille"
End Sub
-1
MC's Assigned geek
24 sept. 2009 à 23:22
Merci beaucoup Michel_m.

Ca marche parfaitement maintenant :D
0