Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel question sur #N/A

question sur #N/A

6 réponses
Avatar
ptck
Bonsoir
j'ai cette petite macro qui met dans les cellules qui ont #N/A la valeur de
la colonne -3 et en couleur bleu
si j'enlève la ligne "on error resume next"
à la ligne If Cell = "#N/A" ....
j'ai le message "incompatilité type"

je ne sais pas pourquoi
merci de votre aide
ptck


Sub maj_prix()
Dim Plage As Range, Cell As Range
On Error Resume Next
Set Plage = Application.InputBox("Plage à examiner", Type:=8)
If IsEmpty(Plage) Then Exit Sub

'Application.ScreenUpdating = False
For Each Cell In Plage
If Cell = "#N/A" Then Cell.Offset(O, -3).Copy Destination:=Cell:
Cell.Interior.ColorIndex = 34
Next Cell
End Sub
Signaler un problème avec ce contenu

6 réponses

Supprimer
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
Avatar
Jacky
Bonsoir,

Essai comme ceci
'------------
Sub maj_prix()
Dim Plage As Range, Cell As Range
'On Error Resume Next
Set Plage = Application.InputBox("Plage à examiner", Type:=8)
If IsEmpty(Plage) Then Exit Sub
For Each Cell In Plage
If Application.IsNA(Cell) Then Cell.Offset(O, -3).Copy Cell:
Cell.Interior.ColorIndex = 34
Next
End Sub
'---------------
Reste à contrôler que la plage ne commence jamais avant la colonne D

--
Salutations
JJ


"ptck" a écrit dans le message de news:
e$
Bonsoir
j'ai cette petite macro qui met dans les cellules qui ont #N/A la valeur
de la colonne -3 et en couleur bleu
si j'enlève la ligne "on error resume next"
à la ligne If Cell = "#N/A" ....
j'ai le message "incompatilité type"

je ne sais pas pourquoi
merci de votre aide
ptck


Sub maj_prix()
Dim Plage As Range, Cell As Range
On Error Resume Next
Set Plage = Application.InputBox("Plage à examiner", Type:=8)
If IsEmpty(Plage) Then Exit Sub

'Application.ScreenUpdating = False
For Each Cell In Plage
If Cell = "#N/A" Then Cell.Offset(O, -3).Copy Destination:Îll:
Cell.Interior.ColorIndex = 34
Next Cell
End Sub




Avatar
Modeste
Bonsour® ptck avec ferveur ;o))) vous nous disiez :

j'ai cette petite macro qui met dans les cellules qui ont #N/A la
valeur de la colonne -3 et en couleur bleu
si j'enlève la ligne "on error resume next"
à la ligne If Cell = "#N/A" ....
j'ai le message "incompatilité type"



Toutes erreurs : #DIV/0!, #N/A, #NOM?, NUL!, #NOMBRE!, #REF!, #VALEUR!
If worksheetfunction.IsError(Cell ) Then etc...

Toutes Erreurs sauf #N/A
If worksheetfunction.IsErr(Cell ) Then etc...

Seulement #N/A
If worksheetfunction.IsNa(Cell ) Then etc...









--
--
@+
;o)))
Avatar
Modeste
Bonsour® ptck avec ferveur ;o))) vous nous disiez :

j'ai le message "incompatilité type"



au lieu de :
Then Cell.Offset(O, -3).Copy Destination:Îll etc...

écrire : (zéro et non O)
Then Cell.Offset(0, -3).Copy Destination:Îll etc...



--


--
@+
;o)))
Avatar
ptck
Ok merci


"Jacky" a écrit dans le message de news:

Bonsoir,

Essai comme ceci
'------------
Sub maj_prix()
Dim Plage As Range, Cell As Range
'On Error Resume Next
Set Plage = Application.InputBox("Plage à examiner", Type:=8)
If IsEmpty(Plage) Then Exit Sub
For Each Cell In Plage
If Application.IsNA(Cell) Then Cell.Offset(O, -3).Copy Cell:
Cell.Interior.ColorIndex = 34
Next
End Sub
'---------------
Reste à contrôler que la plage ne commence jamais avant la colonne D

--
Salutations
JJ


"ptck" a écrit dans le message de news:
e$
Bonsoir
j'ai cette petite macro qui met dans les cellules qui ont #N/A la valeur
de la colonne -3 et en couleur bleu
si j'enlève la ligne "on error resume next"
à la ligne If Cell = "#N/A" ....
j'ai le message "incompatilité type"

je ne sais pas pourquoi
merci de votre aide
ptck


Sub maj_prix()
Dim Plage As Range, Cell As Range
On Error Resume Next
Set Plage = Application.InputBox("Plage à examiner", Type:=8)
If IsEmpty(Plage) Then Exit Sub

'Application.ScreenUpdating = False
For Each Cell In Plage
If Cell = "#N/A" Then Cell.Offset(O, -3).Copy Destination:Îll:
Cell.Interior.ColorIndex = 34
Next Cell
End Sub









Avatar
Jacky
Re...+
Attention.....
As-tu regardé la remarque de Monsieur Modeste....
'----------
écrire : (zéro et non O)
Then Cell.Offset(0, -3).Copy Destination:Îll etc...
'-----------
Bien que cela fonctionne, c'est une erreur qu'il vaut mieux modifier.
--
Salutations
JJ


"ptck" a écrit dans le message de news:
%237$
Ok merci


"Jacky" a écrit dans le message de news:

Bonsoir,

Essai comme ceci
'------------
Sub maj_prix()
Dim Plage As Range, Cell As Range
'On Error Resume Next
Set Plage = Application.InputBox("Plage à examiner", Type:=8)
If IsEmpty(Plage) Then Exit Sub
For Each Cell In Plage
If Application.IsNA(Cell) Then Cell.Offset(O, -3).Copy Cell:
Cell.Interior.ColorIndex = 34
Next
End Sub
'---------------
Reste à contrôler que la plage ne commence jamais avant la colonne D

--
Salutations
JJ


"ptck" a écrit dans le message de news:
e$
Bonsoir
j'ai cette petite macro qui met dans les cellules qui ont #N/A la valeur
de la colonne -3 et en couleur bleu
si j'enlève la ligne "on error resume next"
à la ligne If Cell = "#N/A" ....
j'ai le message "incompatilité type"

je ne sais pas pourquoi
merci de votre aide
ptck


Sub maj_prix()
Dim Plage As Range, Cell As Range
On Error Resume Next
Set Plage = Application.InputBox("Plage à examiner", Type:=8)
If IsEmpty(Plage) Then Exit Sub

'Application.ScreenUpdating = False
For Each Cell In Plage
If Cell = "#N/A" Then Cell.Offset(O, -3).Copy Destination:Îll:
Cell.Interior.ColorIndex = 34
Next Cell
End Sub













Avatar
ptck
Merci pour tous ces conseils
ptck


"Modeste" a écrit dans le message de news:

Bonsour® ptck avec ferveur ;o))) vous nous disiez :

j'ai le message "incompatilité type"



au lieu de :
Then Cell.Offset(O, -3).Copy Destination:Îll etc...

écrire : (zéro et non O)
Then Cell.Offset(0, -3).Copy Destination:Îll etc...



--


--
@+
;o)))