Fonction personalisée imcompatibilité de type tableau attendu

N

Nairolf

XLDnaute Accro

• 19 Septembre 2012

• #2

Re : Fonction personalisée imcompatibilité de type tableau attendu

Salut Hoareau,

Je vois quelques incohérences dans ton code:

Public Function Compte_Tranche_2(Plage As Range, ByRef Plage(), t_1 As Integer, t_2 As Integer) As Long
Tu déclares à la fois Plage comme un Range et aussi comme Array????

If IsArray(Plage) = True Then
Je pense que c'est là que la macro se perd car elle recherche un Array alors que tu lui demande de travailler sur un Range.

For i = 1 To UBound(Plage)
Plage(i) = i

If i.Value >= t_1 And i.Value <= t_2 Then
où est le endif?

Compte_Tranche_2 = Compte_Tranche_2 + 1

Next
'""""""""""""""""""""""""""""""""""""
Else
Dim C As Range
Compte_Tranche_2 = 0
For Each C In Plage
If C.Value >= t_1 And C.Value <= t_2 Then

Compte_Tranche_2 = Compte_Tranche_2 + 1
End If

Next C
End Function

 

Vote positif 0 Vote négatif

Robert

XLDnaute Barbatruc

Repose en paix

• 19 Septembre 2012

• #3

Re : Fonction personalisée imcompatibilité de type tableau attendu

Bonjour Hoareau, bonjour le forum,

Pour moi il manque deux End If ou la structure entre les boucles For... Next et les conditions If... End If est à revoir :

Code:

Public Function Compte_Tranche_2(Plage As Range, ByRef Plage(), t_1 As Integer, t_2 As Integer) As Long
Dim C As Range
If IsArray(Plage) = True Then
    For i = 1 To UBound(Plage)
        Plage(i) = i
        If i.Value >= t_1 And i.Value <= t_2 Then
            Compte_Tranche_2 = Compte_Tranche_2 + 1
        End If '<------------------------------ ICI
    Next
Else
    Compte_Tranche_2 = 0
    For Each C In Plage
        If C.Value >= t_1 And C.Value <= t_2 Then
            Compte_Tranche_2 = Compte_Tranche_2 + 1
        End If
    Next C
End If '<------------------------------ ICI
End Function

[Édition]
Bonjour Nairolf on s'est croisé...

 

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 19 Septembre 2012

• #4

Re : Fonction personalisée imcompatibilité de type tableau attendu

end if est un oubli, mais même en laissant que la partie tableau du code cela ne fonctionne pas

 

Pièces jointes

• Test Fonction.xlsm

  16.1 KB · Affichages: 27
• Test Fonction.xlsm

  16.1 KB · Affichages: 29
• Test Fonction.xlsm

  16.1 KB · Affichages: 35

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 19 Septembre 2012

• #5

Re : Fonction personalisée imcompatibilité de type tableau attendu

J'ai regardé d'un peu plus près avec ton fichier (plus facile de voir ce que tu veux avec à vrai dire), voici ce que je te propose :
Sub test_1()
Dim A As Variant
A = Array(1, 2, 3, 4, 5)
Cells(1, 10) = Compte_Tranche_2(1, 5, A)

End Sub

Public Function Compte_Tranche_2(t_1 As Integer, t_2 As Integer, Plage As Variant) As Long

For i = 0 To UBound(Plage)
If Plage(i) >= t_1 And Plage(i) <= t_2 Then
Compte_Tranche_2 = Compte_Tranche_2 + 1
End If
Next
End Function


Salut Robert 😉

EDIT:Entre la 1ère réponse et la modif, remplacement du code car mauvais, j'avais répondu trop vite avant d'avoir testé toutes les lignes du code. En espérant être maintenant dans le vrai.

 

Dernière édition: 19 Septembre 2012

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 19 Septembre 2012

• #6

Re : Fonction personalisée imcompatibilité de type tableau attendu

merci pour la partie tableau, cela fonctionne impeccable

Inversion de t_1 et t_2, a t'elle une raison précise

Ce que je cherchai à faire, comme précisé dans le premier post, c'est que la fonction fonctionne aussi bien sur une plage de cellulles que sur un tableau, double emploi

A première vue ce n'est pas possible, la résolution de la partie tableau m'a bien dépanné

 

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 19 Septembre 2012

• #7

Re : Fonction personalisée imcompatibilité de type tableau attendu

L'inversion n'a pas de raison spécifique.

Pour le double emploi essaye avec ça, peut-être que ça te servira:
Sub test_1()
Dim A As Variant
Dim B As Range
'A = Array(1, 2, 3, 4, 5)
A = Array()
Set B = ActiveSheet.Range("A1:E1")
Cells(1, 10) = Compte_Tranche_2(1, 5, A, B)
End Sub
Public Function Compte_Tranche_2(t_1 As Integer, t_2 As Integer, Table As Variant, Plage As Range) As Long
If UBound(Table) <> -1 Then
For i = 0 To UBound(Table)
If Table(i) >= t_1 And Table(i) <= t_2 Then
Compte_Tranche_2 = Compte_Tranche_2 + 1
End If
Next
Else
For i = 1 To WorksheetFunction.Count(Plage)
If Plage.Cells(1, i) >= t_1 And Plage.Cells(1, i) <= t_2 Then
Compte_Tranche_2 = Compte_Tranche_2 + 1
End If
Next
End If
End Function

 

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 19 Septembre 2012

• #8

Re : Fonction personalisée imcompatibilité de type tableau attendu

merci

je ne pensais pas qu'il faille autant de ligne de code

 

Vote positif 0 Vote négatif

N

Nairolf

XLDnaute Accro

• 19 Septembre 2012

• #9

Re : Fonction personalisée imcompatibilité de type tableau attendu

C'est possible (même probable) que mon code soit optimisable, mais à mon avis difficile de faire plus court avec 2 boucles et 3 conditions.

Si tu veux absolument réduire le nombre de lignes, tu peux par exemple remplacer:

If Table(i) >= t_1 And Table(i) <= t_2 Then
Compte_Tranche_2 = Compte_Tranche_2 + 1
End If

Par:

If Table(i) >= t_1 And Table(i) <= t_2 Then Compte_Tranche_2 = Compte_Tranche_2 + 1

 

Vote positif 0 Vote négatif

H

Hoareau

XLDnaute Occasionnel

• 19 Septembre 2012

• #10

Re : Fonction personalisée imcompatibilité de type tableau attendu

C'était juste un constat, le nombre de ligne ne me dérange aucunement

 

Vote positif 0 Vote négatif