Vider les cellules non activées

[gilbert_RGI]

Bonjour,

Dans une plage en ligne j'aimerai vider les cellules de leur contenu si dans une autre cellule un X est inscrit

Merci

 

[Modeste geedee]

Re : Vider les cellules non activées

Bonsour®
il s'agit d'une procédure événementielle à installer dans le module de feuille concernée

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("A2:F11")) Is Nothing Then '---adapter à la plage concernée
        If UCase(Target) = "X" Then ' ---- permet la reconnaissance de x ou X
            Application.EnableEvents = False ' ----inhibition événements pendant le changement
            Range(Cells(Target.Row, 1), Cells(Target.Row, 6)) = ""
            Target = "X"
            Application.EnableEvents = True '---réactivation détection événements
        End If
    End If
End Sub

 

[gilbert_RGI]

Re : Vider les cellules non activées

Merci Modeste geedee

entre temps j'ai trouvé une solution.

je garde le code sous le coude