nommer le contenu d'un nombre de feuilles aléatoire [XL2013]

Recherche :

Mot : Pseudo : Filtrer
Bas de page
Auteur	Sujet : nommer le contenu d'un nombre de feuilles aléatoire [XL2013]

thiefer

Bonjour,
J'ouvre un fichier excel qui est alimenté en amont par une routine qui crée n onglets (feuilles) variable pouvant aller de 1 à 12 (et plus si affinités ).
Ces feuilles sont présentées sous forme de bdd.
Je voudrais pouvoir balayer chacune de ces feuilles, en sélectionner le contenu et créer (ou mettre à jour si ils existent déjà dans le cas d'une seconde ouverture) un nom pour ma sélection, nom qui soit le nom de l'onglet.
J'ai réalisé ce petit bout de code mais ça bloque en ligne 7 (f1.Range("A1" ).CurrentRegion.Select), Erreur d'éxécution '1004": La méthode Select de la classe Range a échoué.
J'ai pourtant utilisé ce même type d'instruction avec .value plutôt que .select avec succès.
Quelqu'un saurait-il me dire comment faire svp ?

Code :

Sub defnomtableaux()
Application.ScreenUpdating = False
For s = 1 To Sheets.Count - 2
Set f1 = Sheets(s)
tname = f1.Name
f1.Range("A1" ).CurrentRegion.Select
Names.Add Name:=tname, RefersTo:="='" & tname & "'!" & Selection.Address
Next s
End Sub

Merci @ tous de toute votre aide
TF

Publicité

Marc L

Bonjour,

la sélection de cellule(s) s'effectue uniquement sur la feuille active ‼
Voir l'exemple dans l'aide de la méthode Select …

Ensuite inutile de sélectionner pour travailler avec des objets !
Exemple dans ce sujet …

thiefer

Bonjour Marc L,

Je m'en suis finalement sorti simplement en ajoutant une ligne d'instruction f1.select
Le code fonctionne très bien à présent comme ci-dessous

Code :

Sub defnomtableaux()
Application.ScreenUpdating = False
For s = 1 To 2
Set f1 = Sheets(s)
f1.Select
tname = f1.Name
f1.Range("A1" ).CurrentRegion.Select
f1.Names.Add Name:=tname, RefersTo:="='" & tname & "'!" & Selection.Address
Next s
End Sub

Par contre, il me reste un point génant si mes noms d'onglets contiennent des caractères spéciaux ou des espaces.
Quelle astuce appliquer pour que cela soit opérationnel ques que soient les noms qui ont été attribués lors de la génération des feuilles ?
Merci de votre aide,
TF

MaybeEijOrNot

but someone at least

Travaille sur le numéro d'onglet?

Message cité 1 fois

thiefer

MaybeEijOrNot a écrit :

Travaille sur le numéro d'onglet?

Oui !
Cela permet de travailler sur une liste d'onglets "entre bornes" sans en connaitre le nom.
Dans le premier code, sur tous les onglets sauf les deux derniers
Dans le second code, seulement sur les deux premiers onglets,
etc...

MaybeEijOrNot

but someone at least

Je ne sais pas comment prendre ton message, je te faisais une proposition, au lieu de récupérer le nom de ta feuille puis nommer ta sélection en fonction, nommes directement ta sélection en fonction du numéro d'onglet.

Marc L

Et de toute manière un bon code ne travaille pas à coup de Select ! …

FORUM HardWare.fr

Programmation

VB/VBA/VBS

nommer le contenu d'un nombre de feuilles aléatoire [XL2013]

Sujets relatifs
Mon serveur Nas veut pas récupérer le contenu du dossier à distance ?	Comment générer un nombre aléatoire en C++ ?
Afficher un très grand nombre entier	VBA - Copier données entre deux feuilles et restructuration
[ASP.NET] Modifier contenu page web sans programmation	Inclure en php un texte contenu dans un fichier dropbox
[Excel] Copier le contenu de plusieurs fichier Excel dans un seul	[VBA] Remplacer une formule dans plusieurs feuilles du classeur
Fixer le nombre de caractères par ligne d'un fichier
Plus de sujets relatifs à : nommer le contenu d'un nombre de feuilles aléatoire [XL2013]

Page générée en 0.041 secondes