Autres [RÉSOLU] Compléter macro pour Suppr cellules

[un internaute]

Bonjour le forum
Lorsque te tape un nombre dans cellule colonne B ça m'affiche la date colonne A
Mais je tape aussi dans cellule colonne C un nombre et tout va bien
Mais lorsque je fais suppr cellule colonne B ça supprime bien la date et cellule colonne B mais pas la cellule colonne C
Il faut "bricoler" Clearcontents
Merci pour vos éventuels retours

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub

  If Not Intersect(Range("B3:B" & Rows.Count), Target) Is Nothing Then
    Application.EnableEvents = False
    If Target <> "" Then
      If Not IsError(Application.Match(CSng(Date), Columns("G"), 0)) Then              'Interdire séance le même jour
        MsgBox "Un Résultat existe à cette date"                                       'Interdire séance le même jour
        Target = ""
      End If
    End If
   Range("G" & Target.Row) = IIf(Target = "", "", Date)
   Range("A" & Target.Row) = IIf(Target = "", "", Application.Proper(Format(Date, "dddd dd mmmm yyyy")))
'    Range("A" & Target.Row) = IIf(Target = "", "", Date)
  ElseIf Not Intersect(Target, Range("A3:A" & Rows.Count)) Is Nothing Then
    Application.EnableEvents = False
    If Not IsDate(Target) Then
      Target = ""
      Range("B" & Target.Row).ClearContents
    End If

    Range("G" & Target.Row) = IIf(Target = "", "", CDate(Cells(Target.Row, 1)))
    Range("A" & Target.Row) = IIf(Target = "", "", Application.Proper(Format(Target, "dddd dd mmmm yyyy")))
  End If
  Application.EnableEvents = True
Range("A1").Select
End Sub

 

[Oneida]

Bonjour,
En dehors de faire afficher/supprimer la date en colonne A, vous saisissez kake chose en colonne A?
Si c'est non, le code peut etre simplifie

 

[un internaute]

Bonjour
Oneida
Non rien d'autre que la date

 

[Oneida]

RE,
OK
Si : "Un Résultat existe à cette date"
Actuellement vous faite une raz: normal ou pas?

 

[un internaute]

Non pas de suppr sauf si je me suis trompé dans les nombres
Si c'est bon ça reste comme ca

 

[Oneida]

Re,
Ca veux dire quoi, si je me suis trompe!

 

[un internaute]

Re,
Ca veux dire quoi, si je me suis trompe!

Si j'ai mal rentré les nombres

 

[un internaute]

Option Explicit

Voilà c'est bon ça fait ce que je veux
Merci à toi
Cordialement

'Cette Macro inscrit la date Automatiquement en tapant le TAUX
'Dans la Formule de la Feuille Cellule C3,si on veut que ça fonctionne Ajouter NBVAL
    Private Sub Worksheet_Change(ByVal Target As Range)
    Dim DerLig As Long
    On Error GoTo Sortie
    Application.EnableEvents = False
    If Target.Count > 1 Then Exit Sub
    DerLig = Range("A" & Rows.Count).End(xlUp).Row
    If Not Intersect(Range("B3:B" & Target.Row), Target) Is Nothing Then
        Application.EnableEvents = False
        If Target <> "" Then
            If Not IsError(Application.Match(CSng(Date), Columns("G"), 0)) Then              'Interdire séance le même jour
                MsgBox "Un Résultat existe à cette date"                                       'Interdire séance le même jour
                Target = ""
            End If
        End If
        Range("G" & Target.Row) = IIf(Target = "", "", Date)
        Range("A" & Target.Row) = IIf(Target = "", "", Application.Proper(Format(Date, "dddd dd mmmm yyyy")))
        If Range("C" & Target.Row) <> "" Then Range("C" & Target.Row) = ""
    ElseIf Not Intersect(Target, Range("A3:A" & DerLig)) Is Nothing Then
        If Not IsDate(Target) Then
            Target = ""
            Range("B" & Target.Row).ClearContents
        End If
        Range("G" & Target.Row) = IIf(Target = "", "", CDate(Cells(Target.Row, 1)))
        Range("A" & Target.Row) = IIf(Target = "", "", Application.Proper(Format(Target, "dddd dd mmmm yyyy")))
    End If
Sortie:
    Application.EnableEvents = True
    Range("A1").Select
End Sub