Sujet Précédent Sujet Suivant

Suppression de cellules automatique

Ttomax Messages postés 64 Statut Membre -  
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   -
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!!

5 réponses

Réponse 1 / 5
Raymond PENTIER Messages postés 71866 Date d'inscription   Statut Contributeur Dernière intervention   17 397
 
SUPPRIMER les cellules ou seulement EFFACER LEUR CONTENU ?

Dans le premier cas, il te faut des macros : tu sais t'en servir ?
0
Réponse 2 / 5
Ttomax Messages postés 64 Statut Membre 1
 
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!
0
Réponse 3 / 5
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
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
0
Réponse 4 / 5
Ttomax Messages postés 64 Statut Membre 1
 
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 ://
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
Réponse 5 / 5
eriiic Messages postés 25847 Date d'inscription   Statut Contributeur Dernière intervention   7 282
 
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
0