Ceci est une page optimisée pour les mobiles. Cliquez sur ce texte pour afficher la vraie page.

Macro lancée quand changement de valeur d'une cellule

Lisette

XLDnaute Junior
Bonjour à tous !
Je bloque sur un point en VBA....
J'ai un petit formulaire à remplir.

En L15, j'ai une validation de choix dans ma cellule ("OUI"/"NON")
Je souhaiterais que quand on choisit "NON", ça supprime le contenu de certaines cellules.
J'ai tenté ceci :

VB:
  Private Sub Worksheet_Change(ByVal Target As Range)
If Range("L15") = "NON" Then
Range("J18:L21,E18:G21,G22,L22,E24:G27,G28,J24:L27,L28,E30:G33,G34,J30:L33,L34" _
        ).Select
    Range("L34").Activate
    Selection.ClearContents
Range("L15").Activate
End If
End Sub

Et ça me fait planter excel direct !
Pourriez-vous me dire où est mon erreur s'il vous plaît ?
Merciiiii
 
Dernière édition:

Jacky67

XLDnaute Barbatruc
RE...
Autre proposition en Pj
 

Pièces jointes

  • question V1.xlsm
    34.2 KB · Affichages: 6

Lisette

XLDnaute Junior

Tu sais, je fais comme je peux. C'est un fichier excel qui est destiné à être utilisé par des dizaines d'utilisateurs différents, avec des données toujours différentes que je ne peux donc pas lister car en gros, c'est un fichier, des noms différents. De plus, il est beaucoup plus conséquent que la version que je vous ai montrée.

Sinon, merci beaucoup pour ton code, qui fonctione parfaitement, un seul changement que j'ai apporté, j'au mis Offset(1, 0).value="" au lieu de Offset(1, 0).ClearContents, sinon, il me mettait une erreur due aux cellules fusionnées. Mais ceci modifié, c'est PARFAIT ! Merci encore.

Merci @Jacky67 pour tes propositions, mais non, je ne veux pas passer par une validation de données. J'ai des utilisateurs très novices qui, de plus, ne savent pas forcément se rappeler qui est boss de quelle entreprise, justement parce qu'ils changent à chaque fichier te je veux éviter les aller-retour entre les fichiers. Merci encore pour tes propositions
 

James007

XLDnaute Barbatruc

Ravi que tout fonctionne ...

Un grand MERCI pour tes remerciements ...
 
Les cookies sont requis pour utiliser ce site. Vous devez les accepter pour continuer à utiliser le site. En savoir plus…