High-Tech Santé Médecine Droit-Finances

Réalisation

vidéo numérique

Rechercher : dans
Par :

Excel -VBA -Variable et feuille (le retour...

Dernière réponse le 9 jan 2004 à 10:27:25 dks31, le 24 nov 2003 à 23:48:04 
 Signaler ce message aux modérateurs

Bonjour à tous,

Suite à un premier message, je n'ai pas eu la solution à mon probleme. Alors le revoici avec quelques precisions; vu que la premiere fois je n'avais pas ete tres explicite.

Voici mon problème: Je crée une feuille qui se nomme en fonction d'une
variable.
Là où j'ai du mal c'est que je n'arrive plus à selectionner cette feuille
dans mes autres macro. Je ne sais pas comment ecrire ma ligne de commande en
tenant compte de son nom (variable). J'ai essayé:

Sheets MaVariable.Select (marche pas) puis,
Sheets (MaVariable).Select (Idem) enfin,
Sheets ("MaVariable").Select (Grrrr......)

mais ça ne marche pas. Please, Help !

Pour que ça soit plus clair, voici mon code:

Public MaVariable As String

Private Sub CommandButton1_Click()

'On defini la valeur des differentes variables; ici ce qui a été entré
'dans les TexBox du UserForm2.

MaVariable = UserForm2.TextBox1

'On test si quelque chose a été saisi dans le 1er TextBox du Userform2.
If Classe_3°1 <> "" Then

'On crée une nouvelle feuille (Add) et on la selectionne
Sheets.Add.Select

'On renomme cette feuille avec la variable de la premiere TextBox.
ActiveSheet.Name = MaVariable

'On va copier le feuille "Model" et on la copie dans la nouvelle feuille.
Sheets("Model").Select
Cells.Select
ActiveSheet.Copy

'ET C'EST LA QUE JE N'ARRIVE PLUS A SELECTIONNER LA NOUVELLE FEUILLE
'AVEC SON NOM VARIABLE !

Sheets MaVariable.Select
Cells.Select
ActiveSheet.Paste


Merci de votre aide. :-)

Posez votre question Répondre

2

filaliabdou, le 25 nov 2003 à 13:56:18

Je m'excuse mon pot , j'ai pas pu te répondre la fois passée, ja manque du temps, mais t'inquiètes pas je te réponderai ce week end avec précision

time is not money, time is life

   
Répondre à filaliabdou

G.David, le 26 nov 2003 à 17:09:28

Essaye sur excel-download c'est une mine pour les problèmes par contre le site est un peu chargé en fréquentation
A+ G.David

   
Répondre à G.David

3

DKS31, le 30 nov 2003 à 18:34:19

Bonsoir à tous,

Merci pour vos reponses.
C'est gentil comme conseil, G.David mais j'ai dejà cherché un peu partout; et je continue...
Si tu as une info un peu plus precise (une page du site par exemple) je suis preneur, sinon, ça ne m'avance pas des masses...
Merci quand meme.

J'attend avec impatience le ch'tit coup de main de filaliabdou !!!
J'espere que tu auras le tps ce WE. Je craque !!!
Merci pour ton message qui m'a permi de patienter un peu...
A bientot j'espere.

   
Répondre à DKS31

4

G.David, le 1 déc 2003 à 08:10:57
  • +1

j'avais pose un problem sur excel-downloads il y a quelque temps (et ça fait un paquet de messages) je l'ai retrouvé je te copie tous les commentaires; en fin tu as la réponse que Ti m'a donnée si elle peut te servir.
Auteur: david (81.80.156.---)Date: 09-10-03 08:24Je voudrais renommer une feuille à l'ouverture d'un classeur .La feuille est une archive annuelle "Encour" sur la quelle pointe plusieurs macros. Au changement d'année la feuille doit se renommer 2003 et la Feuille 2004 doit prendre le nom "encour"Je dois tester l'existance de cette feuille . Si elle est differente du nom qu'elle doit porter la renommerla cellule du nom inexistant=texte(aujourdhui();"aaa") ---->2003la cellule du nom a attribué=texte(cnum(cell de desus)-1;"@") ---->2002ces valeurs texte si la première valeur est le nom d'une feuille on renome la feuille "encours" en "2002" puis la feuille nomme "2003" en "encours"a chaque changement d'année la feuille est archivé .Ceci concerne un carnet de BL .Merci a tous G.David

