<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type"> <title></title> </head> <body bgcolor="#ffffff" text="#000000"> Bonjour Apitos,<br> Effectivement, je n'avais pas testé la validité de la saisie. L'erreur est facilement corrigé en ajoutant IsNumeric(XTG) dans la condition initiale.<br> Private Sub Worksheet_Change(ByVal Target As Range)<br> For Each XTG In Target.Cells<br> If<u> <b>IsNumeric(XTG)</b></u> And XTG.Column = 2 And XTG.ID <> "-" Then<br> XTG.ID = "-"<br> XTG.Value = 3 * XTG<br> If XTG = 0 Then XTG.ClearContents<br> End If<br> XTG.ID = ""<br> Next<br> End Sub<br> <br> <br> Apitos a écrit : <blockquote cite="mid:" type="cite"> <pre wrap="">Bonsoir,
Merci à vous tous.
Pour la solution de Corto, lorsqu'il y'a une saisie d'une chaine (Par exmple le titre de la colonne 2), il y'a declenchement d'erreur.
</pre> </blockquote> </body> </html>
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
<title></title>
</head>
<body bgcolor="#ffffff" text="#000000">
Bonjour Apitos,<br>
Effectivement, je n'avais pas testé la validité de la saisie. L'erreur
est facilement corrigé en ajoutant IsNumeric(XTG) dans la condition
initiale.<br>
Private Sub Worksheet_Change(ByVal Target As Range)<br>
For Each XTG In Target.Cells<br>
If<u> <b>IsNumeric(XTG)</b></u> And XTG.Column = 2 And XTG.ID
<> "-" Then<br>
XTG.ID = "-"<br>
XTG.Value = 3 * XTG<br>
If XTG = 0 Then XTG.ClearContents<br>
End If<br>
XTG.ID = ""<br>
Next<br>
End Sub<br>
<br>
<br>
Apitos a écrit :
<blockquote
cite="mid:d67d6289-0213-4004-97ac-7d785487924b@e6g2000prf.googlegroups.com"
type="cite">
<pre wrap="">Bonsoir,
Merci à vous tous.
Pour la solution de Corto, lorsqu'il y'a une saisie d'une chaine (Par
exmple le titre de la colonne 2), il y'a declenchement d'erreur.
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head> <meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type"> <title></title> </head> <body bgcolor="#ffffff" text="#000000"> Bonjour Apitos,<br> Effectivement, je n'avais pas testé la validité de la saisie. L'erreur est facilement corrigé en ajoutant IsNumeric(XTG) dans la condition initiale.<br> Private Sub Worksheet_Change(ByVal Target As Range)<br> For Each XTG In Target.Cells<br> If<u> <b>IsNumeric(XTG)</b></u> And XTG.Column = 2 And XTG.ID <> "-" Then<br> XTG.ID = "-"<br> XTG.Value = 3 * XTG<br> If XTG = 0 Then XTG.ClearContents<br> End If<br> XTG.ID = ""<br> Next<br> End Sub<br> <br> <br> Apitos a écrit : <blockquote cite="mid:" type="cite"> <pre wrap="">Bonsoir,
Merci à vous tous.
Pour la solution de Corto, lorsqu'il y'a une saisie d'une chaine (Par exmple le titre de la colonne 2), il y'a declenchement d'erreur.
