Bonjour Sersi, bonjour le forum,
En pièce jointe ton fichier modifié avec le code ci-dessous :
Sub Rectangleàcoinsarrondis1_Cliquer()
Range("H16").Value = IIf(Range("H16").Value = "", "PANNE", Range("H16").Value & "; PANNE")
End Sub
Sub Rectangleàcoinsarrondis2_Cliquer()
Range("H16").Value = IIf(Range("H16").Value = "", "NETTOYAGE", Range("H16").Value & "; NETTOYAGE")
End Sub
Sub Rectangleàcoinsarrondis4_Cliquer()
Range("H16").Value = IIf(Range("H16").Value = "", "MAINTENANCE", Range("H16").Value & "; MAINTENANCE")
End Sub
Le fichier :
[Édition]
Encore grillé par gmb, que je salue au passage ! Ça devient une habitude...