Macro déclenchée quand on supprimer plusieurs cellules

Bonjour à tous,

je me permets venir ici demande un peu d'aide car je galère sur quelquechose qui doit être somme toute assez simple à mettre en oeuvre (je pense)

J'ai une macro qui remplit automatiquement la colonne F en fonction de ce que je saisis dans la colonne E.

Ex:

Si dans E3 je mets "ying" ça va inscrire "yang" en F3

Si dans E8 je mets "eau" ça va inscrire "feu" en F8

Si j'efface le contenu de E8, ça efface le contenu de F8

etc.

Là où ça "coince" c'est quand je souhaite effacer plusieurs cellules à la fois.

Par ex. si je séléctionne la plage E4:E10 et que j'efface le contenu, j'aimerais que ça fasse la même chose sur la plage F4:F10, mais je n'y arrive pas.

Pourriez-vous m'aider sur ce point svp ?

Merci par avance.

Bien à vous,

Bonjour,

Pouvez-vous fournir le code de votre macro svp ? Ce sera plus simple pour vous donner l'adaptation nécessaire.

En attendant je pense que c'est la fonction Range.Offset property (Excel) | Microsoft Learn que vous cherchez.

Bonjour,

Bien sûr le voici:

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Count = 1 And Target.Column = 5 Then
Select Case Target.Value

Case "Ying"
Cells(Target.Row, 6) = "Yang"
Case "Eau"
Cells(Target.Row, 6) = "Feu"

Case Else
Cells(Target.Row, 6) = ""

End Select
End If

If Target.Count > 1 And Target.Column = 5 Then
'C'est là que je bloque"
End If

End Sub

Merci par avance !

Bonjour,

Ceci devrait fonctionner.

Option Explicit
Private Sub Worksheet_Change(ByVal Target As Range)

  If Target.Column <> 5 Then Exit Sub
  Application.EnableEvents = False

  If Target.Count = 1 Then
    Select Case Target.Value
    Case "Ying"
      Cells(Target.Row, 6) = "Yang"
    Case "Eau"
      Cells(Target.Row, 6) = "Feu"
    Case Else
      Cells(Target.Row, 6) = ""
    End Select
  End If

  If Target.Count > 1 Then
    Target.Offset(0, 1).ClearContents
  End If
  Application.EnableEvents = True
End Sub

Bonjour,

Ca fonctionne im-pec !

Merci pour cette aide rapide et efficace !

Je vous souhaite un excellent WE :)