Dim rw As Integer
For rw =3D 1 To ActiveSheet.UsedRange.Rows.Count
ActiveSheet.UsedRange.cells(rw + 1, 19).Select
If ActiveCell.Value =3D CVErr(xlErrNA) Then
ActiveCell.Offset(0, -3) =3D "=E0 modifier"
Else: ActiveCell.Offset(0, -3) =3D ""
End If
Next
en fait la boucle fonctionne tant que la celulle test=E9e contient le
message d'erreur, mais je ne comprends pas pourquoi qd la celulle ne
contient pas de message erreur mais un nombre, j'ai une erreur
"incompatibilit=E9 de type"....
normalement si la condition n'est pas remplie (ActiveCell.Value =3D
CVErr(xlErrNA)...) on devrait passer de suite =E0 Else...
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Philippe Noss
Bonjour C par ce qu'on essaie de comparer une variable de type erreur avec une variable numérique ! il vaut mieux utiliser If iserror(ActiveCell) then .... Philippe NOSS http://nossphil.perso.cegetel.net/exoutils.html
Bonjour
C par ce qu'on essaie de comparer une variable de type erreur avec une
variable numérique !
il vaut mieux utiliser
If iserror(ActiveCell) then ....
Philippe NOSS
http://nossphil.perso.cegetel.net/exoutils.html
Bonjour C par ce qu'on essaie de comparer une variable de type erreur avec une variable numérique ! il vaut mieux utiliser If iserror(ActiveCell) then .... Philippe NOSS http://nossphil.perso.cegetel.net/exoutils.html
