pb de répétitions de colonne

[Michoute]

Bonjour
avec le code ci-dessous je sélectionne une feuille de mon classeur avec la 1ere listbox. avec les 2eme et 3eme listbox je sélectionne des lignes dans la feuille. Avec la 4eme listbox je désire sélectionner les colonnes dont j'ai besoin. mais il y a un problème dans ma boucle car les colonnes que je sélectionne se répètent plein de fois.
si quelqu'un peut m'aider à résoudre sa
Merci

Private Sub CommandButton1_Click()

Dim position1 As Integer, position2 As Integer, position3 As Integer, position4 As Integer
Dim colonne As Integer, ligne As Integer, ligne2 As Integer, colonne2 As Integer
Dim i As Integer, j As Integer, k As Integer, m As Integer

position1 = ListBox1.ListIndex
position2 = ListBox2.ListIndex
position3 = ListBox3.ListIndex
position4 = ListBox4.ListIndex


If position1 = -1 Then
    MsgBox ('Vous devez choisir un thème')
End If

If position2 = -1 Then
    MsgBox ('Vous devez chosir un zonage')
End If

If position3 = -1 Then
    MsgBox ('Vous devez choisir un zonage de comparaison')
End If

For m = 0 To ListBox4.ListCount
    If position4 = m Then
        For k = 0 To 10
            colonne2 = position4 + 5
            If position1 = k Then
                Worksheets('Feuil1').Cells(1, 1).Value = ListBox1.Value
                For colonne = 2 To 55
                    Worksheets('Feuil1').Cells(2, colonne) = Worksheets(k + 4).Cells(1, colonne2 + 1)
                    ligne2 = 3
                    For j = 0 To 42
                        For ligne = 2 To 373
                            If position2 = j And Worksheets(k + 4).Cells(ligne, 2) = ListBox2.Value Then
                                Worksheets('Feuil1').Cells(ligne2, 1) = Worksheets(k + 4).Cells(ligne, 4)
                                Worksheets('Feuil1').Cells(ligne2, colonne) = Worksheets(k + 4).Cells(ligne, colonne2)
                                ligne2 = ligne2 + 1
                            End If
                        Next ligne
                    For ligne = 374 To 417
                        If position2 = j And Worksheets(k + 4).Cells(ligne, 2) = ListBox2.Value Then
                            Worksheets('Feuil1').Cells(31, 1) = Worksheets(k + 4).Cells(ligne, 4)
                            Worksheets('Feuil1').Cells(31, colonne) = Worksheets(k + 4).Cells(ligne, colonne2)
                        End If
                    Next ligne
                Next j
                For ligne = 347 To 417
                    For i = 0 To 41
                        If position3 = i And Worksheets(k + 4).Cells(ligne, 4) = ListBox3.Value Then
                            Worksheets('Feuil1').Cells(32, 1) = Worksheets(k + 4).Cells(ligne, 4)
                            Worksheets('Feuil1').Cells(32, colonne) = Worksheets(k + 4).Cells(ligne, colonne2)
                        End If
                    Next i
                    If Worksheets(k + 4).Cells(ligne, 4) = 'Département hors Cabri' Then
                        Worksheets('Feuil1').Cells(33, 1) = Worksheets(k + 4).Cells(ligne, 4)
                        Worksheets('Feuil1').Cells(33, colonne) = Worksheets(k + 4).Cells(ligne, colonne2)
                    End If
                    If Worksheets(k + 4).Cells(ligne, 4) = 'Côtes d'Armor' Then
                        Worksheets('Feuil1').Cells(34, 1) = Worksheets(k + 4).Cells(ligne, 4)
                        Worksheets('Feuil1').Cells(34, colonne) = Worksheets(k + 4).Cells(ligne, colonne2)
                   End If
                Next ligne
            Next colonne
        End If
    Next k
    End If
Next m
Sheets('Feuil1').Activate

End Sub

 

[PascalXLD]

Bonjour

Je ne comprends pas trop car tu parles de choisir tes colonnes dans ta listbox et tu traites ensuite comme si tu avis une listbox en selection simple et non en multi select

Tu peux expliciter STP

 

[Michoute]

Salut Pascal
c'est la première fois que j'utilise une listbox en sélection multiple et donc je ne savais pas que la syntaxe est différente.

 

[PascalXLD]

RE

Cela donnerait ceci à peu près

For x = 0 To Me.Listbox4.ListCount - 1
    If Me.Listbox4.Selected(x) = True Then
        'Ton code
    End If
Next

Message édité par: Pascal76, à: 24/05/2006 14:08

 

[Michoute]

RE
J'ai essayé avec ce que tu m'as donné mais j'ai toujours le même problème de répétitions

 

[PascalXLD]

RE

QU'entends-tu par répétition de colonnes ???

 

[Michoute]

Re
quand je dis répétitions de colonnes, c'est que la 1ere colonne que je sélectionne dans ma listbox s'affiche des dizaines de fois dans ma feuil1. et les autres colonnes que j'ai sélectionné ne s'affiche pas une seule fois.