Macro lancé au changement d'une cellule Excel

Résolu

Valeur
Macro

damiens1026 Messages postés 563 Date d'inscription Statut Membre Dernière intervention -
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:

Lancer macro automatiquement modification cellule
Suivi de modification word - Guide
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Excel remplir automatiquement une cellule en fonction d'une autre ✓ - Forum Excel
Logiciel gratuit modification pdf - Guide
Comment lancer un programme automatiquement au démarrage de windows - Guide

9 réponses

Réponse 1 / 9

Paf

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 563 Date d'inscription Statut Membre Dernière intervention 32

et comment je dois coder cela?

H_sergio Messages postés 188 Date d'inscription Statut Membre Dernière intervention 7

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 16602 Date d'inscription Statut Contributeur Dernière intervention 3 313

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 16602 Date d'inscription Statut Contributeur Dernière intervention 3 313

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

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 16602 Date d'inscription Statut Contributeur Dernière intervention 3 313

Bonjour Paf

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

damiens1026 Messages postés 563 Date d'inscription Statut Membre Dernière intervention 32

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

Pas de soucis michel !!

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

Réponse 6 / 9

Paf

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

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 563 Date d'inscription Statut Membre Dernière intervention 32

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

Paf

oui, et ça marche ?

damiens1026 Messages postés 563 Date d'inscription Statut Membre Dernière intervention 32

pas le moins du monde :(

Réponse 7 / 9

Paf

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 563 Date d'inscription Statut Membre Dernière intervention 32

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

Paf

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

damiens1026 Messages postés 563 Date d'inscription Statut Membre Dernière intervention 32

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

Réponse 9 / 9

Paf

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 563 Date d'inscription Statut Membre Dernière intervention 32

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 563 Date d'inscription Statut Membre Dernière intervention 32

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

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 563 Date d'inscription Statut Membre Dernière intervention 32

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

Votre réponse

Discussions similaires