activer une macro par resultat de cellule

ktm520ktm520

XLDnaute Junior
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
 

ROGER2327

XLDnaute Barbatruc
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

XLDnaute Junior
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

XLDnaute Impliqué
Re : activer une macro par resultat de cellule

Bonsoir le Forum,ktm520ktm520
Code Sur La Feuille "Gestion concours"
Code:
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+
 

Discussions similaires

Réponses
6
Affichages
321