 |
|
|
|
Configuration: Windows XP Firefox 2.0.0.11
bonjour
Comme ceci cela devrait être plus efficace If Dt > 0.2 Or Dt < -0.2 And Dt <> "" Then MsgBox "Delta inférieur à -20% ou supérieur à 20%" ' Shell "WScript " & """C:\Documents and Settings\Veronique.Hecker\Bureau\alerte.vbs"""' End If Next Dt Le savoir est la seule matière qui s'accroît quand on la partage. (Socrate) |
Bonjour
Merci de votre aide. Alors voilà j'ai essayé, il est vrai que c'est mieux comme ça, mais le message d'erreur 13 reste là quand même "incompatibilté de type" et je ne sais pas pourquoi. Dans mon fichier excel j'ai fait attention au format de cellule. Sub alerte() Dim Dt As Range Dim Ws As Worksheet Dim Ok As Boolean Set Ws = Worksheets("Feuil1") For Each Dt In Ws.Range("I2:I1000") If Dt > 0.2 Or Dt < -0.2 And Dt <> "" Then If Not Ok Then MsgBox "Delta inférieur à -20% ou supérieur à 20%" ' Shell "WScript " & """C:\Documents and Settings\Veronique.Hecker\Bureau\alerte.vbs"""' Ok = True End If End If Next Dt End Sub Merci beaucoup Véro |
bonjour
J'ai testé ton code et il fonctionne sur ma machine sans rien changer. Il faut voir quelle est la ligne qui bloque pour remédier au problème. Le savoir est la seule matière qui s'accroît quand on la partage. (Socrate) |
Bonjour,
Dommage que cela ne fonctionne pas tout à fait chez moi. Cela fonctionne la msbox s'affiche mais à la fin il me donne quand même le message d'erreur ce qui est quand m^me génant Si tu as une autre solution Merci d'avance Véro |
| 19/02 09h24 | Problème de MsgBox en VBA Excel | Programmation | 19/02 16h45 | 5 |
| 15/02 09h44 | [VBA-Excel]évenement dès que la valeur change | Programmation | 15/02 14h09 | 2 |
| 25/01 13h07 | affichage tableau dans MsgBox VBA excel | Programmation | 25/01 13h58 | 1 |
| 25/01 12h54 | Probleme affichage MsgBox VBA excel | Bureautique | 25/01 17h41 | 1 |
