XL 2013 Problème lors de la duplication d'un item dans listbox

fanfan38

XLDnaute Barbatruc

• 20 Août 2020

• #2

Bonjour
J'espère avoir répondu à ton problème
A+ François

 

Pièces jointes

• 1.xlsm

  23.8 KB · Affichages: 8

Vote positif 0 Vote négatif

anass1

XLDnaute Junior

• 21 Août 2020

• #3

Bonsoir,
c'est parfait merci beaucoup fanfan38

 

Vote positif 0 Vote négatif

anass1

XLDnaute Junior

• 24 Août 2020

• #4

Bonsoir,
Il y a quelque chose que je n'ai pas remarqué;
Lors du choix d'un item en double , Le "X" est ajouté dans premier item.!
Merci

VB:

Dim i As Byte, j As Byte, nbl&, lig As Long
nbl = Range("A" & Rows.Count).End(xlUp).Row
With Me.ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) = True Then
          lig = Range("A2:F" & nbl).Cells.Find(what:=.List(i), lookat:=xlWhole).Row
          Range("F" & lig) = "X"
        End If
    Next i
End With

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Août 2020

• #5

Bonjour anass1, fanfan38, le forum,

Compliquer les choses entraîne souvent des erreurs !!!

VB:

Private Sub CommandButton1_Click()
Dim i As Long
With ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) Then Range("F" & i + 2) = "X"
    Next
End With
UserForm_Initialize
End Sub

Bonne journée.

 

Vote positif 0 Vote négatif

Solution

anass1

XLDnaute Junior

• 25 Août 2020

• #6

Bonjour,
Merci beaucoup job75
Il peut être utilisé pour le modification et la suppression ...?

VB:

Dim i As Long
With ListBox1
    For i = 0 To .ListCount - 1
       If .Selected(i) = True Then
        Range("A" & i + 2) = TextBox1
        Range("B" & i + 2) = TextBox2
        Range("C" & i + 2) = TextBox3
       End If
    Next
End With

Code:

For i = 0 To .ListCount - 1
       If .Selected(i) = True Then
Sheets("Feuil1").Rows(i + 2).Delete
       End If
    Next

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 25 Août 2020

• #7

Pour la suppression la boucle doit commencer par le bas :

VB:

For i = .ListCount - 1 To 0 Step -1

 

Vote positif 0 Vote négatif

anass1

XLDnaute Junior

• 25 Août 2020

• #8

Merci @job75
Bonne journée.

 

Vote positif 0 Vote négatif

anass1

XLDnaute Junior

• 26 Août 2020

• #9

Bonsoir,
SVP, J'ai une question;
Si vous souhaitez ajouter le "X" à un item que vous avez recherché;
Cela peut-il être fait d'une manière simple et technique comme celle-ci?
Merci

 

Pièces jointes

• v2.xlsm

  26.4 KB · Affichages: 3

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 26 Août 2020

• #10

Bonjour anass1, le fil,

Pour travailler facilement sur les plages quand la ListBox est filtrée le plus simple est de lui ajouter une 1ère colonne (qui sera masquée).

Cette colonne contiendra les numéros de lignes du tableau source, les récupérer ensuite est facile.

A+

 

Vote positif 0 Vote négatif

anass1

XLDnaute Junior

• 26 Août 2020

• #11

Bonsoir job75 , le forum,

Si vous voulez dire cette méthode

C’est une bonne idée.
Mais nous allons le prendre ce code, Convient pour la recherche ?

VB:

Dim i As Byte, j As Byte, nbl&
nbl = Range("A" & Rows.Count).End(xlUp).Row
With Me.ListBox1
    For i = 0 To .ListCount - 1
        If .Selected(i) = True Then
            For j = 2 To nbl
                If Cells(j, 1).Value = .List(i) Then
                    Rows(j).Select
                    Cells(j, 7).Value = "X"
                End If
            Next j
        End If
    Next i
End With

 

Pièces jointes

• 1 (1).xlsm

  29.3 KB · Affichages: 2

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 27 Août 2020

• #12

Bonjour anass1, le forum,

Le fichier du post #9 en retour avec le code de l'UserForm corrigé.

La ListBox a maintenant 7 colonnes, comme le tableau source.

Bonne journée.

 

Pièces jointes

• v2.xlsm

  28.9 KB · Affichages: 6

Vote positif 0 Vote négatif

anass1

XLDnaute Junior

• 27 Août 2020

• #13

Bonjour job75 , le forum,
Un grand merci pour votre effort
Cordialement.

 

Vote positif 0 Vote négatif