Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
ABED HADDOU
Bonjour
Combobox sans doublons
Sub ComboTrié() Dim j As Integer 'Récupère les données de la colonne A... For j = 1 To Range("A65536").End(xlUp).Row ComboBox1 = Range("A" & j) '...et filtre les doublons If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j) Next j End Sub
Cordialement Abed_H
Bonjour,
Comment supprimer les doublons d'une combobox?
merci d'avance
Anaïs
Bonjour
Combobox sans doublons
Sub ComboTrié()
Dim j As Integer
'Récupère les données de la colonne A...
For j = 1 To Range("A65536").End(xlUp).Row
ComboBox1 = Range("A" & j)
'...et filtre les doublons
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j)
Next j
End Sub
Sub ComboTrié() Dim j As Integer 'Récupère les données de la colonne A... For j = 1 To Range("A65536").End(xlUp).Row ComboBox1 = Range("A" & j) '...et filtre les doublons If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j) Next j End Sub
Cordialement Abed_H
Bonjour,
Comment supprimer les doublons d'une combobox?
merci d'avance
Anaïs
Anaïs
Merci
anais
Bonjour
Combobox sans doublons
Sub ComboTrié() Dim j As Integer 'Récupère les données de la colonne A... For j = 1 To Range("A65536").End(xlUp).Row ComboBox1 = Range("A" & j) '...et filtre les doublons If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j) Next j End Sub
Cordialement Abed_H
Bonjour,
Comment supprimer les doublons d'une combobox?
merci d'avance
Anaïs
Merci
anais
Bonjour
Combobox sans doublons
Sub ComboTrié()
Dim j As Integer
'Récupère les données de la colonne A...
For j = 1 To Range("A65536").End(xlUp).Row
ComboBox1 = Range("A" & j)
'...et filtre les doublons
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j)
Next j
End Sub
Sub ComboTrié() Dim j As Integer 'Récupère les données de la colonne A... For j = 1 To Range("A65536").End(xlUp).Row ComboBox1 = Range("A" & j) '...et filtre les doublons If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j) Next j End Sub
Cordialement Abed_H
Bonjour,
Comment supprimer les doublons d'une combobox?
merci d'avance
Anaïs
Anaïs
Merci
anais
Bonjour
Combobox sans doublons
Sub ComboTrié() Dim j As Integer 'Récupère les données de la colonne A... For j = 1 To Range("A65536").End(xlUp).Row ComboBox1 = Range("A" & j) '...et filtre les doublons If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j) Next j End Sub
Cordialement Abed_H
Bonjour,
Comment supprimer les doublons d'une combobox?
merci d'avance
Anaïs
Merci
anais
Bonjour
Combobox sans doublons
Sub ComboTrié()
Dim j As Integer
'Récupère les données de la colonne A...
For j = 1 To Range("A65536").End(xlUp).Row
ComboBox1 = Range("A" & j)
'...et filtre les doublons
If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j)
Next j
End Sub
Sub ComboTrié() Dim j As Integer 'Récupère les données de la colonne A... For j = 1 To Range("A65536").End(xlUp).Row ComboBox1 = Range("A" & j) '...et filtre les doublons If ComboBox1.ListIndex = -1 Then ComboBox1.AddItem Range("A" & j) Next j End Sub
