Excel VBA une variable apres Sheets ?

Résolu
kriKri51 Messages postés 19 Statut Membre -  
kriKri51 Messages postés 19 Statut Membre -
Bonjour,

Est il possible de remplacer : Sheets ("Feuille1") par sheets ("Feuille..... et une variable a la place du 1.
Si oui .....comment ???

D'avance
MERCI

4 réponses

  1.
    eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Bonsoir,

    i=1
    Sheets ("Feuille" & i)
    0
    1. kriKri51 Messages postés 19 Statut Membre
       
      Merci de cette reponse aussi rapide, mais est il possible de faire la meme chose avec :
      Sub Feuille1 ()
      0
  2. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
     
    Non, mais tu peux passer une variable à une macro lors de l'appel.
    ex:
    Sub test()
    feuille (1)
    End Sub

    Sub feuille(numFeuille)
    MsgBox numFeuille
    End Sub
    0
  3. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bonjour,
    Une petite mise en pratique ?... 
    Sub NomFeuille()
Dim F As Integer
    For F = 1 To Sheets.Count
        Sheets(1).Cells(F, 1) = Sheets(F).Name
    Next
End Sub

    A+
    0
    1. eriiic Messages postés 24581 Date d'inscription   Statut Contributeur Dernière intervention   7 281
       
      Salut lermite,

      Aussi oui, mais je précise pour krikri que si on utilise l'index, il varie en fonction de la position de la feuille.
      Donc si toutes les feuilles ne doivent pas être traitées il faut contrôler leur nom.
      A+
      eric
      0
  4. kriKri51 Messages postés 19 Statut Membre
     
    Un grand merci a vous deux.
    avec ca je devrais me debrouiller..... enfin j'espere

    A bientot ...peut etre...surement
    0

Discussions similaires

VBA : Range avec références variables..
Antoine -
MIKE59 -

7 réponses