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
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
A voir également:
- Lancer une macro au chargement d'une cellule
- Aller à la ligne dans une cellule excel - Guide
- Macro word - Guide
- Bloquer une cellule excel - Guide
- Macro logiciel - Télécharger - Organisation
- Lancer une application au démarrage - Guide
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
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?
Que vient faire la cellule B2 dans l'histoire ????
Comment Votre macro saura que ce sera A1 ou A2 qui devra etre traitee?
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
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
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
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
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 ?????????
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 ?????????
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
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
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
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
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...
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...
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
17 mai 2015 à 13:54
Bonjour f894009
merci de votre aide
Ne cherchait plus j'ai trouvé, encore merci pour votre aide
merci de votre aide
Ne cherchait plus j'ai trouvé, encore merci pour votre aide
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
16 mai 2015 à 17:00
Voila le lien demandé
https://www.cjoint.com/c/EEqrjnbp21v
https://www.cjoint.com/c/EEqrjnbp21v
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
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
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
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
17 mai 2015 à 13:51
Merci de votre aide cela fonctionne on peut considérer le problème comme résolut