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