Erreur de compil

- - Dernière réponse :  jack - 4 sept. 2019 à 11:12
bonjour à tous
dans le débogage suivant j'ai un problème à la ligne Call TriSeltd)
pourquoi; merci d'avance
Public Function Suite(plage As Range, n As Byte) As String
Dim td(), ntd As Long, k As Byte, i As Long, cel As Range, ok As Boolean, s As String
ntd = plage.Cells.Count
ReDim td(1 To ntd)
ok = False
i = 0
For Each cel In plage
i = i + 1
td(i) = cel.Value
Next cel
Call TriSel(td)
'MsgBox td(1) & "-" & td(2) & "-" & td(3) & "-" & td(4) & "-" & td(5)
Select Case n
Case 2:
For k = 1 To ntd - 1
If td(k + 1) = td(k) + 1 Then
ok = True
s = td(k) & "-" & td(k + 1)
Exit For
End If
Next k
Case 3:
For k = 1 To ntd - 2
If td(k + 2) = td(k + 1) + 1 And td(k + 1) = td(k) + 1 Then
ok = True
s = td(k) & "-" & td(k + 1) & "-" & td(k + 2)
Exit For
End If
Next k
End Select
If ok Then
Suite = s
Else
Suite = "pas de suite"
End If
End Function
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
1083
Date d'inscription
samedi 16 février 2019
Statut
Membre
Dernière intervention
16 septembre 2019
86
1
Merci
Bonjour,

Cette fonction appel une autre marco ("TriSel") avec un passage de paramètre (ici "td"). Il faut vérifier que ce paramètre soit bien définis dans l'autre macro.

Par exemple:
Sub TriSel (nom_d'une_variable as string)


Cordialement

Dire « Merci » 1

Heureux de vous avoir aidé ! Vous nous appréciez ? Donnez votre avis sur nous ! Evaluez CommentCaMarche

CCM 60228 internautes nous ont dit merci ce mois-ci

Commenter la réponse de T3chN0g3n