Excel : macro évènementielle [Résolu/Fermé]

Messages postés
719
Date d'inscription
jeudi 17 mai 2007
Statut
Membre
Dernière intervention
3 juin 2019
- - Dernière réponse : alainjjb
Messages postés
719
Date d'inscription
jeudi 17 mai 2007
Statut
Membre
Dernière intervention
3 juin 2019
- 30 juin 2008 à 09:47
Bonjour,

je viens de mettre dans mon classeur une macro événementielle permettant de passer le montant saisi en colonne "M" en négatif si la valeur de la colonne "F" est "Dépense". Tout fonctionne très bien lorsque la donnée saisie dans "M" est numérique. Dans le cas contraire la macro se plante. Pourriez-vous m'aider à insérer dans cette macro un test de numéricité de l'info saisie en "M" avec envoi d'un message si non numérique ?

Merci d'avance
Alain

La macro :

Private Sub Worksheet_Change(ByVal sel As Range)
Dim colm As Integer ' colonne montant
Dim colt As Integer ' colonne type
colm = Asc("M") - 64 ' colonne montant
colt = Asc("F") - 64 ' colonne type
If sel.Column = colm And Cells(sel.Row, colt) = "Dépense" Then
Application.EnableEvents = False
sel.Value = sel.Value * -1
Application.EnableEvents = True
End If
End Sub
Afficher la suite 

1 réponse

Messages postés
719
Date d'inscription
jeudi 17 mai 2007
Statut
Membre
Dernière intervention
3 juin 2019
58
0
Merci
Excusez moi je me suis trompé de forum.
Alain