Référence feuille avec indice

[Résolu]
Signaler
Messages postés
27
Date d'inscription
lundi 5 octobre 2009
Statut
Membre
Dernière intervention
23 mars 2010
-
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
-
Bonjour.

Je cherche à pouvoir sélectionner une feuille (sheet) en fonction d'un indice i. Le code que j'ai écris est le suivant:

Sheets("Résultats").Activate
Columns("A:A").Select
Selection.Copy
i = 1
Do
i = i + 1
Sheets(Feuil & "i").Select 'CE CODE NE MARCHE PAS
Columns("A:A").Select
Selection.copie
Loop Until i <> Counter + 7

Est-il possible de faire ce que je demande? Si oui, est-ce qu'il y a une solution?

Merci d'avance pour vos réponse

4 réponses

Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
tu as inversé la partie fixe et le nom de ta variable :

Sheets("Feuil" & i)
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
239
Bonjour,
Cela implique une parfaite discipline en matière d'attribution de noms de baptême pour tes feuiiles.
Je te rappelle à tout hasard que l'on peut également se référer à une feuille de la collection Sheets en utilisant son Index ..
Exemple :

Application.Sheets(2).Activate
MsgBox ActiveSheet.Index

____________________
Très intéressante fable, L'OISELEUR, L'AUTOUR ET L'ALOUETTE !
Cliquer sur "Réponse acceptée" (en bas d'une solution avérée adéquate) rendra service à d'autres. PENSEZ-Y.
Messages postés
27
Date d'inscription
lundi 5 octobre 2009
Statut
Membre
Dernière intervention
23 mars 2010

C'est ok Renfield. Je te remercie
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
69
oui, le code fonctionne maintenant, j'imagine, mais tiens compte de la pertinence de la remarque de ucfoutu...

utilises des noms plus parlant pour tes feuilles, et accèdes y par leur indice directement :

Sheets(i)


Renfield - Admin CodeS-SourceS - MVP Visual Basic