Lancer une macro au chargement d'une cellule

Résolu/Fermé
Jojo67200 Messages postés 17 Date d'inscription mercredi 1 avril 2015 Statut Membre Dernière intervention 21 février 2016 - 16 mai 2015 à 11:11
Jojo67200 Messages postés 17 Date d'inscription mercredi 1 avril 2015 Statut Membre Dernière intervention 21 février 2016 - 17 mai 2015 à 13:54
Bonjour a tous et toutes

Voila je suis en train de chercher une solution pour activer une cellule avec une macro qui prend en charge deux cellules
Je voudrais que la macro choisit entre deux cellule si dans $a$1 il y a un G elle lance la macro StartBlink mais si le G est dans la cellule $a$2 il faudrait que la macro soit lancer dans la cellule $a$2 cela va me servir a faire clignoter soit la cellule a 1 si un G soit la cellule a2 si il y a G j'ai trouvé sur le forum la fonction
Private sub Worksheet_Change( ByVal Target As Range)
if Not application.Intersect(Target, Range("B2")) Is Nothing Then
Macro1
End If
End Sub
cela fonctionne que sur une cellule il faudrait que cela marche soit sur A1 soit sur A2 selon le résultat obtenu dans les deux cellules

Merci a vous de votre aide
A voir également:

8 réponses

f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
16 mai 2015 à 11:24
Bonjour,

Que vient faire la cellule B2 dans l'histoire ????

Comment Votre macro saura que ce sera A1 ou A2 qui devra etre traitee?
0
Jojo67200 Messages postés 17 Date d'inscription mercredi 1 avril 2015 Statut Membre Dernière intervention 21 février 2016
16 mai 2015 à 13:24
Bonjour f894009
Merci de vous pencher sur mon problème
Voila Voila mon problème est le suivant dans un jeux il n'y a qu'un gagnant
Je voudrais que la cellule G9 clignote lorsque le gangnant sera inscrit dans la cellule selon les points accumulés le gagnant sera celui qui aura le plus de points ce qui va afficher un G dans la cellule F8 ou F9 si le G apparaît dans la cellule F8 la cellule G9 clignote ce que je cherche a faire ces que si la cellule F9 reçoit le G que celle-ci fasse clignoter la cellule avec le nom du Gagnant.
Si le P de la cellule F8 est remplacé par un G le nom change dans la cellule G9 et vis et versa mais la cellule ne clignote pas si le G est en F9
Cellule E F G
FEDELE José P
FRUHAUF René G FRUHAUF René
ces bien la mon problème
Fonction
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("F8")) Is Nothing Then

'********* Appel de la Macro *****************
StartBlink
End If
End Sub
Module 1
Public RunWhen As Double

Sub StartBlink()
If Range("F8") = "G" Then

If Range("G9").Interior.ColorIndex = 4 Then
Range("G9").Interior.ColorIndex = 36
Else
Range("G9").Interior.ColorIndex = 4
End If
RunWhen = Now + TimeSerial(0, 0, 1)
Application.OnTime RunWhen, "StartBlink", , True
End If
End Sub

Sub StopBlink()
Range("G9").Interior.ColorIndex = xlAutomatic
Application.OnTime RunWhen, "StartBlink", , False
End Sub

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

'********* Appel de la Macro *****************
StartBlink
End If

End Sub
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
16 mai 2015 à 14:24
Re,

si la cellule F9 reçoit le G que celle-ci fasse clignoter la cellule avec le nom du Gagnant. et elle est ou cette cellule ?????????
0
Jojo67200 Messages postés 17 Date d'inscription mercredi 1 avril 2015 Statut Membre Dernière intervention 21 février 2016
16 mai 2015 à 14:52
Re bonjour
merci de m'aider

Que ce soit la cellule F8 qui reçoit le G ou la cellule F9 ses toujours en G9 que figure le nom du gagnant
je pensais faire basculer le G en fonction des points du joueur en claire
si F8> F9 alors G dans la cellule F8 et P dans la cellule F9
si F9>F8 alors G en F9 et P en F8 voila
en F9 il y a une formule qui fait basculer la lettre P ou G dans la cellule F9 a la formule suivante =si(f8="";"";si(f8="G";"P";"G"))

je ne sais pas comment faire pour vous envoyer un fichier Excel joint avec un model de ce que je voudrais arriver a faire
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
16 mai 2015 à 16:26
Re,

Pour transmettre un fichier,
il faut passer par un site de pièce jointe tel que cjoint.com

Allez sur ce site : https://www.cjoint.com/
Clic sur parcourir,
Cherche ton fichier,
clic sur ouvrir,
Clic sur "Créer le lien cjoint",
Copier le lien,
Revenir ici le coller dans une réponse...
0
Jojo67200 Messages postés 17 Date d'inscription mercredi 1 avril 2015 Statut Membre Dernière intervention 21 février 2016
17 mai 2015 à 13:54
Bonjour f894009
merci de votre aide
Ne cherchait plus j'ai trouvé, encore merci pour votre aide
0
Jojo67200 Messages postés 17 Date d'inscription mercredi 1 avril 2015 Statut Membre Dernière intervention 21 février 2016
16 mai 2015 à 17:00
Voila le lien demandé
https://www.cjoint.com/c/EEqrjnbp21v
0
f894009 Messages postés 17185 Date d'inscription dimanche 25 novembre 2007 Statut Membre Dernière intervention 15 avril 2024 1 702
17 mai 2015 à 11:54
Bonjour,

Si p dans une cellule, devient P et G dans l'autre cellule et vis et versa
idem pour g, stop clignotant si une cellule vide ou autre lettre que G ou P
fichier modifie: https://www.cjoint.com/c/EErmhWPQe9Y
0
Jojo67200 Messages postés 17 Date d'inscription mercredi 1 avril 2015 Statut Membre Dernière intervention 21 février 2016
17 mai 2015 à 13:51
Merci de votre aide cela fonctionne on peut considérer le problème comme résolut
0