Ignorer une boucle si #div/0!

Version imprimable

09/10/2015, 09h03
juliette81

Ignorer une boucle si #div/0!

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
09/10/2015, 09h16
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/
09/10/2015, 10h09
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...
09/10/2015, 10h38
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.

Code:

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

09/10/2015, 11h03
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 ?
09/10/2015, 11h14
juliette81

Code:

Cells(Rows.Count, col).End(xlUp).Offset(1, 0) = Cells(DernLigne + 1, col).Value + (Cells(DernLigne + 1, col).Value) / 2

Ca bloque à ce niveau la ca m'indique erreur 13 :Incompatibilité de type

ca bloque sur un colonne ou il n'y a que des "<100" (c'est normal il ne veut pas faire ma moyenne)
Merci

1 pièce(s) jointe(s)

Heuu celle ligne, c'est pas une moyenne qu'il fait : il fait une somme entre 2 valeurs, puis il divise par 2.

Par contre, je ne comprend pas comment cela se fait qu'il fasse la somme sur des "<100", sachant que, si je comprend bien ta formule, il fait la somme entre la valeur que tu as calculé juste au-dessus avec ta fonction de moyenne, et il rajoute la moitié de celle-ci : je ne vois pas en quoi ça pourrait faire une erreur...

J'ai fait un exemple tout simple, que tu trouveras ici :

Pièce jointe 189797

Les lignes en jaune sont les lignes qui ont été calculées par ta macro : si tu supprimes les 2 lignes en jaune, et que tu relances ta macro, tu verras que je n'ai pas d'erreur ;)

Du coup, je pense qu'il y a un détail qui m'échappe, ou que tu m'as pas dit :mrgreen:

Ah en fait, je viens de comprendre : si ta colonne n'a que des valeurs qui ne sont pas des nombres, alors effectivement la moyenne calculée est de 0, divisé par 0 (vu qu'il n'y a aucun chiffre), et du coup ça fait une erreur.

A fortiori, ensuite, faire la somme des erreurs, ça marche pas :mrgreen:

J'ai donc rajouté une condition :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 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))) If IsError(Cells(DernLigne + 1, col).Value) = False Then 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 End If Next
et là, ça marche ;) l'erreur apparait, mais il ne fait pas le calcul suivant (la somme divisée par 2).

09/10/2015, 11h46
juliette81

Merci pour l'exemple.

Oui pardon pour la somme!!

Mais dans ton exemple si tu mets pour la deuxième colonne que des >100 (cas qui se présente dans mon fichier) ca beuge comme moi.

Merci à toi, je sais si il y a une solution...
09/10/2015, 11h47
juliette81

Pardon nos messages se sont croisés, j'essaie la nouvelle proposition!!!
09/10/2015, 11h55
juliette81

Merci ca marche super! si je peux abuser:

Pour cette partie de code ca colorie les valeurs dont les cellules sont "<" en plus des valeurs qui remplissent la conditions.

Code:

If cel.Value > Cells(DernLigne + 2, col).Value Then cel.Interior.ColorIndex = 3

Merci

Bonjour juliette

Code:

1
2
3
4
For Each cel In Range(Cells(2, col), Cells(DernLigne, col)).Cells
           if not iserror(cel) and If cel.Value > Cells(DernLigne + 2, col).Value Then cel.Interior.ColorIndex = 3
 
        Next

re oopsss!!!

re
bon voila apres relecture du post je comprends mieux

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
 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
 
 
        résultat = Application.Average(Range(Cells(2, col), Cells(DernLigne + 1, col)))
        Cells(Rows.Count, col).End(xlUp).Offset(1, 0) = résultat
        If résultat > 0 Then 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
        End If
    Next

tu aurais du demander dans ton ancien post ;)

09/10/2015, 12h59
Invité

ceci dit on ne fait jamais de division sur des valeurs inconnue!

Code:

Cells(Rows.Count, col).End(xlUp).Offset(1, 0) = Cells(DernLigne + 1, col).Value + (Cells(DernLigne + 1, col).Value * (1 / 2))
09/10/2015, 14h12
juliette81

Merci Patrick, c'est que le problème ne m'était pas encore venu...

mais c'est bon ca marche..

MERCI