Macro lancé au changement d'une cellule Excel Résolu

Question

Bonjour,  

Je suis en pleine réalisation d'un fichier Excel calculant des adresses IP et j'ai crée une macro qui colorie DES celluleS et leur intègre du texte, malheureusement, cette dernière doit être lancée lorsqu'une cellule précise voit sa valeur modifiée. Comment faire? 

Configuration: Windows 7 / Chrome 8

Meilleures salutations 
damiens1026

Paf · Accepted Answer

Bonsoir,

 B2 est la cellule qui va déclencher après modification.

Dans la feuille concernée:

Private Sub Worksheet_Change(ByVal Target As Range)
 If Not Application.Intersect(Target, Range("B2")) Is Nothing Then

   '********* Appel de la Macro *****************
   Macro1  
 End If
End Sub

adapter la référence de la cellule et le nom de la macro aux besoin

Bonne soirée

michel_m · Answer

Bonjour 

Private Sub Worksheet_Change(ByVal Target As Range) 
 If Target.Address = "$B$2" Then 
    Select Case Target.Value 
        Case Is = 2 
            macro1 
        Case Is = 3 
            macro2 
        Case Is = 4 
            macro3 
    End Select 
 End If 
  
End Sub 

 Michel

damiens1026 · Answer

Sub SelectionClasse()  
Private Sub Worksheet_Change(ByVal Target As Range)  
If Target.Address = "$B$8" Then  
    Select Case Target.Value  
        Case Is = "Il s'agit d'une classe A"  
            ClasseA  
        Case Is = "Il s'agit d'une classe B"  
            ClasseB  
        Case Is = "Il s'agit d'une classe C"  
            ClasseC  
        Case Is = "Il s'agit d'une classe D (multicast)"  
            ClasseD  
    End Select  
 End If  
    
End Sub

J'ai fait cela, malheureusement ça ne marche pas... :(  

-Désolé de mon incompétence, je n'ai jamais fait cela auparavant...- 
Meilleures salutations  
damiens1026

Paf · Answer

Re bonjour,

Ca évolue tellement qu'on ne sait plus ce que tu veux faire !

quelle cellule doit être le déclencheur : B2 ou B8

Pour chaque valeur de cette cellule que doit faire la macro?

A partir de là, on pourra mieux te guider .

A+

Paf · Answer

Ton code parait correct aux vues de ce que tu veux faire, sauf que ... 

tu as inclus le code de Private Sub Worksheet_Change(ByVal Target As Range) 
dans la Sub SelectionClasse()   

Pour simplifier, Private Sub Worksheet_Change(ByVal Target As Range) n'est pas un nom pris au hasard. C'est l'évènement qui se déclenche (tout seul) quand on modifie une cellule de la feuille !

Ton code ne sera pas lancer!

Paf · Answer

Re 

chez moi ça marche! 

Pour reprendre un peu, 
c'est bien à la modification de la cellule B2 que l'on doit lancer ce code?

le contenu de B2 après modification est bien Il s'agit d'une classe A (ou B, C...) à l'espace près, à la casse près?

On ne rentre pas dans ce code ou bien les macros ClasseA (B,C...) ne sont pas lancées?

Paf · Answer

Plusieurs soucis:

le code était dans la Sub Worksheet_SelectionChange et non dans la Sub Worksheet_Change

le code fonctionne bien si on modifie la valeur de B8 par macro .

mais si B8 contient une formule (comme c'est le cas) l'évènement change n'est pas déclenché!

Je gratte pour trouver une solution

Paf · Answer

Re ,

une solution à tester, les commentaires sont dans le fichier joint:

http://www.cijoint.fr/cjlink.php?file=cj201102/cijVtSXyff.xls

dites moi ce qu'il en est!

Paf · Answer

Y a vraiment pas de quoi!

Macro lancé au changement d'une cellule Excel

9 réponses

Discussions similaires

Newsletters