Macro lancé au changement d'une cellule Excel

Résolu/Fermé

Valeur
Macro

damiens1026 Messages postés 553 Date d'inscription jeudi 5 novembre 2009 Statut Membre Dernière intervention 10 avril 2013 - Modifié par damiens1026 le 21/02/2011 à 10:20
nonimus - 3 déc. 2015 à 04:50

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?

Meilleures salutations
damiens1026

A voir également:

Worksheet_change sur une cellule
Excel colorer une cellule sous condition d'une autre cellule ✓ - Forum Excel
Aller à la ligne dans une cellule excel - Guide
Verrouiller cellule excel - Guide
Le fichier contient le nombre de voyageurs dans 3 gares. dans la cellule b5, saisissez une formule qui calcule le total et se met à jour si on change une valeur du tableau. quel total obtenez-vous ? quelle formule avez-vous saisie ? ✓ - Forum Excel
Si cellule contient texte alors ✓ - Forum Excel

9 réponses

Réponse 1 / 9

Paf
6 févr. 2011 à 20:14

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

damiens1026 Messages postés 553 Date d'inscription jeudi 5 novembre 2009 Statut Membre Dernière intervention 10 avril 2013 32
10 févr. 2011 à 13:58

et comment je dois coder cela?

H_sergio Messages postés 185 Date d'inscription mardi 27 avril 2010 Statut Membre Dernière intervention 29 février 2016 8
10 févr. 2011 à 15:51

merci à Paf !!

'ça donne ceci :tu vas dans visual basic , feuil1 et tu colles ceci : tu verras le fonctionnement

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("B2")) Is Nothing Then

'********* Appel de la Macro *****************
macro_coleur
End If
End Sub

Sub macro_coleur()
'ici la cellule va devenir jaune lorsque je l'aurai modifiée et fait "entrée"
stop
'je mets un stop ici , tu utilises la touche F8 par accoup pour faire avancer la macro , ça vaut mieux que des grandes explications , tu supprimes le stop et ça fonctionne en auto

Range("B2").Select
With Selection.Interior
.ColorIndex = 6
.Pattern = xlSolid
End With

End Sub

Réponse 3 / 9

michel_m Messages postés 16595 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 27 mai 2023 3 294
Modifié par michel_m le 21/02/2011 à 09:59

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

michel_m Messages postés 16595 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 27 mai 2023 3 294
Modifié par michel_m le 21/02/2011 à 10:11

S'il s'agit simplement de colorier suivant la valeur (utilité xlpattern ?: voir aide en ligne)

Private Sub Worksheet_Change(ByVal Target As Range)   
 If Target.Address = "$B$2" Then   
    Select Case Target.Value   
        Case Is = 2   
            Target.Interior.ColorIndex = 6 'jaune   
        Case Is = 3   
            Target.Interior.ColorIndex = 3 'rouge   
        Case Is = 4   
            Target.Interior.ColorIndex = 4 'vert  
        Case Else 
            Target.Interior.ColorIndex = -4142 'transparent 
    End Select   
 End If   
    
End Sub

Réponse 5 / 9

Paf
21 févr. 2011 à 11:05

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+

michel_m Messages postés 16595 Date d'inscription lundi 12 septembre 2005 Statut Contributeur Dernière intervention 27 mai 2023 3 294
21 févr. 2011 à 11:08

Bonjour Paf

effectivement...
Je te laisse le bébé et excuses mon incruste :-)

damiens1026 Messages postés 553 Date d'inscription jeudi 5 novembre 2009 Statut Membre Dernière intervention 10 avril 2013 32
21 févr. 2011 à 11:13

oui, toutes mes excuses, la cellule B2 était un exemple.

La macro doit se lancer au changement de la cellule B8 et doit lancer la macro ClasseA si B8 vaut "Il s'agit d'une classe A" ou la macro ClasseB si B8 vaut "Il s'agit d'une classe B" et ainsi de suite...

