Re : Évaluation des risques
Bonjour Lucas, le Forum
Pour la partie des Boutons Vert, Jaune, Rouge, dans le Userform il faut modifier le code du UserForm2
Private Sub UserForm_Initialize()
btn_vert.Enabled = False
btn_jaune.Enabled = False
btn_rouge.Enabled = False
End Sub
Il y aussi une évènementielle dans la Fiche si le curseur ne se trouve pas dans la plage F8 à I11 :
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
With UserForm2
If Not Intersect(Target, Range("F8:I11")) Is Nothing Then
.btn_jaune.Enabled = True
.btn_rouge.Enabled = True
.btn_vert.Enabled = True
effacer.Enabled = True
Else
.btn_jaune.Enabled = False
.btn_rouge.Enabled = False
.btn_vert.Enabled = False
effacer.Enabled = False
End If
End With
End Sub
Pour les Boutons Vert, Jaune, Rouge et Effacer sur la Feuille elle même, c'est simple ils sont Enabled = False directement dans les propriétés des controls en mode Design.
Pour la "suppression" de colonnes c'est clair que tu vas tout planter ! Essaies simplement an masquant les colonnes...
De toute façon, le mieux serait de contacter l'auteur sur le site où tu as dénicher ce fichier... Dans les propriétés il serait un certain Vincent de chez Toshiba.
Bonne nuit
@+Thierry