Lancer une macro au chargement d'une cellule
Résolu
Jojo67200
Messages postés
17
Statut
Membre
-
Jojo67200 Messages postés 17 Statut Membre -
Jojo67200 Messages postés 17 Statut Membre -
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
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:
- Lancer une macro au chargement d'une cellule
- Lancer une application au démarrage windows 10 - Guide
- Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
- Bloquer une cellule excel - Guide
- Qu'est ce qui se lance au démarrage de l'ordinateur - Guide
- Aller à la ligne dans une cellule excel - Guide
8 réponses
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?
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
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 ?????????
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
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...
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