OVH Cloud OVH Cloud

activer une macro en permanance

1 réponse
Avatar
Nathalie
Bonjour =E0 tous,

Je souhaiterai dans un fichier excel, activer une macro=20
en permanence. Cette macro recherche les nombres n=E9gatifs=20
d'une colonne X obtenue par calcul et affiche un message=20
d'alerte. Je souhaiterai que lorsque l'utilisateur=20
modifie une des cellule permettant de faire le calcul de=20
ma colonne X et que le r=E9sultat du calcul devient=20
n=E9gatif, l'utilisateur voit le message et puisse corriger=20
sa saisie. Le code de d=E9tection du nombre n=E9gatif est le=20
suivant et pour le moment, je l'ai plac=E9 dans un module :
Sub lance_negatif()

Dim i As Integer

For i =3D 3 To 296
If Cells(i, 24).Value < 0 Then
MsgBox "ATTENTION le reste =E0 lancer devient=20
n=E9gatif !!!"
GoTo termine
End If
Next i
termine:
End Sub

En attendant vos suggestions, merci d'avance =E0 tous
Nathalie

1 réponse

Avatar
CAP2
Salut,

cliques-droit sur l'onglet de la feuille en question et choisis "visualiser
le code".
Puis tu mets ça :

Private Sub Worksheet_Calculate()
Dim i As Integer

For i = 3 To 296
If Cells(i, 24).Value < 0 Then
MsgBox "ATTENTION le reste à lancer devient négatif !!!"
Cells(i, 1).Select
End If

Next
End Sub

A adapter peut-être un peu...

Ca marche ?

CAP2