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 :

Excel 2019 :erreur de compilation Incompatibilité de Type: tableau ou type défini par l'utilisateur attendu


Sujet :

Macros et VBA Excel

  1. #1
    Membre régulier
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    256
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 256
    Points : 105
    Points
    105
    Par défaut Excel 2019 :erreur de compilation Incompatibilité de Type: tableau ou type défini par l'utilisateur attendu
    Excel 2019

    [QUOTE]
    Bonjour a tous,

    je fais se post a nouveau, car ne pouvant pas traiter, des valeurs répétitives avec les dictionnaires, j'ai reconsidéré les traitements

    avec les tableaux .

    ci-joint le scénario ci dessous

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    Dim allValues() As Variant    ' se tableau permet de récupérer les valeurs numériques simplement de façon variable par année; 
     
    Dim occurrences() as Variant  ' se tableau récupère le nombre d'occurrences par valeurs numériques répétées dans allValues() .

    je Trie le tableau d'occurrences(), en fonction du nombre d'occurrences de allValues() que je passe en paramètre
    sortArray occurrences, allValues
    Voila la fonction de trie 'sortArray' ci-dessous

    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
     
    Sub sortArray(ByRef sortArray() As Variant, ByRef referenceArray() As Variant)
        Dim tempArray() As Variant
        Dim i As Long, j As Long
        Dim tempValue As Variant
     
        ' JE Copie le tableau à trier dans un tableau temporaire
        tempArray = sortArray
     
        ' JE Trie le tableau temporaire en fonction des valeurs du tableau de référence
        For i = LBound(tempArray) To UBound(tempArray) - 1
            For j = i + 1 To UBound(tempArray)
                If tempArray(i) < tempArray(j) Then
                    ' J'Échange les valeurs dans le tableau temporaire
                    tempValue = tempArray(i)
                    tempArray(i) = tempArray(j)
                    tempArray(j) = tempValue
     
                    ' J'Échange les valeurs dans le tableau de référence
                    tempValue = referenceArray(i)
                    referenceArray(i) = referenceArray(j)
                    referenceArray(j) = tempValue
                End If
            Next j
        Next i
    End Sub

    j'ai beau chercher, faire des essais, je bloque avec se type d'erreur; et ne pas comprendre

    : erreur de compilation 'Incompatibilité de Type: tableau ou type défini par l'utilisateur attendu'

    avoir aussi, changer les déclarations de façon cohérente; impossible

    merci a tout suggestions, et directive; je suis preneur

  2. #2
    Rédacteur/Modérateur

    Avatar de Jean-Philippe André
    Homme Profil pro
    Développeur VBA/C#/VB.Net/Power Platform
    Inscrit en
    Juillet 2007
    Messages
    14 574
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : Canada

    Informations professionnelles :
    Activité : Développeur VBA/C#/VB.Net/Power Platform
    Secteur : Finance

    Informations forums :
    Inscription : Juillet 2007
    Messages : 14 574
    Points : 34 190
    Points
    34 190
    Par défaut
    Salut,

    vérifie dans tes références si tu en as une ou plusieurs identifiée MANQUANT.

    Il faudra la décocher (et le cas échéant remettre la bonne référence), cela devrait résoudre ce bug.
    Cycle de vie d'un bon programme :
    1/ ça fonctionne 2/ ça s'optimise 3/ ça se refactorise

    Pas de question technique par MP, je ne réponds pas

    Mes ouvrages :
    Apprendre à programmer avec Access 2016, Access 2019 et 2021

    Apprendre à programmer avec VBA Excel
    Prise en main de Dynamics 365 Business Central

    Pensez à consulter la FAQ Excel et la FAQ Access

    Derniers tutos
    Excel et les paramètres régionaux
    Les fichiers Excel binaires : xlsb,

    Autres tutos

  3. #3
    Membre éprouvé
    Inscrit en
    Décembre 2002
    Messages
    732
    Détails du profil
    Informations forums :
    Inscription : Décembre 2002
    Messages : 732
    Points : 1 122
    Points
    1 122
    Par défaut
    Salut, quand je compile ta macro aucune erreur n'est retournée. Sans un classeur exemple pour tester, je ne peux pas aider plus.

  4. #4
    Membre régulier
    Profil pro
    Inscrit en
    Octobre 2007
    Messages
    256
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Octobre 2007
    Messages : 256
    Points : 105
    Points
    105
    Par défaut

    Merci à Jean Philippe André pour sa participation , et conseil à se post

    Merci à Franc, pour sa participation, et sa remarque qui sera exploité a nouveau
    je vois comment, acheminer le reste du code ...



Discussions similaires

  1. [Excel 2019] erreur de compilation "Type d'arguments ByRef incompatible"
    Par amateur_will dans le forum Macros et VBA Excel
    Réponses: 4
    Dernier message: 16/09/2023, 01h08
  2. [AC-2016] Type défini par l'utilisateur attendu, et non un projet
    Par djibysadji dans le forum Access
    Réponses: 1
    Dernier message: 10/02/2021, 23h48
  3. Réponses: 1
    Dernier message: 07/07/2016, 12h25
  4. [XL-2013] Erreur de compilation : incompatibilité de type
    Par OXdOZ dans le forum Macros et VBA Excel
    Réponses: 16
    Dernier message: 24/06/2016, 11h47
  5. Réponses: 9
    Dernier message: 15/04/2014, 17h49

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