Filtrer sans doublon et copie du résultat sur nouvelle feuille

De zBasic

Aller à : navigation, rechercher

Depuis la liste de villes exposées ci-dessus, créer un filtre pour ne renvoyer que les éléments sans les doublons.

Sub Main
  GlobalScope.BasicLibraries.loadLibrary("zBasic")
  Dim oFiltre as variant
  oFiltre = zFiltre.Demarre("Feuille1", "A1:A29")
  zFiltre.Parametre(oFiltre, "entete", "O")
  zFiltre.Parametre(oFiltre, "doublon", "O")
  zFiltre.Colonne(oFiltre, 1, "", 3, "")
  zFeuille.Cree("Résultat")
  zFiltre.Execute(oFiltre, "Résultat", "A1")
End sub

Récupérée de « https://beaussier.com/wiki/index.php?title=Filtrer_sans_doublon_et_copie_du_résultat_sur_nouvelle_feuille&oldid=170 »

Exemples