VBA améliorer le déclenchement msgbox

Bonjour,

Voilà ma macro qui compare deux cellules avec un msgbox.

Serait-il possible d'avoir ces msgbox qui apparaissent à la fin de ma saisie et non à chaque saisi comme c'est le cas en ce moment.

En fait, j'aimerais que tous les mssbox apparaissent une fois que j'aurais saisi ma cellule dans la colonne AB et validé par exemple par un tab ou entrée...

Ou tout simplement par un bouton de validation...

Vous remerciant de votre retour.

Private Sub Worksheet_Change(ByVal Target As Range)

If Range("G6").Value = Range("H6").Value Then MsgBox "DAY ROTATIONS FACTOR IDENTICAL !"

If Range("AF6").Value = Range("AE6").Value Then MsgBox "VA ROTATION IDENTICAL !"

If Range("O6").Value > Range("P6").Value Then MsgBox "EXTENSION HIGH !"

If Range("O6").Value < Range("P6").Value Then MsgBox "EXTENSION LOW !"

If Range("O6").Value = Range("P6").Value Then MsgBox "EXTENSION IDENTICAL !"

If Range("W6").Value > Range("X6").Value Then MsgBox "POC HIGH !"

If Range("W6").Value < Range("X6").Value Then MsgBox "POC LOW !"

If Range("W6").Value = Range("X6").Value Then MsgBox "POC IDENTICAL !"

If Range("AE6").Value > Range("AF6").Value Then MsgBox "POC HIGH !"

If Range("AE").Value < Range("AF6").Value Then MsgBox "POC LOW !"

If Range("AE6").Value = Range("AF6").Value Then MsgBox "POC IDENTICAL !"

End Sub

Bonjour

Essaie ça , à lancher par un bouton :

Sub ess()
    mess = ""
    If Range("G6").Value = Range("H6").Value Then
        mess = mess & "DAY ROTATIONS FACTOR IDENTICAL !" & Chr(13)
    End If
    'If Range("AF6").Value = Range("AE6").Value Then MsgBox "VA ROTATION IDENTICAL !"
    If Range("O6").Value > Range("P6").Value Then
        mess = mess & "EXTENSION HIGH !" & Chr(13)
    End If
    If Range("O6").Value < Range("P6").Value Then
        mess = mess & "EXTENSION LOW !" & Chr(13)
    End If
    If Range("O6").Value = Range("P6").Value Then
        mess = mess & "EXTENSION IDENTICAL !" & Chr(13)
    End If
    If Range("W6").Value > Range("X6").Value Then
        mess = mess & "POC HIGH !" & Chr(13)
    End If
    If Range("W6").Value < Range("X6").Value Then
        mess = mess & "POC LOW !" & Chr(13)
    End If
    If Range("AE6").Value > Range("AF6").Value Then
        mess = mess & "POC HIGH !" & Chr(13)
    End If
    If Range("AE6").Value < Range("AF6").Value Then
        mess = mess & "POC LOW !" & Chr(13)
    End If
    If Range("AE6").Value = Range("AF6").Value Then
        mess = mess & "POC IDENTICAL !" & Chr(13)
    End If

    MsgBox mess

End Sub

Bye !

Bonjour gmb,

C'est à dire que je dois coller le code dans un module et créer un bouton avec lequel je lancerais la macro à ma convenance?

domy a écrit :

C'est à dire que je dois coller le code dans un module et créer un bouton avec lequel je lancerais la macro à ma convenance?

Mais tu peux aussi joindre ton fichier et je m'en chargerai...

Bye !

J'ai collé la macro dans un module et au lancement j'ai un message erreur : erreur de compilation: Erreur de syntaxe

Alors, joins ce fichier...

Bye !