Rick@
XLDnaute Occasionnel
Bonjour,
J'ai besoin d'ajouter à cette macro la fonction "mettre en ordre alphabétique" ceci dans le but de faciliter les recherches à partir de la liste déroulante auquel elle se ratache...
La voici:
Sub Liste1()
With Sheets("En controle")
.Range("D4😀65536").ClearContents
For lg = 4 To .Range("A65536").End(xlUp).Row
If .Cells(lg, 2) = 2 Then
.Cells(.Range("D65536").End(xlUp).Row + 1, 4) = .Cells(lg, 1)
End If
Next
End With
End SubMerci à l'avance pour votre collaboration!🙂
J'ai besoin d'ajouter à cette macro la fonction "mettre en ordre alphabétique" ceci dans le but de faciliter les recherches à partir de la liste déroulante auquel elle se ratache...
La voici:
Sub Liste1()
With Sheets("En controle")
.Range("D4😀65536").ClearContents
For lg = 4 To .Range("A65536").End(xlUp).Row
If .Cells(lg, 2) = 2 Then
.Cells(.Range("D65536").End(xlUp).Row + 1, 4) = .Cells(lg, 1)
End If
Next
End With
End SubMerci à l'avance pour votre collaboration!🙂