Bonjour chers développeurs,
SVP si quelqu'un pourra m'aider à rectifier ce code :
j'ai une checklist qui est composée de 5 étapes , pour chaque étape j'ai des critères à vérifier et pour chaque critère l'utilisateur est confronté à trois réponses :
O: Oui
N: Non
N :NA
Au début toutes les cases à cocher sont en rouge (O, N, NA) ,
et puis dans ces cases je désire que l'utilisateur ne coche qu'une seule case parmi les trois et que à chaque fois il change son choix la nouvelle case s'actualise et l'ancienne est écrasée.
Mais si la case N est cochée , la case Remarque doit se mettre en rouge (MFC)
Puis après si on remplit la remarque la case devient en blanc ( comme quoi c bon l'utilisateur a saisi la remarque seulement dans le cas ouu la réponse est N )
Le difficile c'est que Je veux que si l'utilisateur voit qu'il a mal placé sa réponse et que cette question , sa réponse n'était pas N mais NA ou bien O, je veux que le commentaire se supprime et que la case NA se coche facilement de nouveau et s'actualise
Le code VBA de la feuille est le suivant :
Code vba : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16 Dim TEST As Boolean 'déclare la variable TEST Private Sub Worksheet_Change(ByVal Target As Range) Dim PL As Range 'déclare la variable PL (PLage) Set PL = Range("Etape1,Etape2,Etape3,Etape4,Etape5") 'définit la variabel PL If Target.Cells.Count > 1 Then Exit Sub 'si plusieurs cellules sélectionnées, sort de la procédure If TEST = True Then TEST = False: Exit Sub 'si test est [Vrai], sort de la procédure TEST = True 'définit la variable TEST 'si le changement a lieu ailleurs que dans la plage PL, sort de la procédure If Application.Intersect(Target, PL) Is Nothing Then Exit Sub Cells(Target.Row, 4).Resize(1, 3).ClearContents 'efface les trois cellules de la ligne Target.Value = "X" 'renvoie "X" dans la cellule If Target.Column = 4 Or Target.Column = 6 Then Cells(Target.Row, 7).ClearContents TEST = False 'redéfinit la variable TEST End Sub
Le problème c'est que j'ai plusieurs mises en forme conditionnelle dans la feuille ce qui m'a perturbé et je n'ai pas pu réussir à réaliser le code correctement
Si vous pourriez vérifier la feuille Excel pour voir les mises en forme conditionnelle je vous serez très reconnaissante
essai.xlsm
Partager