list box différents sur toutes les feuille d'un classeur de tableaux identiques

[MAN]

bonsoir le forum
j'ai une list box : elle est identique pour toutes les feuilles du classeur.
chaque fois que je l'ouvre, quelque soit la feuille du classeur, les memes données de la feuille 1 apparaissent.
je souhaiterai avoir un code qui me permette de faire que les tableaux de chaque feuille soient liés a leurs lists box.
je vois joins un fichier exemple
regardez la Feuil 1 et feuil 1(2)

 

[Papou-net]

Re : list box différents sur toutes les feuille d'un classeur de tableaux identiques

Bonjour MAN,

Modifie ta macro comme suit, en remplaçant Feuil1 par ActiveSheet :

Private Sub UserForm_Initialize()
    
    '----- remplissage ListView------------------------
    With Me.ListView1
    .View = 3
        'Définit le nombre de colonnes et Entêtes
        With .ColumnHeaders
            'Supprime les anciens entêtes
            .Clear
            'Ajoute 3 colonnes en spécifiant le nom de l'entête
            'et la largeur des colonnes
            .Add , , "LIBELLE", 100
            .Add , , "MONTANT", 100
            .Add , , "NUMERO", 20
        End With
         Me.ComboBox1.List = Range("L7:R" & [L65000].End(xlUp).Row).Value
     For Each cel In ActiveSheet.Columns(13).SpecialCells(xlCellTypeConstants)
    If IsNumeric(cel.Value) Then
      .ListItems.Add , , cel.Offset(0, -1).Value
      .ListItems(.ListItems.Count).ListSubItems.Add , , cel.Value
    End If
  Next
  .View = lvwReport
  .Gridlines = True
  .AllowColumnReorder = True
  .FullRowSelect = True
  .HideColumnHeaders = True
  .ColumnHeaders(2).Alignment = 1
End With
       
           '--------------------------------------------------
    
    'Spécifie l'affichage en mode "Détails"
    ListView1.View = lvwReport
End Sub

Cordialement.

 

[MAN]

Re : list box différents sur toutes les feuille d'un classeur de tableaux identiques

ça marche . merci Papou net.
merci baucoup.
ne dis pas que je t'embete vieux sorcier
comment est ce que je peux faire pourque les données saisies dans mes combo1 et listbox1 soient automatiquement insérés dans la list box quand je clique ENTREE du clavier
a l'heure actuelle, on n'appeçois les données entrées dans la list box que si on ferme d'abord le classeur puis on la réouvre.
Merci d'avance

 

[Papou-net]

Re : list box différents sur toutes les feuille d'un classeur de tableaux identiques

RE MAN,

J'ai appliqué une solution encore plus simple :

Dès qu'un montant est tapé dans TextBox1, Listview1 affiche la ligne correspondante et un * est écrit dans la colonne N de la feuille active. Cette marque est provisoire, elle sert à valider la modification si tu cliques sur le bouton OK. Si tu choisis le bouton Annuler, l'astérisque est effacé ainsi que le Montant correspondant.

Espérant que cette solution te conviendra.

Cordialement.

 

[MAN]

Re : list box différents sur toutes les feuille d'un classeur de tableaux identiques

MERCI Papou-net. mais j'éprouve une difficulté a ouvrir le fichier quand je le télécharge
ERREUR D'EXECUTION 2147352573(80020003)
DE QUOI S4AGIT IL

 

[Papou-net]

Re : list box différents sur toutes les feuille d'un classeur de tableaux identiques

RE MAN,

Comme souvent avec les références d'erreur MS, il faut avoir travaillé chez Bill G pour en connaître la signification.

Je te propose donc une nouvelle version pour tester, version que j'ai essayée puis enregistrée dans XL2003.

Pour le moment, le "vieux sorcier" ne sait pas s'il a réussi à la désenvoûter, mais il y croit (crôa, crôa, ...).

A +

Cordialement.

 

[MAN]

Re : list box différents sur toutes les feuille d'un classeur de tableaux identiques

bonjour vieux sorcier.j'ai avec le fichier ci dessus, les memes difficultés. mais, un peu de barbouillage, j'ai obtenu le fichier ci joint?
comme vous me l'avez dit, l'astéris apparait tres bien. malheureusement, le désordre dans la list box est revenu.
je suis un bricoleur je le reconnais. mais priere délivre moi de ce péché