Sujet Précédent Sujet Suivant

Excel VBA une variable apres Sheets ?

Résolu/Fermé
kriKri51 Messages postés 15 Date d'inscription samedi 29 mai 2010 Statut Membre Dernière intervention 9 juillet 2010 - 10 juin 2010 à 18:51
kriKri51 Messages postés 15 Date d'inscription samedi 29 mai 2010 Statut Membre Dernière intervention 9 juillet 2010 - 11 juin 2010 à 18:38
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



A voir également:

4 réponses

Réponse 1 / 4
eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 239
10 juin 2010 à 19:32
Bonsoir,

i=1
Sheets ("Feuille" & i)
0
kriKri51 Messages postés 15 Date d'inscription samedi 29 mai 2010 Statut Membre Dernière intervention 9 juillet 2010
10 juin 2010 à 19:38
Merci de cette reponse aussi rapide, mais est il possible de faire la meme chose avec :
Sub Feuille1 ()
0
Réponse 2 / 4
eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 239
10 juin 2010 à 20:06
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
Réponse 3 / 4
lermite222 Messages postés 8724 Date d'inscription dimanche 8 avril 2007 Statut Contributeur Dernière intervention 22 janvier 2020 1 190
10 juin 2010 à 22:55
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
eriiic Messages postés 24600 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 21 octobre 2024 7 239
10 juin 2010 à 23:06
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
Réponse 4 / 4
kriKri51 Messages postés 15 Date d'inscription samedi 29 mai 2010 Statut Membre Dernière intervention 9 juillet 2010
11 juin 2010 à 18:38
Un grand merci a vous deux.
avec ca je devrais me debrouiller..... enfin j'espere

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