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
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
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" <nospampatrickaubert@neuf.fr> a écrit dans le message de news:
e$aYBxu2IHA.2060@TK2MSFTNGP02.phx.gbl...
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
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
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)))
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...
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)))
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)))
Bonsour® ptck avec ferveur ;o))) vous nous disiez :
j'ai le message "incompatilité type"
au lieu de :
Then Cell.Offset(O, -3).Copy Destination:=Cell etc...
écrire : (zéro et non O)
Then Cell.Offset(0, -3).Copy Destination:=Cell etc...
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)))
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
Ok merci
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
e88OKLv2IHA.4220@TK2MSFTNGP06.phx.gbl...
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" <nospampatrickaubert@neuf.fr> a écrit dans le message de news:
e$aYBxu2IHA.2060@TK2MSFTNGP02.phx.gbl...
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
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
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
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" <nospampatrickaubert@neuf.fr> a écrit dans le message de news:
%237$0tYv2IHA.2524@TK2MSFTNGP04.phx.gbl...
Ok merci
"Jacky" <Dupond@marcel.fr> a écrit dans le message de news:
e88OKLv2IHA.4220@TK2MSFTNGP06.phx.gbl...
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" <nospampatrickaubert@neuf.fr> a écrit dans le message de news:
e$aYBxu2IHA.2060@TK2MSFTNGP02.phx.gbl...
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
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
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)))
Merci pour tous ces conseils
ptck
"Modeste" <nomail@nomail.net> a écrit dans le message de news:
OdlBDTv2IHA.5112@TK2MSFTNGP03.phx.gbl...
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...