[Résolu][Calc] Recherche avec Occurrences multiples
Publié : 24 mai 2018 07:37
Bonjour à tous
Je me tourne vers vous après multiples recherches sans résultat.
Je souhaite faire une recherche selon un critère et que le resultat me sorte toutes les occurences de ce critère. Je pensais utiliser la fonction macro recherche avec une boucle mais le resultat n'est pas au rendez vous. Auriez vous une piste à me donner ?
Merci d'avance !!
Voici le code
Et le fichier test en PJ
Je me tourne vers vous après multiples recherches sans résultat.
Je souhaite faire une recherche selon un critère et que le resultat me sorte toutes les occurences de ce critère. Je pensais utiliser la fonction macro recherche avec une boucle mais le resultat n'est pas au rendez vous. Auriez vous une piste à me donner ?
Merci d'avance !!
Voici le code
Code : Tout sélectionner
Sub NumVide
Dim oFuncAcces As Object
Dim Matrice As variant, Valeur As String
Dim Recherche As variant
Dim Args1 as variant
Dim i as Variant
monDocument = ThisComponent
lesFeuilles = monDocument.Sheets
maFeuille = lesFeuilles.getByName("StockA")
maCellule = maFeuille.getCellRangeByName("A20")
i = maCellule.Value
For x = 1 to i
oFuncAcces = CreateUnoService("com.sun.star.sheet.FunctionAccess")
Valeur = ThisComponent.sheets.getByName("StockA").GetCellRangeByName( "G1" ).String
Matrice = ThisComponent.sheets.getByName("StockA").GetCellRangeByName("A" & x & ":B10")
Args1 = array(Valeur,Matrice,2,0)
Recherche = oFuncAcces.callFunction("VLOOKUP",Args1 )
ThisComponent.sheets.getByName("StockA").GetCellRangeByName("E" & x).Value = Recherche & x
Print "Les numéros vides sont " & Recherche & x
Next x
End Sub