A voir également:
- Intégrer une chaine de caractere dans une formule.
- Caractère ascii - Guide
- Intégrer une vidéo dans un powerpoint - Guide
- Formule si et - Guide
- Caractère spéciaux - Guide
- Caractere speciaux - Guide
2 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour, peut-être ainsi?
dim xxx as integer
dim mapage as string
xxx=123
mapage = "ceci n'est pas une chaîne de caractères variables"
Sheets(Array("Page1", mapage, "Page"+xxx)).Select
Bonjour Frédéric,
Je te propose ce code VBA :
Merci de me donner ton avis.
Cordialement
Je te propose ce code VBA :
Option Explicit
Sub Essai()
Dim Feuilles, FX As Worksheet, chn As String
Feuilles = Array("Page1", "Page3", "PageX")
' Sélection de 3 feuilles
Worksheets(Feuilles).Select
' Générer la liste des feuilles
For Each FX In ActiveWindow.SelectedSheets
chn = chn & FX.Name & ", "
Next FX
chn = Left$(chn, Len(chn) - 2)
' Afficher la liste des feuilles
MsgBox "Feuilles sélectionnées :" & vbLf & vbLf & chn
End Sub
Merci de me donner ton avis.
Cordialement