Aide + explication If Not Intersect

Question

Je bricole un fichier Excel depuis un moment et j'ai pas mal obtenu d'aide sur ce forum, alors je reviens à la charge, car je bloque sur un truc ! Dans le fichier en pièce jointe, quand on clique sur une cellule de la colonne M, la colonne N récupère la valeur de A16 Mon problème étant que dans cette colonne M, on rentre des informations et si on vient a recliquer sur une cellule de la colonne M, celle-ci s'efface. Comment faire pour que le contenu de la cellule sélectionnée en colonne M ne s'efface pas si on reclique dessus ? D'avance merci pour votre aide ! voici le fichier et le code : Private Sub Worksheet_SelectionChange(ByVal Target As Range) ' Application.ScreenUpdating = False ' 'on affecte le numéro de ligne sélectioné à la cellule' If Target.Count = 1 Then If Not Intersect(Target, Range("C9:R162")) Is Nothing Then Range("BA9").Value = Target.Row If Not Intersect(Target, Union(Range("D9:D162"), Range("I9:J162"))) Is Nothing Then Target = IIf(Target = "", 1, "") If Not Intersect(Target, Range("E9:H162")) Is Nothing Then If Target = "" Then Range("E" & Target.Row & ":h" & Target.Row).Value = "" If Target = 1 Then Range("G" & Target.Row).Value = 1 Target = IIf(Target = "", 1, "") End If Dim dval If Not Intersect(Target, Range("M9:M162")) Is Nothing Then Target.Offset(0, -1) = Range("A16").Value Target = dval End If If Not Intersect(Target, Range("O9:O162")) Is Nothing Then Target.Offset(0, -1) = Range("A16").Value End If End If Application.ScreenUpdating = True ' End Sub...

Invité · Accepted Answer

Votre problème ce situe sur ces lignes pour moi If Not Intersect(Target, Range("M9:M162")) Is Nothing Then Target.Offset(0, -1) = Range("A16").Value Target = dval End If La première vérifie que l'intersection de la cellule sélectionnée et de la plage désignée soit bien ok Et on inscrit ce que contient la variable "dval" (je ne vois pas ou elle prends sa valeur) dans la cellule sélectionnée Perso, j'aurais mis un test If Target ="" then Target = dval @+...