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