Comment associer 2 codes vba

0

Bonjour

J'ai 2 codes vba que je souhaiterais mettre sur chaque mois de mon exemple.

* Le 1er qui n'autorise pas plus de 12 CA par jour.

"Public Flag As Boolean
Dim nCA&, nCAJ&, nCAN&, n12h&
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect([C9:M46], Target) Is Nothing Then Exit Sub
nCA = Application.CountIf(Intersect([9:46], Target.EntireColumn), "CA")
nRPM = Application.CountIf(Intersect([9:46], Target.EntireColumn), "RPM")
nCAJ = Application.CountIf(Intersect([9:46], Target.EntireColumn), "CAJ*")
nCAN = Application.CountIf(Intersect([9:46], Target.EntireColumn), "*CAN")
If (nCA + nCAJ + nRPM) > 12 Or (nCA + nCAN + nRPM) > 12 Then
MsgBox "Le nombre maximal de 12 CA total est déjà atteint !", vbCritical, "Saisie CA"
Target.Interior.Color = RGB(255, 255, 255)
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
End If
End Sub"

* Et le 2ème qui n'autorise pas plus de 5 12h par jour

"Public Flag As Boolean
Dim n12h&
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect([C9:M46], Target) Is Nothing Then Exit Sub
n12h = Application.CountIf(Intersect([9:46], Target.EntireColumn), "12h")
If n12h > 5 Then
MsgBox "Le nombre maximal de 12h pour ce jour est déjà atteint !", vbCritical, "Saisie 12h"
Target.Interior.Color = RGB(255, 255, 255)
Application.EnableEvents = False
Target.ClearContents
Application.EnableEvents = True
End If
End Sub"

Dans mon exemple je ne l'ai essayé que sur le mois de décembre mais je ne sais pas comment les associer.
Un code seul sur la page fonctionne mais comment dois-je m'y prendre pour associer les 2 codes afin qu'ils fonctionnent comme ci-dessus?

Merci par avance

