Complement de macro

Question

Dans cette macro que m'a faite EngueEngue que je remercie car elle fonctionne très bien l'alerte fonctionne si en O5=1 j'aimerais rajouter que si en O7=1 que l'alerte s'active aussi si l'une ou l'autre ont un 1 et non les deux en même temps j'espère avoir été clair cordialement Private Sub Worksheet_Change(ByVal Target As Range) With Sheets("Bon de prepa") If Range("O5") = 1 Then .Shapes("Alerte").Visible = True Else .Shapes("Alerte").Visible = False End If End With...

ketamacanna · Accepted Answer

@teddy Je pense que tu as mal recopié le code. Retente cdt...

Dan · Answer

Merci de bien vouloir éditer le titre du sujet afin qu'il corresponde à ta demande d'aide. Merci de ta participation Crdlt...

ketamacanna · Answer

Un essai Private Sub Worksheet_Change(ByVal Target As Range) With Sheets("Bon de prepa") If Range("O5") = 1 or Range("O7") = 1 Then .Shapes("Alerte").Visible = True Else .Shapes("Alerte").Visible = False End If End With cdt...

Dan · Answer

Re, Il faut voir le critère. si tu dois avoir les deux chiffres 1 dans O5 et O7, alors modifie cette ligne : If Range("O5") = 1 Then par If Range("O5") = 1 and Range("O7")=1 Then Si c'est l'un ou l'autre, vois la réponse de ketmacanna A tous les deux n'oubliez pas de mettre les balises "Code" lorsque vous postez un code sur le forum. C'est plus facile de le lire Amicalement...