Logo GNT
Actualités Tests & Guides Bons Plans
Twitter iPhone pliant OnePlus 11 PS5 Disney+ Orange Livebox Windows 11
Entraide Applications Microsoft Office Excel test MFC2 Daniel C

test MFC2 Daniel C

16 réponses
Avatar
pb
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
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
1 2
Avatar
Daniel.C
Je viens d'avoir un plantage, le site web ayant mis "MX" au lieu d'une
valeur numérique. Le code est modifié comme suit:

Dans "ThisWorkbook" :

Private Sub Workbook_Open()
For Each c In [Feuil1!C3:C12]
ReDim Preserve Tabl(Ctr)
If IsNumeric(c) Then
Tabl(Ctr) = c.Value
Else
Tabl(Ctr) = 0
End If
Ctr = Ctr + 1
Next
End Sub

Dans lemodule Feuil1 :

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)
If IsNumeric(c) Then
Tabl(Ctr) = c.Value
Else
Tabl(Ctr) = 0
End If
Ctr = Ctr + 1
Next
'test
End Sub

Daniel

Je viens de le tester avec XL2003 et XL2007.
Daniel

Ok sur ci joint

http://www.cijoint.fr/cjlink.php?file=cj200906/cijkDTw7qn.xls


"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












Avatar
Péhemme
Sur Vista / Excel 2003.
Sauf mauvaise manip de ma part, j'ai :
Erreur d'execution 9 l'indice n'appartient pas à la selection
sur :
If c.Value > Tabl(Ctr) Then
dans :
Private Sub Worksheet_Change(ByVal Target As Range)
Michel


"Daniel.C" a écrit dans le message de
news:%234wZprM%
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

Ok sur ci joint

http://www.cijoint.fr/cjlink.php?file=cj200906/cijkDTw7qn.xls


"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


















Avatar
Péhemme
J'ai refermé ton fichier sans le sauvegarder.
À la réouverture, il s'est planté dans :
Private Sub Workbook_Open()
sur : Tabl(Ctr) = c.Value
puis, après Réintialiser (bouton carré), il plante comme je l'ai décrit dans
mon précédent message.
Michel


"Daniel.C" a écrit dans le message de
news:%234wZprM%
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

Ok sur ci joint

http://www.cijoint.fr/cjlink.php?file=cj200906/cijkDTw7qn.xls


"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


















Avatar
Daniel.C
Bonjour.
OK, j'ai vu ce qui clochait. Le site web renvoit parfois de l'alpha au
lieu de numérique. "MX" pour mieux ? je ne suis pas très ferré en
actions...
Merci encore.
Daniel

J'ai refermé ton fichier sans le sauvegarder.
À la réouverture, il s'est planté dans :
Private Sub Workbook_Open()
sur : Tabl(Ctr) = c.Value
puis, après Réintialiser (bouton carré), il plante comme je l'ai décrit dans
mon précédent message.
Michel


"Daniel.C" a écrit dans le message de
news:%234wZprM%
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

Ok sur ci joint

http://www.cijoint.fr/cjlink.php?file=cj200906/cijkDTw7qn.xls


"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




















Avatar
isabelle
bonjour Daniel,

sur win xp et xlxp tout fonctionne correctement,

isabelle

Daniel.C a écrit :
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

Ok sur ci joint

http://www.cijoint.fr/cjlink.php?file=cj200906/cijkDTw7qn.xls


"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


















Avatar
Daniel.C
Bonjour et merci, Isabelle.
Daniel

bonjour Daniel,

sur win xp et xlxp tout fonctionne correctement,

isabelle

Daniel.C a écrit :
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

Ok sur ci joint

http://www.cijoint.fr/cjlink.php?file=cj200906/cijkDTw7qn.xls


"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














1 2