Macros sous condition dans une autre macro Fermé

Question

Bonjour j'ai pour ambition de faire une macro qui nous met sur une autre feuille selon le résultat de la cellule. 

Je pense avoir réussit tout ce qui à été dit mais je sais pas comment faire pour l'insérer dans une autre macro. Car le problème c'est que je veut exuter cette macro juste après l'enregistrement du résultat. 

Je vous donne la macro avec les If: 

"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: 

"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 :D



Configuration: Windows XP / Chrome 31.0.1650.63

Mutumbo · Answer

Salut.

Non pas clair.

Tu ne peux pas imbriquer les sub.
Façon
sub

sub
end sub

end sub

Mais tu peux en appeler un depuis un autre.

exemple :

sub prog_principal()
   ...
   prog_secondaire
   ...
end sub

sub prog_secondaire()
   ...
   ...
end sub

Le programme principal exécutera le secondaire, puis reviendra dérouler la suite.

Macros sous condition dans une autre macro

1 réponse

Discussions similaires

Newsletters