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 :

pb listview références introuvables


Sujet :

Macros et VBA Excel

  1. #1
    Membre éclairé
    Homme Profil pro
    autodidacte
    Inscrit en
    Novembre 2013
    Messages
    517
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : autodidacte
    Secteur : Industrie

    Informations forums :
    Inscription : Novembre 2013
    Messages : 517
    Points : 684
    Points
    684
    Par défaut pb listview références introuvables
    Bonjour,

    J'ai un petit problème concernant un fichier excel. j'ai mis excel 2003 comme titre du sujet mais j'aimerais aussi qu'il fonctionne sous 2010.. merci d'avance

    J'ai un USF qui contient une listview. Il récupère bien les valeurs mais pas toutes et je ne sais pas pourquoi.

    Le fichier joint en excel sera plus clair.

    1) Lancer la macro loadUSF
    2) Taper 41554 par exemple ou 42042 (toute les références qui n'ont pas le petit encadré rouge an haut à gauche de la cellule
    3) la référence est présente dans mon tableau mais n'apparait pas dans ma listview

    Je penses avoir localiser le pb qu iest du surement au format cellule. Le problème c'est que quand il n'y a pas le petit carré rouge avec amrquer nombre stocké sous forme de texte, la référence ne semble pas s'ajouter au dico...

    J'ai donc pensé a mettre un macro pour mettre toute les cellule au format texte mais en vain... même quand je mets la cellule au format texte, le problème persiste...

    Savez-vous comment faire svp
    J'espère avoir été assez clair :S

    Ci-joint le fichier en question...

    je vous mets le code du listview aussi peut être que cela peut jouer ?

    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
    Private Sub UserForm_Initialize()
    Dim k As Byte
     
    For k = 1 To 5
        Remplissage Me.Controls("C" & k), k
    Next k
    End Sub
     
    Private Sub Remplissage(ByVal Cmb As Object, ByVal Col As Integer)
    Dim Fin As Long, i As Long
    Dim MonDico As Object
    Dim AA
     
    With Worksheets("Appro")
        .AutoFilterMode = False
        Fin = .Cells(.Rows.Count, 1).End(xlUp).Row
        AA = .Range("A2:AH" & Fin)
    End With
     
    Set MonDico = CreateObject("Scripting.Dictionary")
    For i = 1 To UBound(AA, 1)
        If AA(i, Col) <> "" Then
            If Not MonDico.Exists(AA(i, Col)) Then MonDico.Add AA(i, Col), AA(i, Col)
        End If
    Next i
    If MonDico.Count > 0 Then Cmb.List = Application.Transpose(MonDico.Items)
    MonDico.RemoveAll
    Set MonDico = Nothing
    End Sub
    ou alors cela provient d'ici?

    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
    43
    44
    45
    46
    47
    48
    49
    50
    51
    52
    53
    54
    55
    56
    57
    58
    59
    60
    61
    62
    63
    64
    65
    66
    67
    68
    69
    70
    71
    72
    Option Explicit
    Option Base 1
    Option Compare Text
    Dim a1$, a2$, a3$, a4$, a5$
     
     
     
    Private Sub C1_Change() ' Combobox n° PR de l'userform dans recherche
        If C1 = "" Then C1_Click
    End Sub
     
    Private Sub C2_Change() ' Combobox Date exp PR de l'userform dans recherche
        If C2 = "" Then C1_Click
    End Sub
     
    Private Sub C3_Change() ' Combobox FICHE CONSIGNE de l'userform dans recherche
        If C3 = "" Then C1_Click
    End Sub
    Private Sub C4_Change() ' Combobox date exp FICHE CONSIGNE de l'userform dans recherche
        If C4 = "" Then C1_Click
    End Sub
    Private Sub C5_Change() ' Combobox Référence de l'userform dans recherche
        If C5 = "" Then C1_Click
    End Sub
    Private Sub C1_Click() ' Combobox Entité de l'userform dans recherche
        Dim i&, Fin&, y&, a&, AA
        Application.ScreenUpdating = 0
        If C1 = "" Then a1 = "*" Else a1 = C1
        If C2 = "" Then a2 = "*" Else a2 = C2
        If C3 = "" Then a3 = "*" Else a3 = C3
        If C4 = "" Then a4 = "*" Else a4 = C4
        If C5 = "" Then a5 = "*" Else a5 = C5
     
        If a1 = "*" And a2 = "*" And a3 = "*" And a4 = "*" And a5 = "*" Then L1.Clear: Exit Sub
        L1.Clear
        With Feuil1
            y = 2
            Fin = .Range("A" & Rows.Count).End(xlUp).Row
            AA = .Range("A2:AH" & Fin)
        End With
        For i = 1 To UBound(AA)
                If AA(i, 1) Like a1 And AA(i, 2) Like a2 And AA(i, 3) Like a3 And AA(i, 4) Like a4 And AA(i, 5) Like a5 Then AA(i, 22) = "OUI": y = y + 1
        Next i
        If y = 1 Then Exit Sub
        If y = 2 Then
        ReDim bb(1, 2)
            For i = 1 To UBound(AA)
                If AA(i, 22) = "oui" Then
                    For a = 1 To 22
                        bb(1, a) = AA(i, a)
                    Next a
                  GoTo 1
                End If
    1        Next i
        Else
            ReDim bb(y - 1, UBound(AA, 2) - 1)
            y = 1
            For i = 1 To UBound(AA)
                If AA(i, 22) = "OUI" Then
                    For a = 1 To 22
                        bb(y, a) = AA(i, a)
                    Next a
                    y = y + 1
                End If
            Next i
       End If
        With L1
            .ColumnCount = 5 ' nombre de colonnes dans la list box L1
            .ColumnWidths = "100;200;100;100;100" 'largeur des champs dans la listbox L1
            .List = bb
        End With
    End Sub
    Merci d'avance pour votre temps accordé au problème!
    Fichiers attachés Fichiers attachés
    Merci de cliquer sur pour chaque message vous ayant aidé
    puis sur pour clore cette discussion …

    C'est en récoltant les cailloux qu'on te jette que tu construiras ta future estrade...

  2. #2
    Membre éclairé
    Homme Profil pro
    autodidacte
    Inscrit en
    Novembre 2013
    Messages
    517
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : France, Rhône (Rhône Alpes)

    Informations professionnelles :
    Activité : autodidacte
    Secteur : Industrie

    Informations forums :
    Inscription : Novembre 2013
    Messages : 517
    Points : 684
    Points
    684
    Par défaut
    du coup je reviens vers vous car je sais comment résoudre le problème..

    Il me faut juste passer dans chaque cellule contenant la référence et faire entrée. La référence est alors ensuite toruvée dans la listview

    Par contre savez-vous comment faire pour parcourir chaque cellule (entrer dedans et valider)?

    j'ai essayer un truc du genre:


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    Sub Macro1()
    Application.ScreenUpdating = False
    Dim i As Integer
     
    LigFin = Sheets("Appro").Cells(Rows.Count, 1).End(xlUp).Row
     
    For i = 2 To LigFin
    Valeur = Sheets("Appro").Cells(i, 1).Value
    Sheets("Appro").Cells(i, 1).ClearContents
    Sheets("Appro").Cells(i, 1).Value = Valeur
    Next i
     
    End Sub
    mais après il n'y a toujours pas le petit encadré rouge dans le coin supérieur gauche de la cellule...


    une idée?

    Merci d'avance
    Merci de cliquer sur pour chaque message vous ayant aidé
    puis sur pour clore cette discussion …

    C'est en récoltant les cailloux qu'on te jette que tu construiras ta future estrade...

Discussions similaires

  1. [XL-2007] Références introuvables "tabctl32.ocx"
    Par seba_stien dans le forum Macros et VBA Excel
    Réponses: 1
    Dernier message: 26/09/2018, 11h11
  2. [Débutant] composant référencé introuvable
    Par hageshii dans le forum C#
    Réponses: 2
    Dernier message: 16/10/2012, 13h22
  3. Référence introuvable (disparition magique)
    Par loulouklm dans le forum EDI/Outils
    Réponses: 1
    Dernier message: 15/08/2010, 13h49
  4. Réponses: 1
    Dernier message: 22/05/2007, 15h49
  5. Réponses: 7
    Dernier message: 27/04/2006, 11h21

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