Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Shop Recherche
1733 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Fonction "effacer contenu sur changement" sur 2 cellules

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

Fonction "effacer contenu sur changement" sur 2 cellules

n°2279912
lordkilrat​hi
Posté le 21-04-2016 à 15:50:55  profilanswer
 

Bonjour,
 
J'ai un problème pour lequel je ne trouves pas de solution...
 
Voici la description et ce que je souhaites faire avec la Macro dans Excel 2013 :
 
Dans mon chiffrier, 3 colonnes se nommant "Discipline" "Activité" "Item".
 
- Sur changement (par ligne) de "Discipline", je souhaite effacer le contenu/sélection (listes déroulantes) de "Activité" et "Item" [les 2 cellules suivantes]
- Sur changement (par ligne) de "Activité", je souhaite effacer le contenu/sélection (listes déroulantes) de "Item"  [la cellule suivante]
 
Voici le code qui fonctionne : (sur changement de la valeur en "F" = "Discipline".
 
****************************************************************
Private Sub Worksheet_Change(ByVal Target As Range)
     
    Dim KeyCellsF As Range
 
    Set KeyCellsF = Range("F11:F10000" )
     
    If Not Application.Intersect(KeyCellsF, Range(Target.Address)) _
           Is Nothing Then
 
       ActiveCell.Offset(0, 1).ClearContents
       ActiveCell.Offset(0, 2).ClearContents
     
    End If
     
End Sub
****************************************************************
 
Voici ce qui ne fonctionne pas :
 
****************************************************************
Private Sub Worksheet_Change(ByVal Target As Range)
     
    Dim KeyCellsF As Range
    Dim KeyCellsG As Range
 
    Set KeyCellsF = Range("F11:F10000" )
    Set KeyCellsG = Range("G11:G10000" )
     
    If Not Application.Intersect(KeyCellsF, Range(Target.Address)) _
           Is Nothing Then
 
       ActiveCell.Offset(0, 1).ClearContents
       ActiveCell.Offset(0, 2).ClearContents
     
    End If
 
    If Not Application.Intersect(KeyCellsG, Range(Target.Address)) _
           Is Nothing Then
 
       ActiveCell.Offset(0, 1).ClearContents
     
    End If
     
End Sub
****************************************************************
 
Quelqu'un d'entrevous à une solution?
 
Merci
 

mood
Publicité
Posté le 21-04-2016 à 15:50:55  profilanswer
 

n°2279943
patrice337​40
Avec la réponse, c'est facile.
Posté le 22-04-2016 à 00:36:14  profilanswer
 

Bonjour,
 
Ne pas confondre ActiveCell et Target !
 
Cdlt
Patrice


---------------
Cordialement, Patrice

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  Fonction "effacer contenu sur changement" sur 2 cellules

 

Sujets relatifs
[QB64] Saisie d'un fonction dans un programme de mathssomme de plusieurs cellules selon si vides ou pas
Récupérer le contenu d'un champs de type date en phpCakeBox ajout d'une fonction renommer
Fonction(s) pour récupérer chemins + titres de fichiers d'un dossierRecherche nom cellule VS nom onglet
Fonction opendirFonction couper-coller VBA
Arguments de fonction dans une DLL 
Plus de sujets relatifs à : Fonction "effacer contenu sur changement" sur 2 cellules


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR