remplissage d'une listview

J

jp14

XLDnaute Barbatruc

• 27 Mai 2008

• #2

Re : remplissage d'une listview

Bonjour

L'erreur provient de ces lignes

Set Plage = .Range("D2" & .Range("B65536").End(xlUp).Row)
Set Plage = Plage.SpecialCells(xlCellTypeVisible)
End With

For Each Cell In Plage
If Not mondico.Exists(Cell.Value) Then mondico.Add Cell.Value, Cell.Value

Next Cell

La fonction "for each cell..." n'aime pas que la plage soit réduite à une cellule.
Pour résoudre le problème il faut vérifier la valeur renvoyée par .Range("B65536").End(xlUp).Row si elle est égale à 2 il faut simplement écrire
mondico.Add .Range("D2").Value, .Range("D2").Value

Exemple

Code:

Private Sub CHOIX1()
.....................
With ThisWorkbook.Worksheets("datas1")

Select case .Range("B65536").End(xlUp).Row
         case 2
         'écrire le code pour une cellule
             mondico.Add .Range("D2").Value, .Range("D2").Value
         
         case else
         
          For Each Cell In Plage
                If Not mondico.Exists(Cell.Value) Then mondico.Add Cell.Value, Cell.Value
    
          Next Cell
end select 
...................

A tester

JP

 

Dernière édition: 27 Mai 2008

Vote positif 0 Vote négatif

A

akibodo

XLDnaute Junior

• 27 Mai 2008

• #3

Re : remplissage d'une listview

Re,

J'ai beau retourner les lignes de codes dans tous les sens ça me met des erreurs de références aux plages.

Là je sèche un peu :/

Si vous avez des astuces ... merci d'avance.

A+

 

Vote positif 0 Vote négatif

A

akibodo

XLDnaute Junior

• 27 Mai 2008

• #4

Re : remplissage d'une listview

Re,

J'ai essayé ton code mais j'ai une erreur = Référence incorrecte ou non qualifiée sur la ligne :

Code:

Select Case .Range("B65536").End(xlUp).Row

Et c'est le genre de truc que je métrise pas encore ...

A+

 

Vote positif 0 Vote négatif

A

akibodo

XLDnaute Junior

• 28 Mai 2008

• #5

Re : remplissage d'une listview

Re,

Si quelqu'un à une autre idée je suis preuneur parce je n'arrive pas à adapter la 1ère solution proposée.

Merci d'avance,

A+

 

Vote positif 0 Vote négatif

wilfried_42

XLDnaute Barbatruc

• 28 Mai 2008

• #6

Re : remplissage d'une listview

Bonjour

Voici ton fichier en retour, en esperant avoir compris

 

Pièces jointes

• listviews.zip

  22.2 KB · Affichages: 130

Vote positif 0 Vote négatif

cbea

XLDnaute Impliqué

• 28 Mai 2008

• #7

Re : remplissage d'une listview

Bonjour akibodo, jp14, wilfried,

Voici une autre solution.

 

Pièces jointes

• Nouveau Feuille de calcul Microsoft Excel_v1.zip

  24.1 KB · Affichages: 162

Vote positif 0 Vote négatif

A

akibodo

XLDnaute Junior

• 28 Mai 2008

• #8

Re : remplissage d'une listview

Re le forum, jp14, wilfried, Cbea,

Merci pour cette dernière réponse, Cbea, je pense que celà vas tout à fais convenir et en plus c'est quand même plus "joli" que mon code de départ

A+

 

Vote positif 0 Vote négatif