Supprimer des cellules lors de la section d'une valeur dans une liste déroulante

vgendron

XLDnaute Barbatruc

• 5 Décembre 2014

• #2

Re : Supprimer des cellules lors de la section d'une valeur dans une liste déroulante

bonjour
Sans ton fichier exemple, tu n'auras que ceci: ;-)

Sheets("feuil2").range("A3").clear
sheets("feuil3").range("C81").clear

sinon, il faut passer par l'évènement change de la feuille qui contient ton menu déroulant...

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 5 Décembre 2014

• #3

Re : Supprimer des cellules lors de la section d'une valeur dans une liste déroulante

Bonjour,

Voici un exemple simple tout est marqué dans le fichier.
Si tu pouvais m'en dire plus là dessus.

Merci d'avance,

 

Pièces jointes

• essai.xlsm

  8.8 KB · Affichages: 30
• essai.xlsm

  8.8 KB · Affichages: 34
• essai.xlsm

  8.8 KB · Affichages: 28

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 5 Décembre 2014

• #4

Re : Supprimer des cellules lors de la section d'une valeur dans une liste déroulante

Re

voir PJ:
ouvrir l'éditeur VBA (Alt+F11)
et regarder le code dans la feuille "Feuil1"

 

Pièces jointes

• essai (1).xlsm

  13.8 KB · Affichages: 25
• essai (1).xlsm

  13.8 KB · Affichages: 33
• essai (1).xlsm

  13.8 KB · Affichages: 32

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 5 Décembre 2014

• #5

Re : Supprimer des cellules lors de la section d'une valeur dans une liste déroulante

Parfait merci beaucoup !
Et si je souhaite qu'il me fasse un retour en arrière.

Je m'explique :
1.Je clique sur immeuble il efface les cellules demandées (ça c'est OK)
2.Je choisis société comment faire pour ré-afficher ce qu'il y avait dans les cellules avant effacement ?

Encore merci

 

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 5 Décembre 2014

• #6

Re : Supprimer des cellules lors de la section d'une valeur dans une liste déroulante

Pour cela, il faut avoir sauvegardé les valeurs avant..

Code:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$2" Then
    If Target.Value = "Immeuble" Then
        Sheets("Feuil1").Range("B3:C3").Copy Sheets("Feuil2").Range("A1:B1")
        Sheets("Feuil1").Range("B3:C3").Clear
    End If
    
    If Target.Value = "Société" Then
        Sheets("Feuil2").Range("A1:B1").Copy Sheets("Feuil1").Range("B3:C3")
    End If
End If

End Sub

 

Vote positif 0 Vote négatif

J

julien34

XLDnaute Occasionnel

• 5 Décembre 2014

• #7

Re : Supprimer des cellules lors de la section d'une valeur dans une liste déroulante

Bonjour et merci cependant ceci ne fonctionne pas chez moi !

 

Vote positif 0 Vote négatif

L

laetitia90

XLDnaute Barbatruc

• 5 Décembre 2014

• #8

Re : Supprimer des cellules lors de la section d'une valeur dans une liste déroulante

bonjour tous 🙂🙂
exemple basique a adapter

 

Pièces jointes

• essai (1).xls

  34.5 KB · Affichages: 33
• essai (1).xls

  34.5 KB · Affichages: 34
• essai (1).xls

  34.5 KB · Affichages: 37

Vote positif 0 Vote négatif

vgendron

XLDnaute Barbatruc

• 6 Décembre 2014

• #9

Re : Supprimer des cellules lors de la section d'une valeur dans une liste déroulante

Bonjour,

Bonjour et merci cependant ceci ne fonctionne pas chez moi !

Cliquez pour agrandir...

qu'est ce qui ne fonctionne pas? quel est le message d'erreur?

 

Vote positif 0 Vote négatif