Discussion :

[juliette81]

Bonjour,

J'aimerais savoir si je peux ignorer une boucle sur certaine cellule d'erreur. Ma boucle marche bien mais bloque à partir de cette cellule. Et je ne peux pas corriger ces erreurs car ce n'est pas moi qui saisie, et c'est une histoire d'< dans les cellules.

Merci d'avance pour votre aide

[illight]

Salut !


Sans ton code, on va avoir du mal à t'aider...
Néanmoins, tu as un message d'erreur dans ta boucle ? Si oui, il faut faire une gestion d'erreur :

http://silkyroad.developpez.com/VBA/GestionErreurs/

[juliette81]

Merci pour la réponse,
je comprends bien d'où vient l'erreur :je fais des moyennes et il y a des cellules ou il y a le symbole "<" du coup le calcul de la moyenne génère un message d'erreur(ce ne sont pas des fichiers à moi)
Cependant je ne veux pas que la condition s'applique sur ces cellules.
Est-ce qu'il un moyen pour "sauter" ces cellules.

Je veux bien mettre mon code mais il est assez long...

[illight]

Le problème c'est que vu qu'on ne voit pas ton code, on ne sait pas comment tu fais ta moyenne.

Si tu fais une boucle sur les cellules, en rajoutant les valeurs à une variable, il suffit de faire un test sur la cellule, voir si c'est un entier ou pas : tu as une fonction Isnumeric (à tester) pour vérifier si la valeur est un nombre ou pas.

[juliette81]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Sub test()
    DernLigne = Range("A" & Rows.Count).End(xlUp).Row
DernColonne = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
   For col = 3 To Cells(1, Cells.Columns.Count).End(xlToLeft).Column
 
        Cells(Rows.Count, col).End(xlUp).Offset(1, 0) = Application.Average(Range(Cells(2, col), Cells(DernLigne + 1, col)))
        Cells(Rows.Count, col).End(xlUp).Offset(1, 0) = Cells(DernLigne + 1, col).Value + (Cells(DernLigne + 1, col).Value) / 2
        For Each cel In Range(Cells(2, col), Cells(DernLigne, col)).Cells
            If cel.Value > Cells(DernLigne + 2, col).Value Then cel.Interior.ColorIndex = 3
 
        Next
 
 
 
    Next
End Sub

Voici mon code

[illight]

C'est étrange, parce que j'ai fait un test avec ta macro à l'identique, en mettant dans mes données du texte, et je n'ai pas l'erreur que tu as.

Par contre, je viens de penser : l'erreur que tu rencontres n'est pas une erreur dans les données, mais dans ta division, car il divise par 0..Donc si dans ta colonne tu n'as pas de données, il va te mettre effectivement l'erreur..

Tu as essayé de faire du pas à pas, pour voir à quel moment l'erreur apparait ?