Macros sous condition dans une autre macro

Bonjour j'ai pour ambition de faire une macro qui nous met sur une autre feuille selon le résultat de la cellule. :roll:

Je pense avoir réussit tout ce qui à été dit mais je sais pas comment faire pour l'insérer dans une autre macro.:cry: Car le problème c'est que je veut exécuter cette macro juste après l'enregistrement du résultat.

Je vous donne la macro avec les If:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38

Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "G14" Then Select Case Target.Value Case Is = A   Ptouché   End If     If Target.Address = "G14" Then Select Case Target.Value Case Is = X Ptouché   End If   If Target.Address = "G14" Then Select Case Target.Value Case Is = O Ptouché   End If   If Target.Address = "G14" Then Select Case Target.Value Case Is = 0 Peau   End If   If Target.Address = "H10" Then Select Case Target.Value Case Is = Perdu Pover   End If End Sub

---

Que je veux mettre dans la macro suivante:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36

Sub Navalrésult() ' ' Navalrésult Macro ' Macro enregistrée le 10/12/2013 par pedago '     Rows("23:23").Select Range("E23").Activate Selection.Insert Shift:=xlDown Range("G12").Select Selection.Copy Range("F23").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("G13").Select Application.CutCopyMode = False Selection.Copy Range("G23").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("G14").Select Application.CutCopyMode = False Selection.Copy Range("H23").Select Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _ False, Transpose:=False Range("G14").Select Application.CutCopyMode = False Selection.Copy Range("H23").Select Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Range("H26").Select   End Sub

---

Voilà le but c'est de faire un sorte d'affichage pour le résultat, car c'est une bataille navale et je voulais mettre les touchés, à l'eau et Game Over. C'est plus pour le fun (oui je sais il y a des trucs plus drôle ^^ ) et pour apprendre des trucs.

Voilà en espérant que ma question soit assez clair :mrgreen:

Déjà, cette phrase, je la comprend pas :

Citation:

---

Envoyé par vvl_5

Bonjour j'ai pour ambition de faire une macro qui nous met sur une autre feuille selon le résultat de la cellule. :roll:

---

:mrgreen:

Par ailleurs, si tu pouvais mettre les balises CODE dans ton message, ça serait beaucoup plus lisible ;)

Ensuite, cela :

Code:

---

1 2 3 4 5 6 7

If Target.Address = "G14" Then Select Case Target.Value Case Is = A   Ptouché   End If

---

c'est quoi Ptouché ?? un Msgbox ?? je comprend pas trop ce que tu essaye de faire en fait...

Là où tes macros sont positionnées c'est quand tu change la valeur d'une cellule de ta feuille.

Ensuite, peux-tu nous dire brièvement à quoi correspond ta fonction Navalrésult ? Si mes yeux sont bons, tu insère une ligne, et après tu fais des copier/coller valeurs, mais je comprend pas de quoi / pourquoi / où :mrgreen:

Et vu que ton code est pas entre balises, j'ai du mal à lire :mrgreen:

Merci de m'avoir répondu si vite :ccool:

Bon j'ai découvert les macros cette année (et excel aussi en fait ^^, 8O même si je l'avais vu un peu avant) du coup ma maîtrise de la rédaction d'une macro est limité :lol:

Donc en gros j'ai une macro qui enregistre le résultat avec la ligne et la colonne visée. "Navalrésult"

Et je voulais que selon le résultat la feuille change pour montrer une feuille avec écrit dessus soit "Touché"; "A l'eau"; "Game Over". Et donc j'ai fait trois macros qui change la feuille ("Ptouché" renvoi à la feuille "Touché"; "Peau" => "A l'eau"; "Pover" => "Game Over". Oui je sais c'est pas très logique :aie::mouarf: et si en plus j'explique pas ça aide pas ^^)

Et sur internet j'ai trouvé comment faire une macro avec condition

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Sub Worksheet_Change(ByVal Target As Range) If Target.Address = "G14" Then Select Case Target.Value Case Is = A   Mamacro   End If     End Sub

---