Discussion :

[Kimy_Ire]

Bonjour à tous,

Juste une question de compréhension :

Code :

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

1
2
3
4
5
    If Not IsError(cell_ori.Offset(0, col_ori - cell_ori.Column)) Then
        If cell_ori.Offset(0, col_ori - cell_ori.Column).Value <> "" Then
            cell_des.Offset(i, col_des - cell_des.Column) = cell_ori.Offset(0, col_ori - cell_ori.Column)
        End If
    End If

Ce code fonctionne. Je test d'abord si je n'ai pas une erreur et après si la cellule n'est pas vide.

J'ai forcément écrit ceci la première fois :

Code :

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

1
2
3
    If Not IsError(cell_ori.Offset(0, col_ori - cell_ori.Column)) And cell_ori.Offset(0, col_ori - cell_ori.Column).Value <> "" Then
        cell_des.Offset(i, col_des - cell_des.Column) = cell_ori.Offset(0, col_ori - cell_ori.Column)
    End If

en changeant l'ordre dans le If, sachant pertinament que ça n'enlèverait pas l'erreur 13 : Incompatibilité de type.

Je conçois bien qu'une erreur ne peut pas être évaluée/comparée à un <> "", cependant, je voulais savoir s'il n'y avait pas une autre manière de procéder que le code que j'ai écrit fonctionnant actuellement (j'ai horreur d'imbriquer des "If"... ^^ ).

Je ne sais pas si j'ai été suffisament clair dans ma question de compréhension et d'optimisation.

Je vous remercie par avance si vous avez une réponse.

Kimy

[78chris]

Bonjour

Quel que soit l'ordre des conditions, elles sont toutes évaluées.
Donc on ne peut les mettre dans un même if.

On peut éventuellement utiliser case, qui n'évalue pas les autres conditions, il me semble, si la première est satisfaite.

La meilleure solution est de gérer les erreurs en amont : laisser des formules qui renvoient des erreurs n'est jamais bon.

[Kimy_Ire]

Je ne peux gérer les erreurs en amont puisque c'est un souhait d'avoir des "#N/A" pour toutes les cellules qui ne peuvent être calculé.
Exemple :

=SI(L133=0; #N/A; M133/L133)

pour empécher un "#DIV/0".

Bref, je te remercie pour ta réponse !

[78chris]

Bonjour

Pourquoi pas tous simplement

Code :

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

=SI(L133=0; 0; M133/L133)

ou une autre valeur que 0 selon le contexte ?

[Kimy_Ire]

Car mes courbes tracées automatiquement ne doivent pas prendre en compte les points divisés par zéro.

[78chris]

Bonjour

Tu aurais du dire tout de suite que c'était un graph, je n'aurais pas insisté !