Effacer cellule sous condition

Bonjour,

suis à la recherche d'une formule qui efface 2 cellules si une cellule est renseignée!

exemple :

effacer texte en B6 et texte en C6 si B7 à 1 texte....?

merci d'avance

Galiax

Bonsoir à tous,

Ci joint le fichier!

j’essaie d'effacer le texte en B6 et le texte en C6 si B7 contient du texte et ainsi de suite pour les autres cellules....

j'ai trouvé cette formule, mais elle efface que B6, F6, J6, etc...

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

For Each cell In Range("B6:Z6,B13:Z13,B20:Z20,B27:Z27,B34:Z34,B41:Z41,B48:Z48,B55:Z55")

If cell.Offset(1, 0).Value > 0 Then

cell.Value = ""

End If

Next

End Sub

Cordialement

Bonjour Galiax,

Voici le code qui devrait correspondre à ta demande

Private Sub Worksheet_Change(ByVal Target As Range)
  Dim LigSel As Long, Rng As Range
  LigSel = Target.Row
  ' Vérifier si nous sommes sur une des lignes : 7, 14, 21 ,etc
  If LigSel / 7 = Int(LigSel / 7) Then
    ' Désactiver les évènements le temps de l'effacement
    Application.EnableEvents = False
    ' Définir la 1ère cellule à éffacer
    Set Rng = Target.Offset(-1, 0)
    ' Effacer les cellules du dessus
    Rng.ClearContents
    Rng.Offset(0, 1).ClearContents
    ' Réactiver les évènements
    Application.EnableEvents = True
  End If
End Sub

@+

Bonjour BrunoM45,

Impeccable, un grand merci!

@++