XL 2010 Effacer des cellules en fonction du choix d'une liste déroulante

fanfan38

XLDnaute Barbatruc

• 3 Février 2019

• #2

Bonjour
De quelle macro tu parles la seule que j'ai trouvé (et modifié)

Sub effaceridentité()
Dim MyValue2 As Byte
MyValue2 = MsgBox("Etes vous sur de vouloir effacer toutes les données sur l'identitée ?", vbYesNo + vbDefaultButton1)
If MyValue2 = vbYes Then
' Sheets("280 A").Select inutile car macro de la feuille 280A
Range("I10:i19").Select
Selection.ClearContents
Range("I21").Select
Selection.ClearContents
Range("I23").Select
Selection.ClearContents
End If
End Sub

et en plus chez moi (excel 2007) ça marche....
A+ François

 

Vote positif 0 Vote négatif

S

Sirberthoult

XLDnaute Occasionnel

• 3 Février 2019

• #3

Bonjour fanfan 38

en fait, la macro que j'avais écrite, je l'ai effacé car elle faisait bugé mon fichier ...

donc page blanche pour trouver une solution à mon problème...

merci.

 

Vote positif 0 Vote négatif

fanfan38

XLDnaute Barbatruc

• 3 Février 2019

• #4

Ce que je comprends pas c'est que, moi, les cellules i26 et i 27 ce masque très bien...
A+ François

 

Vote positif 0 Vote négatif

S

Sirberthoult

XLDnaute Occasionnel

• 3 Février 2019

• #5

je me suis mal exprimé ,

quand je rempli en I25 par exemple "lunette" je dois alors remplir les champs I26 et I27 .
mais si finalement plus tard je passe I25 à "air ambiant" la mise en forme de I26 et I27 disparaît mais pas le contenu des cellules ...or c'est ce que je souhaite.

j’espère avoir été plus clair.

merci

 

Vote positif 0 Vote négatif

job75

XLDnaute Barbatruc

• 3 Février 2019

• #6

Bonsoir Sirberthoult, fanfan38,

Sirberthoult à dit:

j'essaye d'effacer les cellules I26 et I27 de la feuille "280 A" si le choix de la liste déroulante est : nul ou "Air Ambiant" en I25.

Cliquez pour agrandir...

Le problème est très simple, voici le code de la feuille "280 A" du fichier joint :

Code:

 Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, [I25]) Is Nothing Then _
    If [I25] = "" Or LCase([I25]) = "air ambiant" Then [I26:I27] = ""
End Sub

A+

 

Pièces jointes

• Trans(1).xlsm

  63.1 KB · Affichages: 14

Vote positif 0 Vote négatif

S

Sirberthoult

XLDnaute Occasionnel

• 3 Février 2019

• #7

Bonsoir Job75,

C'est très simple, pour ceux qui maîtrise !! et ta solution est surtout parfaite !!

je me doutais que ce n’était pas très long à rédiger mais je ne suis pas assez calé pour l’écrire...

déjà j'étais parti sur Private Sub Worksheet_selection Change ( by ......
et mon code tourné en boucle pour saturer l'ordi...

Bref un grand merci à toi
et à fan fan qui à permis que je reformule .

 

Vote positif 0 Vote négatif