Paf
21 févr. 2011 à 11:15

Pas de soucis michel !!

Et puis j'apprends toujours au contact des spécialistes !

Réponse 6 / 9

Paf
Modifié par Paf le 21/02/2011 à 11:26

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
21 févr. 2011 à 11:33

pour générer Private Sub Worksheet_Change(ByVal Target As Range), sous vba, dans l'explorateur de projet double clic sur la feuille concernée, dans la fenêtre qui s'ouvre selectionne Worksheet dans la "case" en haut à gauche, puis change en haut à droite.

Private Sub Worksheet_Change(ByVal Target As Range) est alors généré, il n'y a plus qu'à ..

damiens1026 Messages postés 553 Date d'inscription jeudi 5 novembre 2009 Statut Membre Dernière intervention 10 avril 2013 32
21 févr. 2011 à 14:36

donc en fait jarrive a ca: https://imageshack.com/
?

Paf
21 févr. 2011 à 16:22

oui, et ça marche ?

damiens1026 Messages postés 553 Date d'inscription jeudi 5 novembre 2009 Statut Membre Dernière intervention 10 avril 2013 32
21 févr. 2011 à 21:45

pas le moins du monde :(

Réponse 7 / 9

Paf
22 févr. 2011 à 10:26

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?

damiens1026 Messages postés 553 Date d'inscription jeudi 5 novembre 2009 Statut Membre Dernière intervention 10 avril 2013 32
23 févr. 2011 à 15:02

http://etml.educanet2.ch/cin1014a/muff/fichiers/Calcul%20des%20IP.xlsm

Paf
Modifié par Paf le 23/02/2011 à 18:09

je n'ai pas 2007, peux tu le remettre enregistré au format 2003 ?

damiens1026 Messages postés 553 Date d'inscription jeudi 5 novembre 2009 Statut Membre Dernière intervention 10 avril 2013 32
Modifié par damiens1026 le 24/02/2011 à 08:20

http://etml.educanet2.ch/cin1014a/muff/fichiers/Calcul%20des%20IP.xls

Réponse 9 / 9

Paf
24 févr. 2011 à 12:00

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!

damiens1026 Messages postés 553 Date d'inscription jeudi 5 novembre 2009 Statut Membre Dernière intervention 10 avril 2013 32
24 févr. 2011 à 13:24

la macro s'execute cette fois mais je n'ai pas compris ce que vous avez changé, histoire que je fasse la même chose dans le fichier XLSX Office 2007...

damiens1026 Messages postés 553 Date d'inscription jeudi 5 novembre 2009 Statut Membre Dernière intervention 10 avril 2013 32
24 févr. 2011 à 13:28

Mais en fait, comme l'utilisateur modifie la valeur de B6, ne pourrait on pas "conditionner" la macro à s'exécuter lors du changement de cette cellule?

Paf
24 févr. 2011 à 13:34

dans le classeur 2007 rajouter au niveau feuille:

Private Sub Worksheet_Calculate()
Cible = Range("B8").Value
If Cible <> Range("A25").Value Then
Select Case Cible
        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
    Range("A25").Value = Cible
 End If
End Sub

supprimer les Sub Worksheet_Change et Worksheet_SelectionChange si elles existent

et normalement (?) ça devrait fonctionner .

Bonne suite

damiens1026 Messages postés 553 Date d'inscription jeudi 5 novembre 2009 Statut Membre Dernière intervention 10 avril 2013 32
24 févr. 2011 à 14:15

yes, ca fontionne, BRAVO!!!

Discussions similaires

Exécuter une macro quand la cellule change

Exécuter une macro lorsque la valeur d'une cellule change.

Lancer une macro lorsque une cellule contient une valeur précise

Liste déroulante en fonction d'une autre cellule

Excel: Masquer lignes en fonction de critères

Lancer une macro excel en fonction de la valeur d'une cellule

Discussions similaires

Newsletters