Ajout d'une règle à une macro.

[Rick@]

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!🙂

 

[juju_69]

Re : Ajout d'une règle à une macro.

Hello, Quand tu débutes sur le vba le plus simple pour apprendre est de lancer l'enregistreur de macro. Dans ton cas, tu lances l'enregistreur de macros, tu fais un tri normal via excel et tu arrêtes l'enregistreur. Tu auras alors la syntaxe (pas toujours la plus simple mais la syntaxe quand même) pour faire ton tri.

Bonne soirée

Juju

 

[Rick@]

Re : Ajout d'une règle à une macro.

Allô JUJU_69,

Tu as bien raison pourquoi se compliquer la vie. Effectivement plusieurs chemin mène à Rome...

Merci cela fonctionne très bien!

Au plaisir!!!