Excel macro événementielle Résolu/Fermé

Question

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

Ivan-hoe · Answer

Bonjour Alain, 
tu peux utiliser le test IsNumeric
Exemple : 
If Not IsNumeric(sel.Value) Then
    MsgBox "Message": sel.Select
Else
    sel.Value = sel.Value * -1
End If

Ivan-hoe · Answer

Pour rendre moins périlleuses les imbrications de If, de boucles, etc., utilise les retraits pour bien aligner les instructions de même niveau. Tu vois dans ton exemple ci-dessous que tout est correct.
I.  
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
        
        If Not IsNumeric(sel.Value) Then
            MsgBox "Montant non numérique": sel.Select
        Else
            sel.Value = sel.Value * -1
        End If
        
        Application.EnableEvents = True
    End If
End Sub

Ivan-hoe · Answer

dans ton second classeur, essaie Edition/Liaisons/ modifier les liaisons (puis sélectionner le classeur en cours, afin que la liaison se fasse sur le classeur-même).

Ivan-hoe · Answer

Désolé. Je te suggère de poster une nouvelle demande. 
I.

Excel macro événementielle

4 réponses

Discussions similaires