Suppression de cellules automatique Fermé

Question

Bonjour, 

Voila mon problème, je souhaite supprimer les cellules (A37:T37) si D6=1 et (A34:T34)(A35:T35)(A36:T36)(A37:T37) si D6=2

alors merci de votre aide!!

Configuration: Windows 7 / Internet Explorer 9.0

Raymond PENTIER · Answer

SUPPRIMER les cellules ou seulement EFFACER LEUR CONTENU ?

Dans le premier cas, il te faut des macros : tu sais t'en servir ?

Ttomax · Answer

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!

eriiic · Answer

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

Ttomax · Answer

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 ://

eriiic · Answer

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

Suppression de cellules automatique

5 réponses

Discussions similaires