Suppression de cellules automatique

SUPPRIMER les cellules ou seulement EFFACER LEUR CONTENU ?

Dans le premier cas, il te faut des macros : tu sais t'en servir ?

supprimer les cellules serait mieu pour moi maintenant si je peux qu'éffacer leur contenu, je m'en contenterais ^^

oui je sais utiliser les macros, enfin quelques unes ^^ merci!

Bonjour tout le monde,

Supprimer le contenu devrait être suffisant :

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, [D6]) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Select Case [D6]
    Case 1
        [A37:T37].ClearContents
    Case 2
        [A34:T37].ClearContents
    End Select
    Application.EnableEvents = True
End Sub

eric

Bonjour et merci Eric, donc ta formule fonctionne impec, seulement g un soucis, car en fait ma condition dépend d'une sélection et lorsque ma conditon dans D6 est validée par ma sélection, la formule ne marche pas???

Alors que la condition se trouve bien dans la case....

Alors j'ai essayé plein de chose ( copie de valeur...) mais rien, je sèche ://

Bonsoir,

Si c'est une formule en D6 son changement ne génère pas d'évènement Change (seulement une saisie dans la cellule le fait).

Utilise l'évènement Calculate :

Private Sub Worksheet_ Calculate() 
    Select Case [D6] 
    Case 1 
        [A37:T37].ClearContents 
    Case 2 
        [A34:T37].ClearContents 
    End Select 
End Sub

ou bien l'évènement Worksheet_SelectionChange(ByVal Target As Range)

eric

PS :
<ital>et lorsque ma conditon dans D6 est validée par ma sélection...
Si ici tu es en vba tu peux y mettre le code