IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Macros et VBA Excel Discussion :

Remplacer le nom d un onglet par une variable [XL-2010]


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre confirmé
    Inscrit en
    Octobre 2007
    Messages
    128
    Détails du profil
    Informations forums :
    Inscription : Octobre 2007
    Messages : 128
    Par défaut Remplacer le nom d un onglet par une variable
    Bonsoir
    Je suis sous win 7 et Excel 2010 et je bute sur le remplacement d'un nom d'onglet par une variable
    ci-dessous "KPI01 In Inventory" = nom d'un onglet comme vous le voyez : il est utilisé 3 fois dans cette partie de mon macro ( je cree 17 onglets )

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    16
    17
    18
    19
    20
    21
    22
    23
    24
    25
    26
    27
    '
        ' Copier / Coller des IN INVENTORY pour "KPI01 In Inventory"
        '
        Windows("All Hardware and Network CI By Location Report.xlsx").Activate
        Range("B2").Select
        Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
        Selection.AutoFilter
        ActiveSheet.Range("$B$2:$AL$" & Lastline).AutoFilter Field:=11, Criteria1:= _
            "In Inventory"
        ActiveSheet.Range("$B$2:$AL$" & Lastline).AutoFilter Field:=12, Criteria1:= _
            "Deployable"
        ActiveSheet.Range("$B$2:$AL$" & Lastline).AutoFilter Field:=6, Criteria1:= _
            "Laptop", Operator:=xlOr, Criteria2:="=Desktop"
        Range("B2").Select
        Range(Selection, ActiveCell.SpecialCells(xlLastCell)).Select
        Selection.Copy
        Windows("KPIs.xlsx").Activate
        Sheets("KPI01 In Inventory").Select
        Range("A1").Select
        ActiveSheet.Paste
        Cells.Select
        Application.CutCopyMode = False
        MieEnform Sheets("KPI01 In Inventory")
        Sheets("KPI01 In Inventory").Select
        Cells.Select
        ActiveSheet.Range("$A$1:$AL$" & Lastline).RemoveDuplicates Columns:=2, Header:= _
            xlYes


    Merci

  2. #2
    Membre confirmé
    Homme Profil pro
    Ingénieur Logistique
    Inscrit en
    Octobre 2013
    Messages
    104
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations professionnelles :
    Activité : Ingénieur Logistique
    Secteur : Transports

    Informations forums :
    Inscription : Octobre 2013
    Messages : 104
    Par défaut
    tu crée une chaine et tu place cette chaine à la place de ton nom d'onglet :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Dim NomOnglet as String
    NomOnglet = "KFP01 truc bidule chouette"
    Worksheets(NomOnglet).select

  3. #3
    Expert confirmé
    Homme Profil pro
    Inscrit en
    Août 2010
    Messages
    3 453
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France

    Informations forums :
    Inscription : Août 2010
    Messages : 3 453
    Par défaut
    Bonjour,

    Pour 17 feuilles, de cette façon peut être ?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
     
    Dim NomFeuille As String
    Dim I As Integer
     
    I = I + 1
     
    NomFeuille = "KPI" & Format(I, "00") & " In Inventory"
     
    Sheets(NomFeuille).Select
    Il faudrait que tu revois ton code afin d'éviter autant que possible les "Select" et "Activate" qui ralentissent l'exécution et font scintiller l'écran.

    Hervé.

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 7
    Dernier message: 24/03/2015, 13h32
  2. [AC-2013] remplacer le nom d'un formulaire par une variable dans un Public Sub
    Par GuyDuLac dans le forum VBA Access
    Réponses: 2
    Dernier message: 24/10/2014, 17h23
  3. Réponses: 14
    Dernier message: 24/02/2012, 17h04
  4. Remplacer nom d'un forulaire par une variable
    Par kevain_09 dans le forum VBA Access
    Réponses: 2
    Dernier message: 19/06/2007, 14h06
  5. Comment remplacer le nom d'un controle par une chaine ?
    Par roico dans le forum VBA Access
    Réponses: 2
    Dernier message: 13/04/2007, 11h49

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo