[Résolu][Calc] Compteur de séries

[vire]

Suite du fil https://forum.openoffice.org/fr/forum/v ... 47#p284647

Bonjour,


Je cherche une solution pour compter:

Nombre de fois que X ou Y
suivent A B dans la première ou deuxième case
qui suivent A B



Merci,

Pierre
MAC OS X YOSEMITE
Appache Open Office 4.1.2

[micmac]

Bonjour,

Cette section a des règles très précises que vous devez obligatoirement suivre pour obtenir de l'aide. C'est indiqué dans le cadre rouge en haut de la page.

Il est demandé aux auteurs de faire précéder le titre de leur question d'une balise adéquate. Ce balisage est extrêmement important car il permet d'avoir une base de connaissance optimum en cas de recherche.
Avez-vous remarqué comment étaient postées les autres questions ?

Lisez ce fil pour savoir quelle balise utiliser : https://forum.openoffice.org/fr/forum/s ... html#27295

N'oubliez pas que le terme "Macro" ou "OpenOffice" ne doivent pas être employés car il sont implicites. Essayez de synthétiser au mieux ce que vous cherchez à faire.

Un titre accrocheur vous permettra d'une part d'être aidé plus rapidement et d'autre part, d'enrichir notre base de connaissances.

Nous l'avons fait pour vous cette fois-ci mais lors de votre prochaine question, nous vous remercions de le faire vous-même sous peine de voir votre sujet verrouillé.
Merci de votre collaboration.

[Hubert Lambert]

Bonjour,

Voici un essai, avec deux fonctions en basic :

CONCATB, qui permet de concaténer une plage

Code : Tout sélectionner

function concatb(tableau, optional sep)
    if isArray(tableau) then
        if isMissing(sep) then sep = " "
        dim s()
        x = 0
        for n = 1 to ubound(tableau(),1)
            for m = 1 to ubound(tableau(),2)
                if tableau(n,m) <> 0 then
                    redim preserve s(x)
                    s(x) = tableau(n,m)
                    x = x+1
                end if
            next m
        next n
        concatb = join(s(),sep)
    else
        concatb = tableau
    end if
end function

COMPTEREGEXP qui permet de compter les occurrences d'une expression régulière (ici "AB.?X" et "AB.?Y")

Code : Tout sélectionner

function compteregexp(source, chaine)
    l = len(source)
    oTS = createUnoService("com.sun.star.util.TextSearch")
    dim oSO as new com.sun.star.util.SearchOptions
    oSO.searchString = chaine
    oSO.algorithmType = com.sun.star.util.SearchAlgorithms.REGEXP
    oTS.setOptions(oSO)
    x = 0
    result = oTS.searchForward(source,0,l)
    do while result.subRegExpressions
        x = x+1
        result = oTS.searchForward(source,result.endOffset(0),l)
    loop
    compteregexp = x
end function

Cordialement.

[vire]

Merci