Intégrer une chaine de caractere dans une formule.

duhartfr Messages postés 1 Date d'inscription   Statut Membre Dernière intervention   -  
 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

2 réponses

  1. yg_be Messages postés 23437 Date d'inscription   Statut Contributeur Dernière intervention   Ambassadeur 1 588
     
    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
  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