Execution sur vba

yoyo -
yoyo - 6 juin 2008 à 08:58

Bonjour,
J'ai un problème ma maccro sur vba ne s'éxécute pas automatiquement
j'ai modifié les soldes pour les faire passer la cellule concerné par la maccro en négatif mais le message que je demande ne s'aaffiche pas à part si j'éxécute la maccro moi même.

serait il possible de me corriger cette maccro?svp merci d'avance

Sub alerte()
Dim solde As Integer
Dim alerte As Integer
Dim final As Integer

final = Worksheets("DECEMBRE").Cells(37, 14).Value

If final > 3000 Then
alerte = MsgBox("attention solde de caisse élevé:" & final)

Else
If final < 0 Then
alerte = MsgBox("IMPOSSIBLE SOLDE DE CAISSE NEGATIF, MODIFICATION OBLIGATOIRE")
End If

End If

End Sub

A voir également:

Execution sur vba
Excel compter cellule couleur sans vba - Guide
Mkdir vba ✓ - Forum VB / VBA
Incompatibilité de type vba ✓ - Forum VB / VBA
Erreur 13 incompatibilité de type VBA excel ✓ - Forum Excel
Vba range avec variable ✓ - Forum VB / VBA

1 réponse

Réponse 1 / 1

Ivan-hoe Messages postés 433 Date d'inscription Statut Membre Dernière intervention 309

Bonjour Yoyo,
il faut toujours un évènement pour exécuter une macro. Une macro peut être lancée manuellement par l'utilisateur, ou en appuyant sur un bouton, ou encore appelée par une autre macro.
Ce que tu peux faire, c'est utiliser un évènement de ta feuille, par exemple Worksheet_Calculate : ta macro s'exécutera chaque fois qu'un calcul se fait dans ta feuille.
Clique droit sur l'onglet DECEMBRE, Visualiser le code et colle le code ci-dessous :

Private Sub Worksheet_Calculate()

Dim final As Integer

final = Worksheets("DECEMBRE").Cells(37, 14).Value
If final > 3000 Then
    MsgBox ("attention solde de caisse élevé: " & final)
ElseIf final < 0 Then
    MsgBox ("IMPOSSIBLE SOLDE DE CAISSE NEGATIF, MODIFICATION OBLIGATOIRE")
End If

End Sub

Est-ce que ça arrange ton problème ?
I.

yoyo

bonjour ,

ouah trop bien merci beaucoup c'est exactement ce que je désirais que le programme effectue. Encore merciiiiiiiiiiii !

Discussions similaires

"L'indice n'appartient à la sélection" + VBA

Erreur d'exécution 13 Incompatibilité de type

appliquer une pause dans une macro vba excel

ouverture d'un fichier excel à partir d'un code VBA

Méthode find dans VBA - Recherche de données sous Excel

Votre réponse

Discussions similaires