activer une macro par resultat de cellule

[ktm520ktm520]

Bonjour,
Je voudrai que quand je valide la cellule N15 dans gestion concours cela active une macro dans la feuille horaires
(ex ci 4 dans N15 gestion du concours alors macro planches4 dans horaires)
toute en restent sur la feuille gestion du concours ou quand je vais sur la feuille horaires
il y a plusieurs macros
(ex ci 4 dans N15 gestion du concours alors macro planches4 dans horaires)
(ex ci 5 dans N15 gestion du concours alors macro planches5 dans horaires)
(ex ci 6 dans N15 gestion du concours alors macro planches6 dans horaires)
etc...
merci Manu

 

[ktm520ktm520]

Re : activer une macro par resultat de cellule

mot de passe toto
login toto

 

[ktm520ktm520]

Re : activer une macro par resultat de cellule

dans la feuille horaires
j ai mis
Private Sub Worksheet_Change(ByVal Target As Range)
If Range("AP5") = "4" Then Call planches4
End Sub
ca beug

 

[ROGER2327]

Re : activer une macro par resultat de cellule

Bonjour ktm520ktm520.

Fichier inutilisable pour qui n'a pas le code d'accès.​

Au revoir.


ℝOGER2327
#7489

Mercredi 4 Tatane 141 (Ascension du Mouchard, statisticien, psychiatre et policier - fête Suprême Quarte)
29 Messidor An CCXXII, 6,2208h - blé
2014-W29-4T14:55:47Z

 

[ktm520ktm520]

Re : activer une macro par resultat de cellule

le code toto
mot de passe toto

 

[ktm520ktm520]

Re : activer une macro par resultat de cellule

j ai modifier un code
ca marche mais il faut changer la valeur a la main car ci il y a une formule ca change pas

Private Sub Worksheet_Change(ByVal AP5 As Range)
If AP5.Text = "1" Then
Call planches1
End If
If AP5.Text = "2" Then
Call planches2
End If
If AP5.Text = "3" Then
Call planches3
End If
If AP5.Text = "4" Then
Call planches4
End If
If AP5.Text = "5" Then
Call planches5
End If
If AP5.Text = "6" Then
Call planches6
End If
If AP5.Text = "7" Then
Call planches7
End If
If AP5.Text = "8" Then
Call planches8
End If
If AP5.Text = "9" Then
Call planches9
End If
If AP5.Text = "10" Then
Call planches10
End If
If AP5.Text = "11" Then
Call planches11
End If
If AP5.Text = "12" Then
Call planches12
End If
If AP5.Text = "13" Then
Call planches13
End If
If AP5.Text = "14" Then
Call planches14
End If
End Sub

 

[Regueiro]

Re : activer une macro par resultat de cellule

Bonsoir le Forum,ktm520ktm520
Code Sur La Feuille "Gestion concours"

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim F
 Set F = Sheets("Horaires")
 Tablo = F.Range("AV3:AV16")
  If Not Intersect([N15], Target) Is Nothing And Target.Count = 1 Then
  P = Application.Match(Target, Tablo, 0)
If P < UBound(Tablo) Then
MsgBox LBound(Tablo) & " a " & UBound(Tablo)
Macro = "planches" & P
MsgBox Macro
F.Activate

Application.Run "planches" & P

   End If
   End If
End Sub

Il faut encore mettre une gestion des erreurs

Sur la Feuille horaire
En AV3 mettre 1 jusqu'à 14 en AV13
Correspond à tes 14 macros "planches"P
A+