Effacement de cellules

Bonjour,

j'ai des cellules a1:g10 et a12:g21 (si j'écris quelque chose en a1 ca le marque en a12) j'ai déja le script pour ca.

j'aimerai pouvoir controler les cellules qui sont vides de a1:g10 et effacer les correspondantes dans a12:g21

voila, merci

a incorporer dans ce bout de code:

Private Sub Worksheet_Change(ByVal Target As Range)
Target.Select
x = ActiveCell.Row
y = ActiveCell.Column
If Not Application.Intersect(ActiveCell, Range("G9:AT36")) Is Nothing Then
Application.EnableEvents = False
If Not Intersect(Target, Cells(x, y)) Is Nothing Then
       If Now() >= Range("b2") And Now() <= Range("b3") Then
              On Error Resume Next
              If Target.Value = "" Then
                 Target.Selection.ClearComments
                 Range(x, y).Offset(39, 0).Value = ""
              End If
          Cells(x + 39, y) = ActiveCell.Value
          Cells(x, y).AddComment
          Cells(x, y).Comment.Visible = False
          Cells(x, y).Comment.Text Text:="1er semèstre"
               If Target.Value = "" Then
                   Target.ClearComments
               End If
       End If
       If Now() >= Range("b5") And Now() <= Range("b6") Then
             On Error Resume Next
             If Target.Value = "" Then
                Cells(x, y).Selection.ClearComments
                Range(x, y).Offset(74, 0).Value = ""
             End If
          Cells(x + 74, y) = ActiveCell.Value
          Cells(x, y).AddComment
          Cells(x, y).Comment.Visible = False
          Cells(x, y).Comment.Text Text:="2ème semèstre"
               If Target.Value = "" Then
                   Target.ClearComments
               End If
       End If
End If
End If
Target.Select
Application.EnableEvents = True

End Sub

petite modif, ce n'est pas de a1:g10 mais de G9:AT36

bonjour

je vais dire une grosse bêtise, mais bon :

pourquoi utiliser du VBA avec la formule "=" c'est plus simple, ou alors j'ai rien compris et je m'en excuse...

Exemple en pièce jointe

Francky

non, je ne peux pas, vous avez regardé le script je copie les cellules du tableau tout en haut dans celui du milieu si la date du jour est comprise dans le premier semestre et dans le tableau du bas si la date du jour est égale au deuxième semestre.

Bonsoir,

désolé, mais pour le VBA je passe la main,

en espérant que vous aurez une solution

Francky