cummuler 2 macro worksheet

[ktm520ktm520]

Bonjour

je voudrai mettre c est 2 macro sur la meme feuille
la premiere marche tres bien
et des que je mais la deuxième ca plante
je la commande avec 1 ou 2 bouton valider
merci


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



Private Sub Worksheet_Change(ByVal AP58 As Range)
If AP58.Text = "1" Then
Call planches12
End If
If AP58.Text = "2" Then
Call planches22
End If
If AP58.Text = "3" Then
Call planches32
End If
If AP58.Text = "4" Then
Call planches42
End If
If AP58.Text = "5" Then
Call planches52
End If
If AP58.Text = "6" Then
Call planches62
End If
If AP58.Text = "7" Then
Call planches72
End If
If AP58.Text = "8" Then
Call planches82
End If
If AP58.Text = "9" Then
Call planches92
End If
If AP58.Text = "10" Then
Call planches102
End If
If AP58.Text = "11" Then
Call planches112
End If
If AP58.Text = "12" Then
Call planches122
End If
If AP58.Text = "13" Then
Call planches132
End If
If AP58.Text = "14" Then
Call planches142
End If
End Sub

 

[Papou-net]

Re : cummuler 2 macro worksheet

Bonsoir ktm520ktm520,

Pas facile d'appréhender le problème sans avoir une copie de fichier sous les yeux, ni sans connaître de quelle façon tu as tenté d'intégrer ces deux macros.

Une chose est certaine, tu as deux procédures événementielles avec des paramètres différents, donc à priori ça ne peut pas fonctionner.

Dans l'attente d'une copie de ton fichier, sans données confidentielles bien sûr.

Cordialement.