Effacer cellule si autre cellule=0

Bonjour,

J'aimerais que lorsque la donnée dans la colonne A est égale à zéro, que la donnée de la colonneB qui est sur la même ligne (a1 avec B1, A2 avec B2,etc.) soit effacé.

J'espère que ma question est assez claire.

Merci beaucoup!

Bonjour,

Tu peux utiliser cette procédure (à placer dans le module de la feuille concernée).

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 1 Then
        If Target = 0 Then Target.Offset(0, 1).ClearContents
    End If
End Sub

A+

Bonjour, Frangy, rox1234

Même à 75 ans, je suis toujours curieux, j'apprécie fortement la réponse de frangy, mais serait-il possible

d'effacer plusieurs colonnes en même temps ? nbre variable

'' Quelle lignes de code modifier ?

Private Sub Worksheet_Change(ByVal Target As Range)
        If Target.Count > 1 Then Exit Sub         
        If Target.Column = 1 Then
            If Target = 0 Then Target.Offset(0, 1).ClearContents
        End If
    End Sub

Bonne journée à tous

Pierrot

Bonjour pierre,

Pour effacer les colonnes B, C et D lorsque la valeur 0 est saisie dans la colonne A :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Count > 1 Then Exit Sub
    If Target.Column = 1 Then
        If Target = 0 Then Target.Offset(0, 1).Resize(1, 3).ClearContents
    End If
End Sub

A+

Merci frangy, c'est impeccable et de plus cela marche bien

Gros bisous et bonne journée

Pierrot

Je vais essayer ça! Un gros merci!!