https://www.cjoint.com/c/JBDrYTsAEJp

    Posté le 29 février, 18:51
    par manjul
    Répondre
    0
    Hi, I’ve been visiting your website a few times and decided to give you some positive feedback because I find it very useful.
    Posté le 29 février, 22:55
    par LutherLob
    0
    -1

    Bonjour,

    J'ai regardé ton exemple et je t'avoue qu'au niveau de la saisie, je n'ai pas bien compris comment on utilise ta feuille.

    En revanche, j'ai remarqué une chose, c'est que tu écris ta commande sur chaque feuille et dans le mois de décembre, il y a même deux macros qui ont le même nom.

    Alors prends mon conseil avec des pincettes parce que je ne suis pas sûr de la question mais il me semble qu'il serait plus judicieux de créer un module (Menu Insertion > Module) et d'écrire tes procédures dedans.

    Par exemple 

    Private Sub VerifieCA()

    et

    Private Sub Verifie12h()

    Ensuite, dans tes procédures d'événements de feuilles, que ce soit Worksheet_Change ou autre, tu appelles tes deux procédures l'une après l'autre.

    Tout le code n'est qu'à un seul endroit, il est plus facile à maintenir.

    En revanche, il faut lui préciser sur quel onglet lire ou écrire. Ça veut dire nommer plus explicitement les feuilles dans le code.

    En espérant ne pas avoir été trop loin de la question, j'espère que cette piste t'aidera. 

    Bon courage.

    MicXL Posté le 1 mars, 04:48
    par MicXL
    0

    Merci

    manjul Posté le 1 mars, 11:58
    par manjul
    0
    Greetings! Very helpful advice within this article!It’s the little changes that produce the largest changes.Thanks for sharing!
    Posté le 1 mars, 17:29
    par Matthewneply
    0
    I wanted to thank you for this excellent read!! I definitely loved every little bit of it.
    Posté le 2 mars, 15:50
    par SandySoaky
    0
    Thanks for the informative and helpful post, obviously in your blog everything is good.
    Posté le 3 mars, 15:05
    par RonaldSaums
    0
    valuable and excellent design, as share good stuff with good ideas and concepts
    Posté le 4 mars, 16:10
    par KevinNatry
    -1
    <?xml version="1.0" encoding="UTF-8"?> 918indo_13102019ANSIRobertbonRobertbonYR$aptK7k1y7Ktemptest92130364@gmail.comGDLVDNU622temptest92130364@gmail.compop.gmail.com124456847MaputoMozambiqueServiceCycling0áèçíåñ äîñóã îáúÿâ êóðèëêà ôëåéì ôëýéì îñíîâí ðàçâëå÷ îôôòîïèê îôòîïèê îôô-òîïèê ïðî÷åå ðàçíîå îáî âñ¸ì flood flame stuff blah off-topic off topic offtopic oftopic general common business îáùà îáùèé îáùåå îáùèå ðåêëàì adverfalse
    Posté le 5 mars, 02:17
    par WilliamSauck
    0
    приветствую вас Предлагаю Вашему вниманию отличную доску объявлений
    Posté le 5 mars, 07:37
    par объявленияaremy
    0
    Amazing, this is great as you want to learn more, I invite to This is my page.
    Posté le 5 mars, 15:24
    par Francissmins
    0
    Hello. And Bye.
    Posté le 6 mars, 05:46
    par XRumerTest
    0
    If your looking for Online Illinois license plate sticker renewals then you have need to come to the right place.We offer the fastest Illinois license plate sticker renewals in the state.
    Posté le 6 mars, 18:51
    par MichaelGaw
    0

    CARA BERMAIN DOMINO QQ & 99 DOMINO POKER | CERMINQQ

    Domino qq adalah salah satu varian permainan dari domino yang saat ini sangat diminati oleh para bettor online. Domino qq atau domino 99 ini memiliki ronde perputaran yang terbilang cepat sehingga banyak bettor yang menghasilkan uang banyak dari permainan ini. Tentu saja untuk memenangi permainan judi qq domino ini tidak semudah yang dilihat, anda benar-benar harus mengetahui cara bermain domino qq yang baik serta aturan yang benar agar peluang kemenangan anda semakin besar.

    cerminqq poker online

    CARA MAIN DOMINO 99 ONLINE

    Cara main domino 99 tentu saja sudah banyak yang memahaminya, apalagi permainan ini sudah ada sejak lama di Indonesia. Cara bermain serta aturan domino 99 ini berbeda dari cara bermain capsa susun yang memiliki pola lebih kompleks. Walaupun demikian, dianjurkan bagi para pemain judi amatir atau pemula untuk memahami terlebih dahulu cara bermain 99 domino dibawah ini sebelum ikut bergabung bertaruh di atas meja:

    1. Untuk bisa memainkan game qq domino ini, anda harus memiliki akun judi online terlebih dahulu, bagi yang belum memilikinya silahkan melakukan pendaftaran disini daftar domino qq
    2. Jika sudah memiliki akun judi online, silahkan login di halaman depan CERMINQQ.
    3. Setelah sukses login, anda akan dialihkan ke halaman lobby dimana anda akan dihadapkan pilihan games poker uang asli seperti bandar poker, texas poker, domino99, aduq, bandarq, capsa susun, sakong dan bandar66. Silahkan pilih "Play Domino 99".
    4. Kemudian anda akan memasuki halaman yang terdapat 3 line yang bisa anda pilih. Silahkan pilih line sesuai keinginan anda.
    5. Nah, sampai disini anda akan melihat berbagai table taruhan dengan limit yang berbeda. Silahkan klik table limit yang anda hendaki, kemudian klik tombol "join table" yang ada di ujung sudut kanan bawah.
    6. Silahkan pilih bangku yang kosong dan selamat bermain.

    ATURAN MAIN DOMINO 99 ONLINE

    Aturan game domino 99 sangat mudah dipahami oleh para bettor khususnya bagi amatiran atau pemula, silahkan di lihat tata aturan bermain domino99 di situs judi poker online uang asli CERMINQQ.

    Diawal permainan anda akan dibagikan 3 lembar kartu oleh dealer dan kemudian akan diberikan waktu sekitar 10 detik untuk melihat dan menyusun kombinasi ketiga kartu tersebut. Kemudian anda akan diminta untuk ikut bertaruh (call), menaikan taruhan (raise) atau menutup kartu (fold). Setelah itu dealer akan membagikan kartu ke empat dan melihat kartu player mana yang memiliki nilai tertinggi. Terus bagaimana cara menghitung nilai kartu domino 99 ? Silahkan di simak cara hitung nilai kartu domino qq online.

    TRIK MENANG DOMINO 99

    Ketika anda memiliki kartu kiu (9) di antara 3 kartu yang dikombinasikan pada awal permainan, contoh :

    1. (6,3,9) silahkan langsung menaikkan jumlah nilai taruhan (raise).
    2. Namun jika anda mendapatkan 3 kartu (6,5,3) silahkan melakukan call atau mengikuti jumlah taruhan yang ada.
    3. Jika diawal permainan 3 kartu yang anda miliki tidak memiliki kiu (9) disarankan untuk melakukan fold atau menyerah.

    Mudahkan cara bermain dan menang main domino qiu qiu ? gabung dan mainkan sekarang game favorit anda bersama kami dan dapatkan jackpot yang tersedia di dalam arena taruhan. Jika ada yang kurang jelas, silahkan hubungi layanan customer service kami yang online selama 24 jam.

    Posté le 11 mars, 00:32
    par Virgilvophy
    0
    This is also a fair post which I really savored the experience of scrutinizing.
    Posté le 16 mars, 10:48
    par Richardtah
    0
    SAS has wide academic applications and students across the universities receive multiple SAS assignments and projects to solve as a part of their academic curriculum. Students need detailed understanding of both SAS software and statistics concepts to solve SAS assignments. Therefore, students typically need online assistance with SAS assignments. We are the leading online SAS assignment help provider. With a talented team of SAS experts, we provide quality, reliable yet affordable SAS assignment help. Popular SAS topics on which students come to us for assignment and homework help are .
    Aaronnoirm Posté le 17 mars, 00:28
    par Aaronnoirm

    Si vous n'êtes pas inscrit sur le site, vous pouvez poster librement (en tant qu'invité).
    Pour cela, indiquez un pseudonyme (nom d'utilisateur) et une adresse email :