Daniel,
J'ai testé à l'instant à l'aide ton classeur.
La mie à jour se fait, mais après la colorisation
-->Incompatibilité de type sur la ligne
Tabl(Ctr) = c.Value
Ne serait-ce pas le format de nombre qui nous plante?
Pascal
Je viens de tester en ne faisant rien d'autre que d'appuyer sur le bouton d'actualisation. Sans problème. Fais-tu autre chose ? Daniel
Daniel, J'ai testé à l'instant à l'aide ton classeur. La mie à jour se fait, mais après la colorisation -->Incompatibilité de type sur la ligne Tabl(Ctr) = c.Value Ne serait-ce pas le format de nombre qui nous plante? Pascal
Je viens de tester en ne faisant rien d'autre que d'appuyer sur le
bouton d'actualisation. Sans problème. Fais-tu autre chose ?
Daniel
Daniel,
J'ai testé à l'instant à l'aide ton classeur.
La mie à jour se fait, mais après la colorisation
-->Incompatibilité de type sur la ligne
Tabl(Ctr) = c.Value
Ne serait-ce pas le format de nombre qui nous plante?
Pascal
Je viens de tester en ne faisant rien d'autre que d'appuyer sur le bouton d'actualisation. Sans problème. Fais-tu autre chose ? Daniel
Daniel, J'ai testé à l'instant à l'aide ton classeur. La mie à jour se fait, mais après la colorisation -->Incompatibilité de type sur la ligne Tabl(Ctr) = c.Value Ne serait-ce pas le format de nombre qui nous plante? Pascal
Daniel.C
Et utilise ce code qui devrait éviter cette erreur :
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, Ctr As Long If Intersect([C3:C12], Target) Is Nothing Then Exit Sub Ctr = 0 For Each c In [C3:C12] If c.Value > Tabl(Ctr) Then c.Interior.ColorIndex = 4 ElseIf c.Value < Tabl(Ctr) Then c.Interior.ColorIndex = 3 End If Ctr = Ctr + 1 Next c Ctr = 0 Application.Wait Now + TimeValue("00:00:02") [C3:C12].Interior.ColorIndex = xlNone ReDim Tabl(0) For Each c In [C3:C12] ReDim Preserve Tabl(Ctr) Tabl(Ctr) = c.Value Ctr = Ctr + 1 Next test End Sub
Daniel
Daniel, J'ai testé à l'instant à l'aide ton classeur. La mie à jour se fait, mais après la colorisation -->Incompatibilité de type sur la ligne Tabl(Ctr) = c.Value Ne serait-ce pas le format de nombre qui nous plante? Pascal
Et utilise ce code qui devrait éviter cette erreur :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, Ctr As Long
If Intersect([C3:C12], Target) Is Nothing Then Exit Sub
Ctr = 0
For Each c In [C3:C12]
If c.Value > Tabl(Ctr) Then
c.Interior.ColorIndex = 4
ElseIf c.Value < Tabl(Ctr) Then
c.Interior.ColorIndex = 3
End If
Ctr = Ctr + 1
Next c
Ctr = 0
Application.Wait Now + TimeValue("00:00:02")
[C3:C12].Interior.ColorIndex = xlNone
ReDim Tabl(0)
For Each c In [C3:C12]
ReDim Preserve Tabl(Ctr)
Tabl(Ctr) = c.Value
Ctr = Ctr + 1
Next
test
End Sub
Daniel
Daniel,
J'ai testé à l'instant à l'aide ton classeur.
La mie à jour se fait, mais après la colorisation
-->Incompatibilité de type sur la ligne
Tabl(Ctr) = c.Value
Ne serait-ce pas le format de nombre qui nous plante?
Pascal
Et utilise ce code qui devrait éviter cette erreur :
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, Ctr As Long If Intersect([C3:C12], Target) Is Nothing Then Exit Sub Ctr = 0 For Each c In [C3:C12] If c.Value > Tabl(Ctr) Then c.Interior.ColorIndex = 4 ElseIf c.Value < Tabl(Ctr) Then c.Interior.ColorIndex = 3 End If Ctr = Ctr + 1 Next c Ctr = 0 Application.Wait Now + TimeValue("00:00:02") [C3:C12].Interior.ColorIndex = xlNone ReDim Tabl(0) For Each c In [C3:C12] ReDim Preserve Tabl(Ctr) Tabl(Ctr) = c.Value Ctr = Ctr + 1 Next test End Sub
Daniel
Daniel, J'ai testé à l'instant à l'aide ton classeur. La mie à jour se fait, mais après la colorisation -->Incompatibilité de type sur la ligne Tabl(Ctr) = c.Value Ne serait-ce pas le format de nombre qui nous plante? Pascal
pb
Je fais uniquement une actualisation "Daniel.C" a écrit dans le message de news: e1X0rDL%
Et utilise ce code qui devrait éviter cette erreur :
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, Ctr As Long If Intersect([C3:C12], Target) Is Nothing Then Exit Sub Ctr = 0 For Each c In [C3:C12] If c.Value > Tabl(Ctr) Then c.Interior.ColorIndex = 4 ElseIf c.Value < Tabl(Ctr) Then c.Interior.ColorIndex = 3 End If Ctr = Ctr + 1 Next c Ctr = 0 Application.Wait Now + TimeValue("00:00:02") [C3:C12].Interior.ColorIndex = xlNone ReDim Tabl(0) For Each c In [C3:C12] ReDim Preserve Tabl(Ctr) Tabl(Ctr) = c.Value Ctr = Ctr + 1 Next test End Sub
Daniel
Daniel, J'ai testé à l'instant à l'aide ton classeur. La mie à jour se fait, mais après la colorisation -->Incompatibilité de type sur la ligne Tabl(Ctr) = c.Value Ne serait-ce pas le format de nombre qui nous plante? Pascal
Je fais uniquement une actualisation
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
e1X0rDL%23JHA.3544@TK2MSFTNGP04.phx.gbl...
Et utilise ce code qui devrait éviter cette erreur :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, Ctr As Long
If Intersect([C3:C12], Target) Is Nothing Then Exit Sub
Ctr = 0
For Each c In [C3:C12]
If c.Value > Tabl(Ctr) Then
c.Interior.ColorIndex = 4
ElseIf c.Value < Tabl(Ctr) Then
c.Interior.ColorIndex = 3
End If
Ctr = Ctr + 1
Next c
Ctr = 0
Application.Wait Now + TimeValue("00:00:02")
[C3:C12].Interior.ColorIndex = xlNone
ReDim Tabl(0)
For Each c In [C3:C12]
ReDim Preserve Tabl(Ctr)
Tabl(Ctr) = c.Value
Ctr = Ctr + 1
Next
test
End Sub
Daniel
Daniel,
J'ai testé à l'instant à l'aide ton classeur.
La mie à jour se fait, mais après la colorisation
-->Incompatibilité de type sur la ligne
Tabl(Ctr) = c.Value
Ne serait-ce pas le format de nombre qui nous plante?
Pascal
Je fais uniquement une actualisation "Daniel.C" a écrit dans le message de news: e1X0rDL%
Et utilise ce code qui devrait éviter cette erreur :
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, Ctr As Long If Intersect([C3:C12], Target) Is Nothing Then Exit Sub Ctr = 0 For Each c In [C3:C12] If c.Value > Tabl(Ctr) Then c.Interior.ColorIndex = 4 ElseIf c.Value < Tabl(Ctr) Then c.Interior.ColorIndex = 3 End If Ctr = Ctr + 1 Next c Ctr = 0 Application.Wait Now + TimeValue("00:00:02") [C3:C12].Interior.ColorIndex = xlNone ReDim Tabl(0) For Each c In [C3:C12] ReDim Preserve Tabl(Ctr) Tabl(Ctr) = c.Value Ctr = Ctr + 1 Next test End Sub
Daniel
Daniel, J'ai testé à l'instant à l'aide ton classeur. La mie à jour se fait, mais après la colorisation -->Incompatibilité de type sur la ligne Tabl(Ctr) = c.Value Ne serait-ce pas le format de nombre qui nous plante? Pascal
Daniel.C
Tu as la même erreur avec le nouveau code ? Daniel
Je fais uniquement une actualisation "Daniel.C" a écrit dans le message de news: e1X0rDL%
Et utilise ce code qui devrait éviter cette erreur :
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, Ctr As Long If Intersect([C3:C12], Target) Is Nothing Then Exit Sub Ctr = 0 For Each c In [C3:C12] If c.Value > Tabl(Ctr) Then c.Interior.ColorIndex = 4 ElseIf c.Value < Tabl(Ctr) Then c.Interior.ColorIndex = 3 End If Ctr = Ctr + 1 Next c Ctr = 0 Application.Wait Now + TimeValue("00:00:02") [C3:C12].Interior.ColorIndex = xlNone ReDim Tabl(0) For Each c In [C3:C12] ReDim Preserve Tabl(Ctr) Tabl(Ctr) = c.Value Ctr = Ctr + 1 Next test End Sub
Daniel
Daniel, J'ai testé à l'instant à l'aide ton classeur. La mie à jour se fait, mais après la colorisation -->Incompatibilité de type sur la ligne Tabl(Ctr) = c.Value Ne serait-ce pas le format de nombre qui nous plante? Pascal
Tu as la même erreur avec le nouveau code ?
Daniel
Je fais uniquement une actualisation
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
e1X0rDL%23JHA.3544@TK2MSFTNGP04.phx.gbl...
Et utilise ce code qui devrait éviter cette erreur :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, Ctr As Long
If Intersect([C3:C12], Target) Is Nothing Then Exit Sub
Ctr = 0
For Each c In [C3:C12]
If c.Value > Tabl(Ctr) Then
c.Interior.ColorIndex = 4
ElseIf c.Value < Tabl(Ctr) Then
c.Interior.ColorIndex = 3
End If
Ctr = Ctr + 1
Next c
Ctr = 0
Application.Wait Now + TimeValue("00:00:02")
[C3:C12].Interior.ColorIndex = xlNone
ReDim Tabl(0)
For Each c In [C3:C12]
ReDim Preserve Tabl(Ctr)
Tabl(Ctr) = c.Value
Ctr = Ctr + 1
Next
test
End Sub
Daniel
Daniel,
J'ai testé à l'instant à l'aide ton classeur.
La mie à jour se fait, mais après la colorisation
-->Incompatibilité de type sur la ligne
Tabl(Ctr) = c.Value
Ne serait-ce pas le format de nombre qui nous plante?
Pascal
Tu as la même erreur avec le nouveau code ? Daniel
Je fais uniquement une actualisation "Daniel.C" a écrit dans le message de news: e1X0rDL%
Et utilise ce code qui devrait éviter cette erreur :
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, Ctr As Long If Intersect([C3:C12], Target) Is Nothing Then Exit Sub Ctr = 0 For Each c In [C3:C12] If c.Value > Tabl(Ctr) Then c.Interior.ColorIndex = 4 ElseIf c.Value < Tabl(Ctr) Then c.Interior.ColorIndex = 3 End If Ctr = Ctr + 1 Next c Ctr = 0 Application.Wait Now + TimeValue("00:00:02") [C3:C12].Interior.ColorIndex = xlNone ReDim Tabl(0) For Each c In [C3:C12] ReDim Preserve Tabl(Ctr) Tabl(Ctr) = c.Value Ctr = Ctr + 1 Next test End Sub
Daniel
Daniel, J'ai testé à l'instant à l'aide ton classeur. La mie à jour se fait, mais après la colorisation -->Incompatibilité de type sur la ligne Tabl(Ctr) = c.Value Ne serait-ce pas le format de nombre qui nous plante? Pascal
Daniel.C
Peux-tu me renvoyer le classeur que tu utilises ? Daniel
Je fais uniquement une actualisation "Daniel.C" a écrit dans le message de news: e1X0rDL%
Et utilise ce code qui devrait éviter cette erreur :
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, Ctr As Long If Intersect([C3:C12], Target) Is Nothing Then Exit Sub Ctr = 0 For Each c In [C3:C12] If c.Value > Tabl(Ctr) Then c.Interior.ColorIndex = 4 ElseIf c.Value < Tabl(Ctr) Then c.Interior.ColorIndex = 3 End If Ctr = Ctr + 1 Next c Ctr = 0 Application.Wait Now + TimeValue("00:00:02") [C3:C12].Interior.ColorIndex = xlNone ReDim Tabl(0) For Each c In [C3:C12] ReDim Preserve Tabl(Ctr) Tabl(Ctr) = c.Value Ctr = Ctr + 1 Next test End Sub
Daniel
Daniel, J'ai testé à l'instant à l'aide ton classeur. La mie à jour se fait, mais après la colorisation -->Incompatibilité de type sur la ligne Tabl(Ctr) = c.Value Ne serait-ce pas le format de nombre qui nous plante? Pascal
Peux-tu me renvoyer le classeur que tu utilises ?
Daniel
Je fais uniquement une actualisation
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
e1X0rDL%23JHA.3544@TK2MSFTNGP04.phx.gbl...
Et utilise ce code qui devrait éviter cette erreur :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, Ctr As Long
If Intersect([C3:C12], Target) Is Nothing Then Exit Sub
Ctr = 0
For Each c In [C3:C12]
If c.Value > Tabl(Ctr) Then
c.Interior.ColorIndex = 4
ElseIf c.Value < Tabl(Ctr) Then
c.Interior.ColorIndex = 3
End If
Ctr = Ctr + 1
Next c
Ctr = 0
Application.Wait Now + TimeValue("00:00:02")
[C3:C12].Interior.ColorIndex = xlNone
ReDim Tabl(0)
For Each c In [C3:C12]
ReDim Preserve Tabl(Ctr)
Tabl(Ctr) = c.Value
Ctr = Ctr + 1
Next
test
End Sub
Daniel
Daniel,
J'ai testé à l'instant à l'aide ton classeur.
La mie à jour se fait, mais après la colorisation
-->Incompatibilité de type sur la ligne
Tabl(Ctr) = c.Value
Ne serait-ce pas le format de nombre qui nous plante?
Pascal
Peux-tu me renvoyer le classeur que tu utilises ? Daniel
Je fais uniquement une actualisation "Daniel.C" a écrit dans le message de news: e1X0rDL%
Et utilise ce code qui devrait éviter cette erreur :
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, Ctr As Long If Intersect([C3:C12], Target) Is Nothing Then Exit Sub Ctr = 0 For Each c In [C3:C12] If c.Value > Tabl(Ctr) Then c.Interior.ColorIndex = 4 ElseIf c.Value < Tabl(Ctr) Then c.Interior.ColorIndex = 3 End If Ctr = Ctr + 1 Next c Ctr = 0 Application.Wait Now + TimeValue("00:00:02") [C3:C12].Interior.ColorIndex = xlNone ReDim Tabl(0) For Each c In [C3:C12] ReDim Preserve Tabl(Ctr) Tabl(Ctr) = c.Value Ctr = Ctr + 1 Next test End Sub
Daniel
Daniel, J'ai testé à l'instant à l'aide ton classeur. La mie à jour se fait, mais après la colorisation -->Incompatibilité de type sur la ligne Tabl(Ctr) = c.Value Ne serait-ce pas le format de nombre qui nous plante? Pascal
"Daniel.C" a écrit dans le message de news: u%23TA$rL%
Peux-tu me renvoyer le classeur que tu utilises ? Daniel
Je fais uniquement une actualisation "Daniel.C" a écrit dans le message de news: e1X0rDL%
Et utilise ce code qui devrait éviter cette erreur :
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, Ctr As Long If Intersect([C3:C12], Target) Is Nothing Then Exit Sub Ctr = 0 For Each c In [C3:C12] If c.Value > Tabl(Ctr) Then c.Interior.ColorIndex = 4 ElseIf c.Value < Tabl(Ctr) Then c.Interior.ColorIndex = 3 End If Ctr = Ctr + 1 Next c Ctr = 0 Application.Wait Now + TimeValue("00:00:02") [C3:C12].Interior.ColorIndex = xlNone ReDim Tabl(0) For Each c In [C3:C12] ReDim Preserve Tabl(Ctr) Tabl(Ctr) = c.Value Ctr = Ctr + 1 Next test End Sub
Daniel
Daniel, J'ai testé à l'instant à l'aide ton classeur. La mie à jour se fait, mais après la colorisation -->Incompatibilité de type sur la ligne Tabl(Ctr) = c.Value Ne serait-ce pas le format de nombre qui nous plante? Pascal
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
u%23TA$rL%23JHA.5780@TK2MSFTNGP03.phx.gbl...
Peux-tu me renvoyer le classeur que tu utilises ?
Daniel
Je fais uniquement une actualisation
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
e1X0rDL%23JHA.3544@TK2MSFTNGP04.phx.gbl...
Et utilise ce code qui devrait éviter cette erreur :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, Ctr As Long
If Intersect([C3:C12], Target) Is Nothing Then Exit Sub
Ctr = 0
For Each c In [C3:C12]
If c.Value > Tabl(Ctr) Then
c.Interior.ColorIndex = 4
ElseIf c.Value < Tabl(Ctr) Then
c.Interior.ColorIndex = 3
End If
Ctr = Ctr + 1
Next c
Ctr = 0
Application.Wait Now + TimeValue("00:00:02")
[C3:C12].Interior.ColorIndex = xlNone
ReDim Tabl(0)
For Each c In [C3:C12]
ReDim Preserve Tabl(Ctr)
Tabl(Ctr) = c.Value
Ctr = Ctr + 1
Next
test
End Sub
Daniel
Daniel,
J'ai testé à l'instant à l'aide ton classeur.
La mie à jour se fait, mais après la colorisation
-->Incompatibilité de type sur la ligne
Tabl(Ctr) = c.Value
Ne serait-ce pas le format de nombre qui nous plante?
Pascal
"Daniel.C" a écrit dans le message de news: u%23TA$rL%
Peux-tu me renvoyer le classeur que tu utilises ? Daniel
Je fais uniquement une actualisation "Daniel.C" a écrit dans le message de news: e1X0rDL%
Et utilise ce code qui devrait éviter cette erreur :
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, Ctr As Long If Intersect([C3:C12], Target) Is Nothing Then Exit Sub Ctr = 0 For Each c In [C3:C12] If c.Value > Tabl(Ctr) Then c.Interior.ColorIndex = 4 ElseIf c.Value < Tabl(Ctr) Then c.Interior.ColorIndex = 3 End If Ctr = Ctr + 1 Next c Ctr = 0 Application.Wait Now + TimeValue("00:00:02") [C3:C12].Interior.ColorIndex = xlNone ReDim Tabl(0) For Each c In [C3:C12] ReDim Preserve Tabl(Ctr) Tabl(Ctr) = c.Value Ctr = Ctr + 1 Next test End Sub
Daniel
Daniel, J'ai testé à l'instant à l'aide ton classeur. La mie à jour se fait, mais après la colorisation -->Incompatibilité de type sur la ligne Tabl(Ctr) = c.Value Ne serait-ce pas le format de nombre qui nous plante? Pascal
Daniel.C
Je viens de le tester avec XL2003 et XL2007. Daniel
"Daniel.C" a écrit dans le message de news: u%23TA$rL%
Peux-tu me renvoyer le classeur que tu utilises ? Daniel
Je fais uniquement une actualisation "Daniel.C" a écrit dans le message de news: e1X0rDL%
Et utilise ce code qui devrait éviter cette erreur :
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, Ctr As Long If Intersect([C3:C12], Target) Is Nothing Then Exit Sub Ctr = 0 For Each c In [C3:C12] If c.Value > Tabl(Ctr) Then c.Interior.ColorIndex = 4 ElseIf c.Value < Tabl(Ctr) Then c.Interior.ColorIndex = 3 End If Ctr = Ctr + 1 Next c Ctr = 0 Application.Wait Now + TimeValue("00:00:02") [C3:C12].Interior.ColorIndex = xlNone ReDim Tabl(0) For Each c In [C3:C12] ReDim Preserve Tabl(Ctr) Tabl(Ctr) = c.Value Ctr = Ctr + 1 Next test End Sub
Daniel
Daniel, J'ai testé à l'instant à l'aide ton classeur. La mie à jour se fait, mais après la colorisation -->Incompatibilité de type sur la ligne Tabl(Ctr) = c.Value Ne serait-ce pas le format de nombre qui nous plante? Pascal
Je viens de le tester avec XL2003 et XL2007.
Daniel
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
u%23TA$rL%23JHA.5780@TK2MSFTNGP03.phx.gbl...
Peux-tu me renvoyer le classeur que tu utilises ?
Daniel
Je fais uniquement une actualisation
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
e1X0rDL%23JHA.3544@TK2MSFTNGP04.phx.gbl...
Et utilise ce code qui devrait éviter cette erreur :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, Ctr As Long
If Intersect([C3:C12], Target) Is Nothing Then Exit Sub
Ctr = 0
For Each c In [C3:C12]
If c.Value > Tabl(Ctr) Then
c.Interior.ColorIndex = 4
ElseIf c.Value < Tabl(Ctr) Then
c.Interior.ColorIndex = 3
End If
Ctr = Ctr + 1
Next c
Ctr = 0
Application.Wait Now + TimeValue("00:00:02")
[C3:C12].Interior.ColorIndex = xlNone
ReDim Tabl(0)
For Each c In [C3:C12]
ReDim Preserve Tabl(Ctr)
Tabl(Ctr) = c.Value
Ctr = Ctr + 1
Next
test
End Sub
Daniel
Daniel,
J'ai testé à l'instant à l'aide ton classeur.
La mie à jour se fait, mais après la colorisation
-->Incompatibilité de type sur la ligne
Tabl(Ctr) = c.Value
Ne serait-ce pas le format de nombre qui nous plante?
Pascal
"Daniel.C" a écrit dans le message de news: u%23TA$rL%
Peux-tu me renvoyer le classeur que tu utilises ? Daniel
Je fais uniquement une actualisation "Daniel.C" a écrit dans le message de news: e1X0rDL%
Et utilise ce code qui devrait éviter cette erreur :
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, Ctr As Long If Intersect([C3:C12], Target) Is Nothing Then Exit Sub Ctr = 0 For Each c In [C3:C12] If c.Value > Tabl(Ctr) Then c.Interior.ColorIndex = 4 ElseIf c.Value < Tabl(Ctr) Then c.Interior.ColorIndex = 3 End If Ctr = Ctr + 1 Next c Ctr = 0 Application.Wait Now + TimeValue("00:00:02") [C3:C12].Interior.ColorIndex = xlNone ReDim Tabl(0) For Each c In [C3:C12] ReDim Preserve Tabl(Ctr) Tabl(Ctr) = c.Value Ctr = Ctr + 1 Next test End Sub
Daniel
Daniel, J'ai testé à l'instant à l'aide ton classeur. La mie à jour se fait, mais après la colorisation -->Incompatibilité de type sur la ligne Tabl(Ctr) = c.Value Ne serait-ce pas le format de nombre qui nous plante? Pascal
Daniel.C
Bonjour. Y a-t-il des volontaires pour tester le fichier suivant en appuyant sur le bouton (actualisation d'une requête Web). http://www.cijoint.fr/cjlink.php?file=cj200906/cijkDTw7qn.xls Les nombres de la colonne C changeant de valeur doivent se colorier en vert ou en rouge pendant 2 sec. Le classeur fonctionne ici et plante avec pb. Merci d'avance. Daniel
"Daniel.C" a écrit dans le message de news: u%23TA$rL%
Peux-tu me renvoyer le classeur que tu utilises ? Daniel
Je fais uniquement une actualisation "Daniel.C" a écrit dans le message de news: e1X0rDL%
Et utilise ce code qui devrait éviter cette erreur :
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, Ctr As Long If Intersect([C3:C12], Target) Is Nothing Then Exit Sub Ctr = 0 For Each c In [C3:C12] If c.Value > Tabl(Ctr) Then c.Interior.ColorIndex = 4 ElseIf c.Value < Tabl(Ctr) Then c.Interior.ColorIndex = 3 End If Ctr = Ctr + 1 Next c Ctr = 0 Application.Wait Now + TimeValue("00:00:02") [C3:C12].Interior.ColorIndex = xlNone ReDim Tabl(0) For Each c In [C3:C12] ReDim Preserve Tabl(Ctr) Tabl(Ctr) = c.Value Ctr = Ctr + 1 Next test End Sub
Daniel
Daniel, J'ai testé à l'instant à l'aide ton classeur. La mie à jour se fait, mais après la colorisation -->Incompatibilité de type sur la ligne Tabl(Ctr) = c.Value Ne serait-ce pas le format de nombre qui nous plante? Pascal
Bonjour.
Y a-t-il des volontaires pour tester le fichier suivant en appuyant sur
le bouton (actualisation d'une requête Web).
http://www.cijoint.fr/cjlink.php?file=cj200906/cijkDTw7qn.xls
Les nombres de la colonne C changeant de valeur doivent se colorier en
vert ou en rouge pendant 2 sec.
Le classeur fonctionne ici et plante avec pb.
Merci d'avance.
Daniel
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
u%23TA$rL%23JHA.5780@TK2MSFTNGP03.phx.gbl...
Peux-tu me renvoyer le classeur que tu utilises ?
Daniel
Je fais uniquement une actualisation
"Daniel.C" <dcolardelleZZZ@gmail.com> a écrit dans le message de news:
e1X0rDL%23JHA.3544@TK2MSFTNGP04.phx.gbl...
Et utilise ce code qui devrait éviter cette erreur :
Private Sub Worksheet_Change(ByVal Target As Range)
Dim c As Range, Ctr As Long
If Intersect([C3:C12], Target) Is Nothing Then Exit Sub
Ctr = 0
For Each c In [C3:C12]
If c.Value > Tabl(Ctr) Then
c.Interior.ColorIndex = 4
ElseIf c.Value < Tabl(Ctr) Then
c.Interior.ColorIndex = 3
End If
Ctr = Ctr + 1
Next c
Ctr = 0
Application.Wait Now + TimeValue("00:00:02")
[C3:C12].Interior.ColorIndex = xlNone
ReDim Tabl(0)
For Each c In [C3:C12]
ReDim Preserve Tabl(Ctr)
Tabl(Ctr) = c.Value
Ctr = Ctr + 1
Next
test
End Sub
Daniel
Daniel,
J'ai testé à l'instant à l'aide ton classeur.
La mie à jour se fait, mais après la colorisation
-->Incompatibilité de type sur la ligne
Tabl(Ctr) = c.Value
Ne serait-ce pas le format de nombre qui nous plante?
Pascal
Bonjour. Y a-t-il des volontaires pour tester le fichier suivant en appuyant sur le bouton (actualisation d'une requête Web). http://www.cijoint.fr/cjlink.php?file=cj200906/cijkDTw7qn.xls Les nombres de la colonne C changeant de valeur doivent se colorier en vert ou en rouge pendant 2 sec. Le classeur fonctionne ici et plante avec pb. Merci d'avance. Daniel
"Daniel.C" a écrit dans le message de news: u%23TA$rL%
Peux-tu me renvoyer le classeur que tu utilises ? Daniel
Je fais uniquement une actualisation "Daniel.C" a écrit dans le message de news: e1X0rDL%
Et utilise ce code qui devrait éviter cette erreur :
Private Sub Worksheet_Change(ByVal Target As Range) Dim c As Range, Ctr As Long If Intersect([C3:C12], Target) Is Nothing Then Exit Sub Ctr = 0 For Each c In [C3:C12] If c.Value > Tabl(Ctr) Then c.Interior.ColorIndex = 4 ElseIf c.Value < Tabl(Ctr) Then c.Interior.ColorIndex = 3 End If Ctr = Ctr + 1 Next c Ctr = 0 Application.Wait Now + TimeValue("00:00:02") [C3:C12].Interior.ColorIndex = xlNone ReDim Tabl(0) For Each c In [C3:C12] ReDim Preserve Tabl(Ctr) Tabl(Ctr) = c.Value Ctr = Ctr + 1 Next test End Sub
Daniel
Daniel, J'ai testé à l'instant à l'aide ton classeur. La mie à jour se fait, mais après la colorisation -->Incompatibilité de type sur la ligne Tabl(Ctr) = c.Value Ne serait-ce pas le format de nombre qui nous plante? Pascal