Intégrer une chaine de caractere dans une formule.

duhartfr Messages postés 1 Statut Membre -  
 paul -
Bonjour à tous,

Je cherche à intégrer une chaine de caractère dans une fonction VBA.


Voici la fonction en question (sélection de plusieurs feuilles d'un classeur): 

Sheets(Array("Page1", "Page3", "Pagexxx")).Select


Je souhaite générer une chaine de caractère variable en focntion des feuilles que je veux sélectionner pour l'intégrer dans ma fonction. comment faire?

merci de vos réponses

Frédéric


A voir également:

2 réponses

Réponse 1 / 2
yg_be Messages postés 24281 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 586
 
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
0
Réponse 2 / 2
paul
 
Bonjour Frédéric,

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
 
0