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

Sirberthoult

XLDnaute Occasionnel
Bonjour le forum,

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. ( comme avec la mise en forme conditionnelle )

Quand j'essaye avec mes maigres connaissances en vba ...if then ... cela bloque et bug tout le document...

Merci d'avance pour votre aide
 

Pièces jointes

  • Trans.xlsm
    54.3 KB · Affichages: 13

fanfan38

XLDnaute Barbatruc
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
 

Sirberthoult

XLDnaute Occasionnel
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
 

job75

XLDnaute Barbatruc
Bonsoir Sirberthoult, fanfan38,
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.
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

Sirberthoult

XLDnaute Occasionnel
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 .
 

Discussions similaires

Statistiques des forums

Discussions
311 711
Messages
2 081 786
Membres
101 817
dernier inscrit
carvajal