[Résolu] Erreur 13 Incompatibilité de type
Bonjour,
Il y a quelques temps (quelques années!) on m'avait donné sur ce forum la macro suivante:
Private Function Trouver_Maxi(NomFeuille As String) As Byte
Dim Ws As Worksheet
Dim Numero As Byte, Indice As Byte, Max As Byte
For Each Ws In ThisWorkbook.Worksheets
Indice = 0
If InStr(1, Ws.Name, NomFeuille, vbTextCompare) > 0 Then
Do While IsNumeric(Right(Ws.Name, Indice + 1))
Indice = Indice + 1
Loop
If Indice > 0 Then Numero = Right(Ws.Name, Indice - 1)
If Numero > Max Then Max = Numero
End If
Next Ws
Trouver_Maxi = Max
End Function
J'ai passé la feuille excel à un ami pour qu'il utilise la macro que j'avais développé autour, et il a une erreur de de type (13) alors que chez moi ca marche très bien.
Le débogage le renvoi sur la ligne en gras.
J'ai testé sous Excel 2000, 2002 pas de problèeme. Lui est sous 2003 et cela semble bloquer... Savez vous comment résoudre ce petit souci?
Par avance merci
Bruno
Bonjour,
Il y a quelques temps (quelques années!) on m'avait donné sur ce forum la macro suivante:
Private Function Trouver_Maxi(NomFeuille As String) As Byte
Dim Ws As Worksheet
Dim Numero As Byte, Indice As Byte, Max As Byte
For Each Ws In ThisWorkbook.Worksheets
Indice = 0
If InStr(1, Ws.Name, NomFeuille, vbTextCompare) > 0 Then
Do While IsNumeric(Right(Ws.Name, Indice + 1))
Indice = Indice + 1
Loop
If Indice > 0 Then Numero = Right(Ws.Name, Indice - 1)
If Numero > Max Then Max = Numero
End If
Next Ws
Trouver_Maxi = Max
End Function
J'ai passé la feuille excel à un ami pour qu'il utilise la macro que j'avais développé autour, et il a une erreur de de type (13) alors que chez moi ca marche très bien.
Le débogage le renvoi sur la ligne en gras.
J'ai testé sous Excel 2000, 2002 pas de problèeme. Lui est sous 2003 et cela semble bloquer... Savez vous comment résoudre ce petit souci?
Par avance merci
Bruno
Dernière édition: