Excel : macro évènementielle

Résolu/Fermé
alainjjb Messages postés 762 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 27 août 2022 - 30 juin 2008 à 09:43
alainjjb Messages postés 762 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 27 août 2022 - 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

1 réponse

alainjjb Messages postés 762 Date d'inscription jeudi 17 mai 2007 Statut Membre Dernière intervention 27 août 2022 109
30 juin 2008 à 09:47
Excusez moi je me suis trompé de forum.
Alain
0