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
RGI
Bonjour
supposons que ta liste soit en colonne A
Dim i As Integer Application.ScreenUpdating = False 'zn = zone de données dans la feuil1 Range("Zn").Copy Destination:=Range("C2") Range("C2").Sort Key1:=Range("C2"), Header:=xlGuess Set reC = Range("C2", [c2].End(xlDown)) nbL = reC.Count For i = nbL To 1 Step -1 On Error Resume Next If Cells(i, 3) <> Cells(i - 1, 3) Then Cells(i, 4) = Cells(i, 3) Cells(i, 3).Delete Shift:=xlUp End If Next i Columns("D:D").Select Selection.Sort Key1:=Range("D2"), Header:=xlGuess Set nbL = Nothing Range("C1:D1").Select Selection.Insert Shift:=xlDown [C1].Value = "Doublon(s)" [d1].Value = "Prénom(s)"
With Selection.Interior .ColorIndex = 36 .Pattern = xlSolid End With [C1].Select 'selection du tableau Set tbl = ActiveCell.CurrentRegion tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _ tbl.Columns.Count).Select
End Sub
il ne reste plus qu'a faire ta liste déroulante avec la colonne prénoms
Salutations
Gilbert
Bonjour à tout le forum
Comment puis-je récupérer des données dans une base pour les mettre dans une liste déroulante.
ex
Pierre Jean Paul Paul Michel Luc André joel Pierre Michel Paul
je souhaiterais avoir dans la liste déroulante les prénom sans les doublons
merci d'avance
Eric
Bonjour
supposons que ta liste soit en colonne A
Dim i As Integer
Application.ScreenUpdating = False
'zn = zone de données dans la feuil1
Range("Zn").Copy Destination:=Range("C2")
Range("C2").Sort Key1:=Range("C2"), Header:=xlGuess
Set reC = Range("C2", [c2].End(xlDown))
nbL = reC.Count
For i = nbL To 1 Step -1
On Error Resume Next
If Cells(i, 3) <> Cells(i - 1, 3) Then
Cells(i, 4) = Cells(i, 3)
Cells(i, 3).Delete Shift:=xlUp
End If
Next i
Columns("D:D").Select
Selection.Sort Key1:=Range("D2"), Header:=xlGuess
Set nbL = Nothing
Range("C1:D1").Select
Selection.Insert Shift:=xlDown
[C1].Value = "Doublon(s)"
[d1].Value = "Prénom(s)"
With Selection.Interior
.ColorIndex = 36
.Pattern = xlSolid
End With
[C1].Select
'selection du tableau
Set tbl = ActiveCell.CurrentRegion
tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _
tbl.Columns.Count).Select
End Sub
il ne reste plus qu'a faire ta liste déroulante avec la colonne prénoms
Salutations
Gilbert
Bonjour à tout le forum
Comment puis-je récupérer des données dans une base pour les mettre
dans une liste déroulante.
ex
Pierre
Jean Paul
Paul
Michel
Luc
André
joel
Pierre
Michel
Paul
je souhaiterais avoir dans la liste déroulante les prénom sans les
doublons
Dim i As Integer Application.ScreenUpdating = False 'zn = zone de données dans la feuil1 Range("Zn").Copy Destination:=Range("C2") Range("C2").Sort Key1:=Range("C2"), Header:=xlGuess Set reC = Range("C2", [c2].End(xlDown)) nbL = reC.Count For i = nbL To 1 Step -1 On Error Resume Next If Cells(i, 3) <> Cells(i - 1, 3) Then Cells(i, 4) = Cells(i, 3) Cells(i, 3).Delete Shift:=xlUp End If Next i Columns("D:D").Select Selection.Sort Key1:=Range("D2"), Header:=xlGuess Set nbL = Nothing Range("C1:D1").Select Selection.Insert Shift:=xlDown [C1].Value = "Doublon(s)" [d1].Value = "Prénom(s)"
With Selection.Interior .ColorIndex = 36 .Pattern = xlSolid End With [C1].Select 'selection du tableau Set tbl = ActiveCell.CurrentRegion tbl.Offset(1, 0).Resize(tbl.Rows.Count - 1, _ tbl.Columns.Count).Select
End Sub
il ne reste plus qu'a faire ta liste déroulante avec la colonne prénoms
Salutations
Gilbert
Bonjour à tout le forum
Comment puis-je récupérer des données dans une base pour les mettre dans une liste déroulante.
ex
Pierre Jean Paul Paul Michel Luc André joel Pierre Michel Paul
je souhaiterais avoir dans la liste déroulante les prénom sans les doublons
