Problème de variable.

[Baside]

Bonsoir le Forum,

J'ai une macro qui commence en sélectionnant une feuille avec:

Sheets('Nom de la feuille').select

Pour appliquer cette macro à une autre feuille, j'ai pensé mettre une variable à la place du nom, soit:

Sheets(x).select

(la macro fonctionne si je met x='nom de la feuille' avant.)

Comment faire pour que la x prenne la valeur dune cellule où se trouve les boutons pour démarrer la macro ?

J'espère avir été assez clair, merci d'avance, Hervé.

 

[Baside]

Baside écrit:

Bonsoir le Forum,

J'ai une macro qui commence en sélectionnant une feuille avec:

Sheets('Nom de la feuille').select

Pour appliquer cette macro à une autre feuille, j'ai pensé mettre une variable à la place du nom, soit:

Sheets(x).select

(la macro fonctionne si je met x='nom de la feuille' avant.)

Comment faire pour que x prenne la valeur dune cellule où se trouve les boutons pour démarrer la macro ?

J'espère avir été assez clair, merci d'avance, Hervé.

 

[Gérard DEZAMIS]

Bonsoir Baside

Je risque le ZOP

x=Range('A1').value

Si c'est la cellule A1 qui est concernée

Je croise les doigts
@+ GD

 

[Baside]

Bonsoir Gérard DEZAMIS, le Forum,

Dommage, ligne jaunede blocage.

Pour info, qu'est ce qu'un ZOP ?

Merci, Hervé.

 

[Gérard DEZAMIS]

Bonsoir Hervé

un ZOP est ...un ...

'Zak Otés de la Plak '

C'est un abominable Homme du Forum, l'innomable et diabolique
:evil: DUGENOU :evil:
qui a eu cette merveilleuse idée de nouveau pilori pour tous ceux qui :[li]répondent mais pas à la question[/li][li]ne comprennent pas bien la question et répondent autre chose[/li][li]comprennent bien la question mais donnent une réponse magistralement foireuse[/li]

Je crois avoir fait le tour du problème : j'en suis !

De toute façon dans sa grande mansuétude et son extrême bonté il n'a pas été jusqu'au supplice et a pu abolir le fouet et tous les sevices corporels. La seule trace visible est une petite rougeur non pas sur les fesses comme les bébés mais sur le front, pour cause de légère honte !

Attention il guette !


Revenons à nos moutons
est-ce que le fait de récuperer le nom des feuilles dans ta première feuille ne te permettrait pas de faire varier ta variable ?(elle est à pour ça !)

Regarde le petit fichier qui te permet de recupérer ces valeurs
Merci L.L !
En essayant d'éviter un ZOP bis !
@+ GD [file name=RecupNomFeuille.zip size=2355]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/RecupNomFeuille.zip[/file]

 

[Baside]

Bonsoir Gérard DEZAMIS, le Forum,

C'est la première étape mais reste à trouvé le moyen de mettre dans le code que la variable prenne la valeur de la cellule et là, je plante.

Merci beaucoup, Hervé.

 

[Gérard DEZAMIS]

Montre ton code ... on ne sait jamais ...

@+ Gd

 

[Baside]

Bonsoir Gérard DEZAMIS, le Forum

Voir le fichier joint où il y a les explications.

Merci encore, Hervé. [file name=Variable.zip size=8753]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Variable.zip[/file]

 

[Baside]

Bonjour Gérard DEZAMIS, le Forum,

J'ai trouvé avec une inputbox, mais il reste un ou deux réglages à faire, je pense.

Bonne journée, Hervé.

[file name=Variable 2_20050412075616.zip size=14201]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Variable 2_20050412075616.zip[/file]

 

[PascalXLD]

Bonjour le fil

Je me permets Gérard

Je t'envoie ton fichier légèrement modifié si clic sur annuler et si erreur d'année

Bon courage [file name=Variable_20050412081048.zip size=14897]http://www.excel-downloads.com/components/com_simpleboard/uploaded/files/Variable_20050412081048.zip[/file]

 

[galopin01]

Bonjour,
Oui, pour les réglages, je résume...

Sub Macro1()
Dim x As Byte, Z$
Z = InputBox('Quelle année ? Mettre 2001 pour l'éssai. ')
Sheets(Z).Range('A1:BT62').Copy Sheets('Feuil5').Range('A1')
Application.CutCopyMode = False
' Taille des colonnes.
With Sheets('Feuil5')
For x = 1 To 72 Step 6
.Columns(x).ColumnWidth = 8.57
.Columns(x + 1).ColumnWidth = 5.29
.Columns(x + 2).ColumnWidth = 1.14
.Columns(x + 3).ColumnWidth = 30
.Columns(x + 4).ColumnWidth = 15
.Columns(x + 5).ColumnWidth = 15
Next
End With
Range('A1').Select
End Sub

A+

 

[PascalXLD]

Re

Pour compléter la réponse de Gérard sur le ZOP voici le lien

Lien supprimé

Bonne journée

 

[Baside]

Bonjour Pascal76, galopin01, le Forum,

Grand Merci pour ces réponses trés rapide, ça fonctionne bien.

Bonne journée à vous, Hervé.