Répondre à ce message

Re: Renommer une feuille en VBA
Auteur: david (81.80.156.---)Date: 09-10-03 09:29Private Sub Workbook_Open()Dim nomfeuil() As StringDim nbfeuil As Integer' barre d'outil______________________________________Application.CommandBars("BL_Serveur").Visible = True'renommer les feuilles______________________________nbfeuil = ActiveWorkbook.Sheets.Count ' nb feuilles ds le classeurReDim nomfeuil(1 To nbfeuil) ' redimmensionner le tableaujuste 9 tasses de cafés plus tard voici ma ponte je vous teins au courant a partir de la reprise du nouvel an si cele marche. Désolé d'avoir pris de la placeA+For i = 1 To nbfeuilnomfeuil(i) = ActiveWorkbook.Sheets(i).Name 'tableau de nomNext iFor t = 1 To nbfeuil 'relire les nomsIf Sheet(2).Range("HJ1").Value = nomfeuil(t) Then 'si 2003 est trouvéFor f = 1 To nbfeuil 'on relit pour trouverIf nomfeuil(f) = "encour" Then 'la feuille "encour"nomfeuil(f) = Sheets(2).Range("hj2").Value 'on lui attribut la valeur "2002"End IfNext fSheets(t).Name = "encour" 'on renomme 2003 en "encour"End IfNext tEnd Sub

Répondre à ce message

Re: Renommer une feuille en VBA
Auteur: Ti (---.w80-12.abo.wanadoo.fr)Date: 09-10-03 09:43voici une macro qui te fait ça :Dans Thisworkbook, tu places cette macro :Private Sub Workbook_Open()RenommeFeuilleDateEnd Subet tu places celle-ci dans un module :Sub RenommeFeuilleDate()Dim LaDate As String, Ws As WorksheetDim WsAnnee As Worksheet, WsEnCours As WorksheetLaDate = CStr(Year(Date))With ThisWorkbookFor Each Ws In .WorksheetsIf Ws.Name = LaDate Then'on a changé d'annéeThisWorkbook.Worksheets("Encours").Name = _CStr(Val(LaDate) - 1)Ws.Name = "Encours"Exit ForEnd IfNext WsEnd WithEnd SubOn suppose que ta feuille 2004 existe déjà. Au changement d'année, ta feuille 2004 sera renommée automatiquement, et la feuille EnCours deviendra 2003. Et ainsi de suite en 2005, pour peu que la feuille 2005 existe déjà au nouveau changement d'année.

Répondre à ce message

Re: Renommer une feuille en VBA
Auteur: david (81.80.156.---)Date: 09-10-03 11:34Sympa

   
Répondre à G.David

5

Chacalou13, le 2 déc 2003 à 22:25:35
  • +1

Salut,

Si MaVariable est un string, Sheets(MaVariable).Select devrait suffire !
Sinon force le du style:
NewVariable="MaVariable" puis ensuite
Sheets(MaVariable).Select
Si ca marche pas, c'est que l'erreur ne vient peut-être pas de là

Grève de la signature

   
Répondre à Chacalou13

6

DKS31, le 5 déc 2003 à 13:15:29

Salut,

Merci pour ta reponse, je vais regarder à ça rapidement en "forçant", puisque l'autre j'ai dejà essayé.

Et quand tu me dis que ça peut venir d'autre chose, tu ne vois pas d'erreur particulière pouvant expliquer ce probleme ?

   
Répondre à DKS31

7

 Urmarcht, le 9 jan 2004 à 10:27:25

Sub renseigne_mois()
Dim moisencours As Object
Dim convert As String

If Range("Mois_en_cours") = Empty Or Err <> 0 Then

MsgBox "Saisissez le mois de traitement !"
Else
Set moisencours = Range("Mois_en_cours")
convert = moisencours
    'Application.Run "test"
Workbooks.Open FileName:= _
        "lechemindemonfichieraouvrir.xls"
    Sheets(convert).Select
End If
End Sub

C'est moche certe, mais ça a le mérite de fonctionner...
Mois_en_cours est une cellule nomée dans mon tableau.
sheets(xxxx).Select attend une variable de type string et Range(xxxx) attens une variable de type Object. Donc j'ai pas trouvé d'autre solution que convert = moisencours...
En espérant que ça t'aide...

   
Répondre à Urmarcht
Posez votre question Répondre
Ils ont besoin de votre aide