Code MsgBox ne fonctionne pas

Bonjour à tous,

Pouvez vous m'aidez ? Je m'explique

je rentre plusieurs quantités dans différentes cellules puis je les sommes dans une cellule

Je voulais un message d'alerte quand la somme de ma cellule en colonne P n'est pas égale à ma cellule en colonne O (ma vérification qui est une rechecheV d'un autre fichier)

j'ai écris ce code mais rien ne se passe

Private Sub Worksheet_Change(ByVal Target As Range)

For i = 16 To 64

If Target.Address = "$P$" & i Then

If Range("P" & i).Value <> Range("O" & i).Value Then

MsgBox "Attention" & Chr(10) & "Nb kits demandés > Nb kits calculés", vbExclamation

End If

End If

Next i

End Sub

Avez vous une solution ?

Je n'ai pas réussi à trouvé de réponse sur les sujets déjà évoqués.

Merci

Bonjour ,

Essaye de mettre des else affichant un message pour voir laquelle des deux boucles pose probléme

Si tu joint un fichier test , sa peut nous aider à comprendre ^^

Cordialement

Je vous joint le fichier pour mieux comprendre

il y a deux onglets et c'est dans l'onglet Abonnement que je voudrai que ma macro fonctionne.

Merci

J'ai mis en jaune les cellules de vérification de ma somme en colonne P.

Re

Désolé mais j'ai un peu de mal à comprendre la finalité de la macro

Tu souhaite que lors d'un changement de valeur pour une ligne de l'onglet Abonnement (colonne P) , elle compare cette somme à la qté vérif associé (colonne R) et qu'elle affiche un message en cas d'erreur ?

Oui c'est ça et que si les deux valeurs sont différentes un message d'alerte

désolé pour le message privé.

Re

Pas grave pour le message ^^

Essaye de remplacer ta macro par

Private Sub Worksheet_Change(ByVal Target As Range)

ligne = Right(Target.Address, Len(Target.Address) - 3)

If Range("P" & ligne).Value <> Range("R" & ligne).Value Then
    MsgBox "Attention" & Chr(10) & "Nb kits demandés > Nb kits calculés", vbExclamation
End If

End Sub

Cordialement

Super!!!!

je viens de tester ça à l'air de fonctionner

Merci beaucoup ça me fait avancer d'un grand pas

Bonne continuation à toi.

A toi aussi ^^

Par contre je me demandait si c'était normal que ton message d'erreur n'affiche que ">" ? c'est voulu ou faut-il ajouter une condition sur le message ( un pour > et un pour <) ?