XL 2013 les machistes (utilisateurs de Mac OS peuvent ils tester ceci

RyuAutodidacte

XLDnaute Impliqué

• 30 Octobre 2023

• #226

patricktoulon à dit:

Bonjour ryu
ben déjà comme ca et j'en suis presque sur (par rapport à ce que tu me dis )
tu fait les choses à l'envers
l'erreur que tu a c'est par ce que le if donne faux

on exit pas une fonction par ce qu'elle donne bon mais par ce qu'elle donne faux
mais avant on lui donne une valeur sinon elle va déclencher une erreur sur l'appelant mais tu aurra l'erreur sur la fonction en jaune dans vbe alors que la fonction a tout simplement rien renvoyé

VB:

function mafonction(a,b,c,etc...)
'blablabla
'blablabla
'blablabla
if blablabla=false then mafonction="ceci":exit function
mafonction=letrucdeblablabla
end function

donne moi le code la fonction

Cliquez pour agrandir...

Re,
Dans les variables locales :


UBound(CF) = -1 renvoie Vrai
je donne la valeur False au nom de la Function => Items_Keys = False
ca plante à Exit Function

 

Dernière édition: 30 Octobre 2023

Vote positif 0 Vote négatif

RyuAutodidacte

XLDnaute Impliqué

• 30 Octobre 2023

• #227

Je fais ca :

VB:

Sub test()
    A = Array("toto", "titi", "U3", "riri", "fifi", "toto", "E3", "loulou", "tutu", "toto1", "toto2", "U2", "E1", "tata", "fifi", "titi", "E2", "U1")
    R = Filtr(A)
   MsgBox R
End Sub

Function Filtr(A)
     F = Filter(A, "Z")
     If UBound(F) = -1 Then Filtr = False: Exit Function
End Function

ca pose pourtant pas de pb dans un module

 

Dernière édition: 30 Octobre 2023

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 30 Octobre 2023

• #228

et oui mais je n'ai pas la filter
a supposer que filter te renvoie une erreur ou même vide ta condition if ubound(F) va déclencher une erreur en elle même

 

Vote positif 0 Vote négatif

RyuAutodidacte

XLDnaute Impliqué

• 30 Octobre 2023

• #229

t'es sur quelle version d'excel ?

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 30 Octobre 2023

• #230

2013 mais c'est pareil pour tous
a oui la filter de vba pardon !!!!
mais attention elle renvoie aussi false quand il y a pas d'occurence !!!!!!

VB:

Const exclure As Boolean = False
Const inclure As Boolean = True

Sub test()
    A = Array("toto", "titi", "U3", "riri", "fifi", "zaza", "toto", "E3", "zouzou", "loulou", "tutu", "toto1", "toto2", "U2", "E1", "tata", "fifi", "titi", "E2", "U1")
    r = Filtr(A, "z", exclure)
    MsgBox "pas les mots avec ""z""" & vbCrLf & Join(r, ",")

    r = Filtr(A, "z", inclure)
    MsgBox "que les mots avec ""z""" & vbCrLf & Join(r, ",")

    r = Filtr(A, "zy", inclure)
    If r = False Then ' ca peut être aussi : if isarray(r)
        MsgBox " par de mot avec ""zy"""
    Else
        MsgBox "que les mots avec ""z""" & vbCrLf & Join(r, ",")
    End If
End Sub

Function Filtr(A, Lettre, incexclu)
    f = filter(A, Lettre, incexclu, 1)
    If UBound(f) = -1 Then Filtr = False: Exit Function
    Filtr = f
End Function

il faudra quand même m'expliquer aussi pourquoi passer par la function passerelle "filtr"
c'est Absurde

 

Vote positif 0 Vote négatif

RyuAutodidacte

XLDnaute Impliqué

• 30 Octobre 2023

• #231

Re
de toute façon j'ai fait un test précis et ca ne vient pas de là
l'erreur se fait sur le exit function mais c'est du à une variable mal typé apparemment qui donne l'erreur 13 en sortie de la fonction
faut que je trouve c'est laquelle ….

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 30 Octobre 2023

• #232

bonjour,
juste pour le fun

VB:

Enum Choix
    exclure = 0
    inclure = -1
End Enum
Function Filtr(A, Lettre, incexclu As Choix)
    f = Filter(A, Lettre, incexclu, 1)
    If UBound(f) = -1 Then Filtr = False: Exit Function
    Filtr = f
End Function

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 30 Octobre 2023

• #233

re
en effet maintenant il renvoie -1 avant sur 2007 c’était false

 

Vote positif 0 Vote négatif

RyuAutodidacte

XLDnaute Impliqué

• 30 Octobre 2023

• #234

Honte à moi ma fonction était ok c'était dans la sub ou j'ai mal réceptionner le résultat

 

Vote positif 0 Vote négatif

dysorthographie

XLDnaute Accro

• 30 Octobre 2023

• #235

patricktoulon à dit:

re
en effet maintenant il renvoie -1 avant sur 2007 c’était false

Cliquez pour agrandir...

J'ai 2007 et c'est -1

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 30 Octobre 2023

• #236

Honte à moi ma fonction était ok c'était dans la sub ou j'ai mal réceptionner le résultat

Cliquez pour agrandir...

ben bien sur

@dysorthographie
oui tu a peut être raison

faut dire qu'on l'utilise pas beaucoup cette fonction
j'avais fait une fonction à l'epoque reprenant l'idée
mais j'avais les arguments
commence par
contient
je vais voir si je retrouve cette relique

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 30 Octobre 2023

• #237

au purée je l'ai retrouvé dis donc
dernière version de 2018

 

Pièces jointes

• filtrer un array avec arument xlpart,xlwhole,commence par et incure ou exclure.xls

  40.5 KB · Affichages: 1

Vote positif 0 Vote négatif

RyuAutodidacte

XLDnaute Impliqué

• 30 Octobre 2023

• #238

patricktoulon à dit:

ben bien sur

Cliquez pour agrandir...

vrai de vrai, la fatigue n'aide pas

 

Vote positif 0 Vote négatif

patricktoulon

XLDnaute Barbatruc

• 30 Octobre 2023

• #239

tu a testé la mienne ?

 

Vote positif 0 Vote négatif

RyuAutodidacte

XLDnaute Impliqué

• 30 Octobre 2023

• #240

patricktoulon à dit:

tu a testé la mienne ?

Cliquez pour agrandir...

Non je n'ai tjs rien ouvert pour ne pas être influencé
PS : je me rends compte en faisant les exemples que des petites choses n'allaient pas, je dois les corriger au fur et à mesure

 

Dernière édition: 30 Octobre 2023

Vote positif 0 Vote négatif