Adaptation Code

[apdf1]

Bonjour,

J'ai trouvé se code sur le fil qui m'intéresse et j'ai essayer de l'adapter a mon fichier , le problème et que dans la listbox j'ai deux fois le nom. Etant donner que j'ai une colonne "A" vide je pense que c'est a cause de cela.

Si quelqu'un a la solution sa m'intéresserais.

Merci d'avance

Cordialement

Max

 

[Banzai64]

Re : Adaptation Code

Bonjour

Une idée

 

[apdf1]

Re : Adaptation Code

Bonjour Banzai

Sa change pas j'ai toujours 2 fois le nom dans la listbox c'est à dire deux colonne identique colonne 1 et 3

@+

Max

 

[Robert]

Re : Adaptation Code

Bonjour Apdf, Banzai, bonjour le forum,

peut-être comme ça :

Private Sub ComboBox1_Change()
  If Peut = False Then Exit Sub
  Peut = False 'empêche le changement
  ListBox1.Clear
  For Each cel In Sheets("Feuil1").Range("C:C").SpecialCells(xlCellTypeConstants)
    If UCase(Left(cel.Value, 1)) = ComboBox1 Then
      ListBox1.AddItem (cel.Offset(0, -1).Value)
      For c = 2 To 9
        ListBox1.List(ListBox1.ListCount - 1, c) = Sheets("Feuil1").Cells(cel.Row, c + 1)
      Next
    End If
  Next
  If ListBox1.ListCount = 0 Then MsgBox "Aucun élément trouvé sur la feuille", vbInformation, "Attention,"
  ComboBox1 = ""
  Peut = True 'libère le changement
End Sub

ce qui a changé :
ListBox1.AddItem (cel.Offset(0, -1).Value)
For c = 2 To 9

 

[Banzai64]

Re : Adaptation Code

Bonjour

Mea culpa

J'avais lu en travers et je pensais que tu ne voulais pas deux fois le même nom dans la 1ère colonne

Mais je modifie le code de Robert sinon il te manque une donnée

For c = 1 To 9
ListBox1.List(ListBox1.ListCount - 1, c) = Sheets("Feuil1").Cells(cel.Row, c + 2)
Next

 

[Fo_rum]

Re : Adaptation Code

Bonjour

et ainsi ?

 For Each Cel In Sheets("Feuil1").Range("C:C").SpecialCells(xlCellTypeConstants)
    If UCase(Left(Cel.Value, 1)) = ComboBox1 Then
      If Not Mondico.exists(Cel.Value) Then
        Mondico.Add Cel.Value, Cel
        ListBox1.AddItem Cel
        For c = 1 To 9
          ListBox1.List(ListBox1.ListCount - 1, c) = Cells(Cel.Row, c + 3).Value
        Next
      End If
    End If
  Next

c + 3 au lieu de c+1

Tu as une autre réponse ici

 

[Robert]

Re : Adaptation Code

Bonjour le fil, bonjour le forum,

Désolé Banzai mais en modifiant mon code comme tu le fais tu as toujours le nom en double...
Quant à la proposition de Fo_rum, il doit manquer des données car chez moi elle plante ici :

If Not Mondico.exists(Cel.Value) Then

 

[apdf1]

Re : Adaptation Code

Bonjour et merci beaucoup à Robert, Banzai, Fo_rum

Je voudrais dire à Fo_rum "Tu as une autre réponse ici" sa rien a voir avec se post.

Ceci dit je vous remercie à tous

Bon Dimanche

Max

 

[pierrejean]

Re : Adaptation Code

Bonjour à tous

Ma proposition

 

[apdf1]

Re : Adaptation Code

Bonjour

Je vous remercie beaucoup Nickel

Bonne soirée

Max

 

[Fo_rum]

Re : Adaptation Code

Re

...
Je voudrais dire à Fo_rum "Tu as une autre réponse ici" sa rien a voir avec se post.
...

Si je ne l’avais pas compris, je ne me serais pas cassé la tête à te mettre un lien.

J’aurais préféré que tu me dises : « Merci de t’occuper de moi, je vais voir cela. » et que sur l’autre fil tu me répondes « Merci, mais cela ne m’intéresse pas.».

Comme tu as été intéressé par une de mes propositions dans un autre fil, certains pourraient l’être par celle que je t’ai faite dans ton autre post.
Si tu ne tiens pas à y jeter un oeil, c'est ton problème.

 

[apdf1]

Re : Adaptation Code

Re Bonjour Fo_rum

Excuse moi je n'avais compris du tous, je pensais que tu me disais que j'avais déja fait le même post sur un autre fil.
Je suis désolé.
Du cout je suis allé voir le fil et tu avait raison.
Mille excuses et bonne soirée et j'espere a bientôt sur un autre fil.

@+

Max