Vba excel worksheet variable
Résolu
MC's Assigned geek
-
MC's Assigned geek -
MC's Assigned geek -
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
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
Configuration: Windows XP Internet Explorer 6.0
3 réponses
-
Bonjour,
Dim alpha As Worksheet, beta as Worksheet
Set alpha = Worksheets(1)
Set beta = Worksheets(2)
;o) -
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 ! -
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