Macros sous condition dans une autre macro

vvl5 -
Mutumbo - 18 déc. 2013 à 18:01

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

Afficher la suite

A voir également:

Macros sous condition dans une autre macro
Telecharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Excel cellule couleur si condition texte - Guide
Jitbit macro recorder - Télécharger - Confidentialité
Télécharger macro convertir chiffre en lettre excel - Télécharger - Tableur
Excel colorer une cellule sous condition d'une autre cellule - Forum Excel

1 réponse

Réponse 1 / 1

Mutumbo

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.

Discussions similaires

Excel : colorer une cellule sous condition d'une autre ?

Copie automatique tableau Excel sans macro

comment intégrer une fonction SI dans un champ calculé

Transformer un chiffre en lettres dans excel sans macro

Reporter une cellule dans une autre feuille avec condition

Votre réponse

Discussions similaires