MsgBox sur évenement VB Excel
Véro
-
Véro -
Véro -
Bonjour,
Je viens sur ce forum car je veux réaliser une alerte sur une feuille excel qui se déclenche que le chiffre d'une colonne est en dessous de -0.2 ou au dessus de 0.2.
Je tiens à préciser que je suis totalement novice (et nulle) en VB mais on me le demande à mon boulot.
Voilà le script :
Sub alerte()
Dim Dt As Range
Dim Ws As Worksheet
Dim Ok As Boolean
Set Ws = Worksheets("Feuil1")
For Each Dt In Ws.Range("I5:I1000")
If Dt > 0.2 And 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
Et il me dit "erreur d'execution 13 incompatibilité de type"
En vrai il n'aime pas 2 choses : le - et les virgules (j'ai mis des points et changer dans l'option régionale).
Si quelqu'un avait une solution, ce serait merveilleux.
Merci d'avance
Véro
Je viens sur ce forum car je veux réaliser une alerte sur une feuille excel qui se déclenche que le chiffre d'une colonne est en dessous de -0.2 ou au dessus de 0.2.
Je tiens à préciser que je suis totalement novice (et nulle) en VB mais on me le demande à mon boulot.
Voilà le script :
Sub alerte()
Dim Dt As Range
Dim Ws As Worksheet
Dim Ok As Boolean
Set Ws = Worksheets("Feuil1")
For Each Dt In Ws.Range("I5:I1000")
If Dt > 0.2 And 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
Et il me dit "erreur d'execution 13 incompatibilité de type"
En vrai il n'aime pas 2 choses : le - et les virgules (j'ai mis des points et changer dans l'option régionale).
Si quelqu'un avait une solution, ce serait merveilleux.
Merci d'avance
Véro
A voir également:
- MsgBox sur évenement VB Excel
- Liste déroulante excel - Guide
- Word et excel gratuit - Guide
- Comment trier par ordre alphabétique sur excel - Guide
- Comment calculer la moyenne sur excel - Guide
- Déplacer colonne excel - Guide
4 réponses
bonjour
Comme ceci cela devrait être plus efficace
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
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
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