effacer une cellule automatiquement en fonction d'une autre ?

[assniok]

Bonjour a tous,

voila, j'ai un tableau excel qui comporte 2 colonnes, une colonne indice et une colonne date.

J'aimerais que lorsque l'on rentre une date dans la colonne date, la cellule contenant l'indice s'efface automatiquement...

je ne sais pas si cela est faisable... mais toute piste m'interesse...

merci de votre aide.

 

[tototiti2008]

Re : effacer une cellule automatiquement en fonction d'une autre ?

Bonjour assniok,

code à mettre dans la Feuil1 :

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, ActiveSheet.Range("D2:D11")) Is Nothing Then
    If IsDate(Target.Value) Then
        ActiveSheet.Cells(Target.Row, 2).Value = ""
    End If
End If
End Sub

 

[Catrice]

Re : effacer une cellule automatiquement en fonction d'une autre ?

Bonjour,

ci-joint une solution sans macro avec une MFC.
Lorsqu'on tape une date dans la colonne D, la police de la colonne B passe en blanc.
L'indice est toujours là mais invisible...

 

[assniok]

Re : effacer une cellule automatiquement en fonction d'une autre ?

merci a vous 2 pour votre aide, j'ai pris la solution de tototiti2008

par contre sur le même principe, est il possible de faire l'inverse...

je m'explique.

dans mon fichier, avec le code de tototiti, si par mégarde j'efface une date, je ne peux pas retrouver l'indice car il a été éffacé et le retour en arriere est impossible... du coup sur une mauvaise manip je peux perdre definitivement mon indice...

une idée si une solution existe ?

merci encore pour votre aide

 

[tototiti2008]

Re : effacer une cellule automatiquement en fonction d'une autre ?

Re,
Bonjour Catrice,

Dans ce cas, la solution de Catrice est surement plus adaptée. Moi j'efface l'indice, donc après je l'ai oublié...