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
JpPradier
Bonjour Philippe Sans précision j'ai ratissé large pour la plage vérifiée ;-)) . A adapter donc :
j-p
Sub antecedents() For Each cellu In Range("A1:IV65536").Cells On Error Resume Next nb = cellu.Precedents If Err.Number <> 0 Then cellu.Interior.ColorIndex = 1 Else cellu.Interior.ColorIndex = 5 End If Next End Sub
Bonjour Philippe
Sans précision j'ai ratissé large pour la plage vérifiée ;-)) . A adapter donc :
j-p
Sub antecedents()
For Each cellu In Range("A1:IV65536").Cells
On Error Resume Next
nb = cellu.Precedents
If Err.Number <> 0 Then
cellu.Interior.ColorIndex = 1
Else
cellu.Interior.ColorIndex = 5
End If
Next
End Sub
Bonjour Philippe Sans précision j'ai ratissé large pour la plage vérifiée ;-)) . A adapter donc :
j-p
Sub antecedents() For Each cellu In Range("A1:IV65536").Cells On Error Resume Next nb = cellu.Precedents If Err.Number <> 0 Then cellu.Interior.ColorIndex = 1 Else cellu.Interior.ColorIndex = 5 End If Next End Sub
Philippe.R
Bonjour JP, For Each cellu In UsedRange aurait peut être suffit ? -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002
"JpPradier" a écrit dans le message de news:uvqUN%
Bonjour Philippe Sans précision j'ai ratissé large pour la plage vérifiée ;-)) . A adapter donc :
j-p
Sub antecedents() For Each cellu In Range("A1:IV65536").Cells On Error Resume Next nb = cellu.Precedents If Err.Number <> 0 Then cellu.Interior.ColorIndex = 1 Else cellu.Interior.ColorIndex = 5 End If Next End Sub
Bonjour JP,
For Each cellu In UsedRange
aurait peut être suffit ?
--
Amicales Salutations
Retirer A_S_ pour répondre.
XL 97 / 2000 / 2002
"JpPradier" <jp.pradier.JVeuxPasDeSpam@wanadoo.fr> a écrit dans le message de
news:uvqUN%23XcEHA.2816@TK2MSFTNGP11.phx.gbl...
Bonjour Philippe
Sans précision j'ai ratissé large pour la plage vérifiée ;-)) . A adapter donc :
j-p
Sub antecedents()
For Each cellu In Range("A1:IV65536").Cells
On Error Resume Next
nb = cellu.Precedents
If Err.Number <> 0 Then
cellu.Interior.ColorIndex = 1
Else
cellu.Interior.ColorIndex = 5
End If
Next
End Sub
Bonjour JP, For Each cellu In UsedRange aurait peut être suffit ? -- Amicales Salutations Retirer A_S_ pour répondre. XL 97 / 2000 / 2002
"JpPradier" a écrit dans le message de news:uvqUN%
Bonjour Philippe Sans précision j'ai ratissé large pour la plage vérifiée ;-)) . A adapter donc :
j-p
Sub antecedents() For Each cellu In Range("A1:IV65536").Cells On Error Resume Next nb = cellu.Precedents If Err.Number <> 0 Then cellu.Interior.ColorIndex = 1 Else cellu.Interior.ColorIndex = 5 End If Next End Sub
JpPradier
Bonjour Philippe
Tu as raison mais j'ai précisé que je ratissais large ;-)
j-p
Bonjour Philippe
Tu as raison mais j'ai précisé que je ratissais large ;-)
