Afficher un message box si....

[isa44]

Bonjour , je butte sur l'affichage d'un messagebox si dans la ligne que je veux supprimer en cellule ("G") j'ai P.A.S

Voici le code avec l'erreur en rouge
[CODESub Macro15() ' Supprimer saisie sélectionnée
If MsgBox("Voulez vous supprimer cette saisie ?", vbQuestion + vbYesNo, "") = vbNo Then Exit Sub
Dim ligne As Long

ligne = ActiveCell.Row
If range("G") = "P.A.S" Then MsgBox("Attention rajouter la somme supprimée en case K20", vbOK, "") = vbOK
range("A" & ligne & ":M" & ligne).ClearContents
range("O" & ligne).ClearContents

range("A5").Select

End Sub

][/CODE]

 

[Temjeh]

Re : Afficher un message box si....

Bonjour

Sans avoir le tout il manque quelques choses ici:

If range("G") ...le no de ligne ou la variable de la ligne

A+

Temjeh

 

[isa44]

Re : Afficher un message box si....

Oui, en fait l'action peut s'effectuer sur n'importe quel ligne afin de la supprimer.
Mais si elle contient" P.A.S" elle doit afficher un messagebox avant de s'éxécuter

 

[Temjeh]

Re : Afficher un message box si....

Rebonjour

Alors?

Il te manque le no de ligne à y mettre! Le G seul n'indique que la colonne

If range("G"& ligne)

Temjeh

 

[isa44]

Re : Afficher un message box si....

Celà va de la ligne 15 à 60000 qui est variable selon la ligne choisie.
Comment l'indiquer ?

 

[Temjeh]

Re : Afficher un message box si....

Peut-être:

ligne = ActiveCell.Row
If Range("G" & ligne).Value = "P.A.S" Then MsgBox ("Attention rajouter la somme supprimée en case K20")
range("A" & ligne & ":M" & ligne).ClearContents
range("O" & ligne).ClearContents
A+

Temjeh

 

[isa44]

Re : Afficher un message box si....

Ok merci celà fonctionne.
La solution trouvée celà me parait simple, j'ai honte .....