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 :

pq code tri bloque


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre éclairé
    Homme Profil pro
    Divers
    Inscrit en
    Février 2017
    Messages
    295
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Divers

    Informations forums :
    Inscription : Février 2017
    Messages : 295
    Par défaut pq code tri bloque
    bonjour

    pq mon code ne fonctionne pas, j'ai adapté le code de l'enregistreur de code

    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
    Sub TriCodeAbs()
     
    Dim plage As range
    Dim f As Sheets
     
    Set f = "Divers"
    plage = sh_divers.range("A2:C23")
     
    plage.Select
    plage.Sort.SortFields.Clear
    plage.Sort.SortFields.Add Key:=range("A2:A23"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
        xlSortNormal
    With f.Sort
        .SetRange range("A1:C23")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
     
    Set f = Nothing
     
    End Sub

  2. #2
    Expert confirmé
    Avatar de MarcelG
    Homme Profil pro
    Développeur informatique
    Inscrit en
    Juillet 2009
    Messages
    3 449
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 67
    Localisation : France, Maine et Loire (Pays de la Loire)

    Informations professionnelles :
    Activité : Développeur informatique
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2009
    Messages : 3 449
    Billets dans le blog
    7
    Par défaut
    Bonjour,

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Dim f As Sheets
     
    Set f = "Divers"
    Variable mal affectée.
    Si f désigne une feuille de travail, alors
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
     
    Set f = Worksheets("Divers")
    en fin de procédure
    De même pour la variable plage.

    Que désigne sh_divers?

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

Discussions similaires

  1. [XL-2010] Code qui bloque et fige la feuille
    Par Scorpdragon dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 26/01/2015, 15h25
  2. [XL-2000] Code VBA bloqué par fonction personnalisée
    Par PICHOUX dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 08/05/2012, 22h58
  3. [XL-2007] Uniformiser une code Tri
    Par goer1005 dans le forum Macros et VBA Excel
    Réponses: 9
    Dernier message: 01/04/2012, 15h08
  4. [2K8] Pages de Code (Tri des membres)
    Par veenie dans le forum SSRS
    Réponses: 4
    Dernier message: 15/07/2009, 14h25

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