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 :

Erreur exécution 381


Sujet :

Macros et VBA Excel

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2008
    Messages
    44
    Détails du profil
    Informations personnelles :
    Localisation : France, Indre et Loire (Centre)

    Informations forums :
    Inscription : Janvier 2008
    Messages : 44
    Par défaut Erreur exécution 381
    Bon bah comme d'autres j'ai cette foutu erreur ....
    un copier coller d'un code que je comprends pas trop surement

    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
    28
    29
    30
    31
    32
    33
    34
    35
    36
    37
    38
    39
    40
    41
    42
    Private Sub UserForm_Initialize()
    AN.Value = Year(Now)
    MOIS.Value = MonthName(Month(Now))
     
    '''''''''''''''Récupération des donnés Projets
    Worksheets("PROJETS").Select
    nblignes = Worksheets("PROJETS").Range("E65536").End(xlUp).Row
    Dim j As Integer
    'Supprime les anciennes donnêes
    A1CB1.Clear
    'Boucle sur les lignes de la colonne A (a partir de la 2eme ligne jusqu'a nblignes)
     For j = 2 To nblignes
    A1CB1 = Range("A" & j)
                'Remplit le ComboBox sans doublons
     If A1CB1.ListIndex = -1 And A1CB1.Value <> "" Then A1CB1.AddItem Worksheets("PROJETS").Range("A" & j)
            Next j
    Trier1
       'Enl_ve la sêlection dans le ComboBox
    A1CB1.ListIndex = -1
     
     
    End Sub
    Private Sub Trier1()
    indexA1CB1 = A1CB1.ListIndex
    choixA1CB1 = A1CB1.List(indexA1CB1) ' C'est là que ça plante
    test = A1CB1.ListCount - 1
    selec = A1CB1.List(0)
     
    Dim x As Long
     
    For x = 0 To A1CB1.ListCount - 1
        For y = 0 To test
     
        If A1CB1.List(x) < A1CB1.List(y) Then
        temp = A1CB1.List(y)
        A1CB1.List(y) = A1CB1.List(x)
        A1CB1.List(x) = temp
        End If
       Next y
       Next x
     
    End Sub
    Donc une fois de plus, please H E L P

  2. #2
    Invité
    Invité(e)
    Par défaut
    Bonjour,
    Quel est le message d’erreur ?, quel est la valeur de indexA1CB1 ?

  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,

    "ListIndex" dans "indexA1CB1 = A1CB1.ListIndex" a pour valeur -1 donc c'est normal que ça plante !
    Avant l'appel du tri affecte une sélection comme par exemple :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
    A1CB1.ListIndex = 1
    Trier1
    ou alors supprime les lignes suivantes qui d'ailleurs ne te servent à rien :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
     
    indexA1CB1 = A1CB1.ListIndex
    choixA1CB1 = A1CB1.List(indexA1CB1) ' C'est là que ça plante
    Hervé.

  4. #4
    Membre averti
    Profil pro
    Inscrit en
    Janvier 2008
    Messages
    44
    Détails du profil
    Informations personnelles :
    Localisation : France, Indre et Loire (Centre)

    Informations forums :
    Inscription : Janvier 2008
    Messages : 44
    Par défaut
    Diantre ! Damned !
    je viens de trouver le probleme en relisant mon post !

    bon merci rdurupt pour cette courte participation

    Et merci Theze pour m'avoir fait remarqué qu'il serait temps que je nettoie un peu mon code car il y a des restes de déchets un peu partout

    Donc en fait le probleme se trouvait un peu plus haut
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    nblignes = Worksheets("PROJETS").Range("E65536").End(xlUp).Row
    j'etais placé ici dans la colonne E alors que le reste est dans la colonne A.

    Erreur rectifié

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

Discussions similaires

  1. [XL-2007] erreur d'exécution 381
    Par grisan29 dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 04/04/2011, 19h08
  2. [WD11] Erreur Exécution requête
    Par arnaud_verlaine dans le forum WinDev
    Réponses: 2
    Dernier message: 06/02/2007, 11h34
  3. débutant: erreur exécution JAR
    Par sroux dans le forum Langage
    Réponses: 3
    Dernier message: 26/09/2006, 12h17
  4. [JSP] Erreur exécution
    Par arnapou dans le forum Servlets/JSP
    Réponses: 9
    Dernier message: 06/07/2006, 15h53
  5. erreur exécution requête
    Par MANU_2 dans le forum Bases de données
    Réponses: 4
    Dernier message: 13/10/2005, 07h27

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