Bug dans macro

[materhorn]

Bonjour à tous

J'éxécute dans un fichier la macro suivante pour la mise a jour d'un tableau contenant 52 colonnes.
Le bug se situe lorsque j'atteint la 14 eme
En noir Gras la ligne ou se situe l'erreur

Je ne comprends pas pourquoi cela ne fonctionne plus.
Merci pour votre aide

Sub CalculToTaL()

nbF = [B1]

For L = 6 To 65000

If Cells(L, 3) <> "" Then Exit For

Next L

lDeB = L




For X = 1 To nbF

For L = lDeB To 65000

If Left(Cells(L, 4), 5) = "Total" Then Exit For

Next L

lFiNi = L - 1

For C = 5 To 56

A = 0

For L = lDeB To lFiNi

lFiN = lFiNi + 1


If Left(Cells(L, C), 1) >= 0 And Left(Cells(L, C), 1) <= 9 Then
A = A + Cells(L, C).Value

End If

Next L

Cells(lFiN, C).Value = A

Next C

lDeB = lFiNi + 3

Next X

Mise_en_Page

End Sub

 

[Paritec]

Re : Bug dans macro

Bonjour Materhorn le forum
tu as à coup sur dans cette ligne ou dans cette colonne du texte et non une valeur numérique
a+
papou🙂

 

[materhorn]

Re : Bug dans macro

Bonjour Paritec

C'est exact j'ai des cellules remplies par du texte mais j'ai ca dans toutes les colonnes précédentes

 

[Paritec]

Re : Bug dans macro

re masterhorn
oui mais tu dois avoir des cellules ou tu n'as pas de chiffre devant ton texte hors là tu cherches si ta première lettre de tes cellules c'est compris entre 0 et 9 si tu n'as pas de chiffre cela plante normal si tu as 0tête cela marche mais tête cela ne marche plus
a+
papou🙂

PS: autrement tu passes ton fichier et on va regarder cela

 

[Gael]

Re : Bug dans macro

Bonjour Paritec, Materhorn, le forum,

As-tu essayé avec l'instruction suivante, plus simple et plus complète puisque les test porte sur la valeur de la cellule et non le premier chiffre seulement:

If IsNumeric(Cells(L, C)) Then

@+

Gael

 

[materhorn]

Re : Bug dans macro

Re Bonjour

Depuis le départ les colonnes comportent du texte

Ci joint mon fichier

Par avance Merci

 

[materhorn]

Re : Bug dans macro

Bonjour Gael

C'est parfait cela fonctionne
Merci pour ta réponse et encore mercio à Paritec