1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 160 161 162 163 164 165 166 167 168 169 170 171 172 173 174 175 176 177 178 179 180 181 182 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 205 206 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 254 255 256 257 258 259 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 305 306 307 308 309 310 311 312 313 314 315 316 317 318 319 320 321 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 337 338 339 340 341 342 343 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 366 367 368 369 370 371 372 373 374 375 376 377 378 379 380 381 382 383 384 385 386 387 388 389 390 391 392 393 394 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 436 437 438 439 440 441 442 443 444 445 446 447 448 449 450 451 452 453 454 455 456 457 458 459 460 461 462 463 464 465 466 467 468 469 470 471 472 473 474 475 476 477 478 479 480 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 497 498 499 500 501 502 503 504 505 506 507 508 509 510 511 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 537 538 539 540 541 542 543 544 545 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 561 562 563 564 565 566 567 568 569 570 571 572 573 574 575 576 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 597 598 599 600 601 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 619 620 621 622 623 624 625 626 627 628 629 630 631 632 633 634 635 636 637 638 639 640 641 642 643 644 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 662 663 664 665 666 667 668 669 670 671 672 673 674 675 676 677 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 693 694 695 696 697 698 699 700 701 702 703 704 705 706 707 708 709 710 711 712 713 714 715 716 717 718 719 720 721 722 723 724 725 726 727 728 729 730 731 732 733 734 735 736 737 738 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 755 756 757 758 759 760 761 762 763 764 765 766 767 768 769 770 771 772 773 774 775 776 777 778 779 780 781 782 783 784 785 786 787 788 789
|
' ICONISER et agrandir USERFORM
' Variables globales au module
Private sheet As Worksheet
Private Declare Function GetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLongA Lib "User32" _
(ByVal hWnd As Long, ByVal nIndex As Long, _
ByVal dwNewLong As Long) As Long
Private Declare Function FindWindowA Lib "User32" _
(ByVal lpClassName As String, ByVal lpWindowName As String) As Long
' Composant UserForm
Private Sub UserForm_Initialize()
Dim hWnd As Long
'Récupération window de l'userform et ajoute 'Réduire/Agrandir'
hWnd = FindWindowA(vbNullString, Me.Caption)
SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) Or &H20000
'Ici pour éliminer la fermeture
'SetWindowLongA hWnd, -16, GetWindowLongA(hWnd, -16) And &HFFF7FFFF
End Sub
' Cacher fenetre excel
Private Sub Workbook_Open()
Application.WindowState = xlMinimized
UserForm1.Show
End Sub
'Afficher cadre pour texte defilent
Private Sub Alerte_Click()
UserForm3.Show
End Sub
'Couleur de fond bandeau defilent
Private Sub Bandeau_DownloadComplete()
On Error Resume Next
With Bandeau.Document.body
.Style.backgroundcolor = RGB(224, 224, 224) 'Fond gris
.Style.BorderStyle = "none" 'Cadre
.Scroll = "no" 'Barres
End With
End Sub
'Début du bouton Annulé
Private Sub CommandButton1_Click()
For i = 2 To 4
Controls("TextBox" & i).Value = ""
Next
Call EnableControls
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub CommandButton2_Click()
For i = 5 To 7
Controls("TextBox" & i).Value = ""
Next
Call EnableControls2
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub CommandButton3_Click()
For i = 8 To 10
Controls("TextBox" & i).Value = ""
Next
Call EnableControls3
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub CommandButton4_Click()
For i = 11 To 13
Controls("TextBox" & i).Value = ""
Next
Call EnableControls4
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub CommandButton5_Click()
For i = 14 To 16
Controls("TextBox" & i).Value = ""
Next
Call EnableControls5
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub CommandButton6_Click()
For i = 17 To 19
Controls("TextBox" & i).Value = ""
Next
Call EnableControls6
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub CommandButton7_Click()
For i = 20 To 22
Controls("TextBox" & i).Value = ""
Next
Call EnableControls7
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub CommandButton8_Click()
For i = 23 To 25
Controls("TextBox" & i).Value = ""
Next
Call EnableControls8
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub CommandButton9_Click()
For i = 26 To 28
Controls("TextBox" & i).Value = ""
Next
Call EnableControls9
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub CommandButton10_Click()
For i = 29 To 31
Controls("TextBox" & i).Value = ""
Next
Call EnableControls10
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub CommandButton11_Click()
For i = 32 To 34
Controls("TextBox" & i).Value = ""
Next
Call EnableControls11
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub CommandButton12_Click()
For i = 35 To 37
Controls("TextBox" & i).Value = ""
Next
Call EnableControls12
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub CommandButton13_Click()
For i = 38 To 40
Controls("TextBox" & i).Value = ""
Next
Call EnableControls13
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub 'Fin du bouton Annuler
'Début bouton EDITER
Private Sub CommandButton14_click()
Call DisableControls
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub DisableControls()
TextBox2.Locked = True
TextBox2.ForeColor = RGB(51, 51, 51)
TextBox3.Locked = True
TextBox3.ForeColor = RGB(51, 51, 51)
TextBox4.Locked = True
TextBox4.ForeColor = RGB(51, 51, 51)
End Sub
Private Sub CommandButton15_Click()
Call DisableControls2
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub DisableControls2()
TextBox5.Locked = True
TextBox5.ForeColor = RGB(51, 51, 51)
TextBox6.Locked = True
TextBox6.ForeColor = RGB(51, 51, 51)
TextBox7.Locked = True
TextBox7.ForeColor = RGB(51, 51, 51)
End Sub
Private Sub CommandButton16_Click()
Call DisableControls3
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub DisableControls3()
TextBox8.Locked = True
TextBox8.ForeColor = RGB(51, 51, 51)
TextBox9.Locked = True
TextBox9.ForeColor = RGB(51, 51, 51)
TextBox10.Locked = True
TextBox10.ForeColor = RGB(51, 51, 51)
End Sub
Private Sub CommandButton17_Click()
Call DisableControls4
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub DisableControls4()
TextBox11.Locked = True
TextBox11.ForeColor = RGB(51, 51, 51)
TextBox12.Locked = True
TextBox12.ForeColor = RGB(51, 51, 51)
TextBox13.Locked = True
TextBox13.ForeColor = RGB(51, 51, 51)
End Sub
Private Sub CommandButton18_Click()
Call DisableControls5
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub DisableControls5()
TextBox14.Locked = True
TextBox14.ForeColor = RGB(51, 51, 51)
TextBox15.Locked = True
TextBox15.ForeColor = RGB(51, 51, 51)
TextBox16.Locked = True
TextBox16.ForeColor = RGB(51, 51, 51)
End Sub
Private Sub CommandButton19_Click()
Call DisableControls6
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub DisableControls6()
TextBox17.Locked = True
TextBox17.ForeColor = RGB(51, 51, 51)
TextBox18.Locked = True
TextBox18.ForeColor = RGB(51, 51, 51)
TextBox19.Locked = True
TextBox19.ForeColor = RGB(51, 51, 51)
End Sub
Private Sub CommandButton20_Click()
Call DisableControls7
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub DisableControls7()
TextBox20.Locked = True
TextBox20.ForeColor = RGB(51, 51, 51)
TextBox21.Locked = True
TextBox21.ForeColor = RGB(51, 51, 51)
TextBox22.Locked = True
TextBox22.ForeColor = RGB(51, 51, 51)
End Sub
Private Sub CommandButton21_Click()
Call DisableControls8
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub DisableControls8()
TextBox23.Locked = True
TextBox23.ForeColor = RGB(51, 51, 51)
TextBox24.Locked = True
TextBox24.ForeColor = RGB(51, 51, 51)
TextBox25.Locked = True
TextBox25.ForeColor = RGB(51, 51, 51)
End Sub
Private Sub CommandButton22_Click()
Call DisableControls9
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub DisableControls9()
TextBox26.Locked = True
TextBox26.ForeColor = RGB(51, 51, 51)
TextBox27.Locked = True
TextBox27.ForeColor = RGB(51, 51, 51)
TextBox28.Locked = True
TextBox28.ForeColor = RGB(51, 51, 51)
End Sub
Private Sub CommandButton23_Click()
Call DisableControls10
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub DisableControls10()
TextBox29.Locked = True
TextBox29.ForeColor = RGB(51, 51, 51)
TextBox30.Locked = True
TextBox30.ForeColor = RGB(51, 51, 51)
TextBox31.Locked = True
TextBox31.ForeColor = RGB(51, 51, 51)
End Sub
Private Sub CommandButton24_Click()
Call DisableControls11
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub DisableControls11()
TextBox32.Locked = True
TextBox32.ForeColor = RGB(51, 51, 51)
TextBox33.Locked = True
TextBox33.ForeColor = RGB(51, 51, 51)
TextBox34.Locked = True
TextBox34.ForeColor = RGB(51, 51, 51)
End Sub
Private Sub CommandButton25_Click()
Call DisableControls12
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub DisableControls12()
TextBox35.Locked = True
TextBox35.ForeColor = RGB(51, 51, 51)
TextBox36.Locked = True
TextBox36.ForeColor = RGB(51, 51, 51)
TextBox37.Locked = True
TextBox37.ForeColor = RGB(51, 51, 51)
End Sub
Private Sub CommandButton26_Click()
Call DisableControls13
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub DisableControls13()
TextBox38.Locked = True
TextBox38.ForeColor = RGB(51, 51, 51)
TextBox39.Locked = True
TextBox39.ForeColor = RGB(51, 51, 51)
TextBox40.Locked = True
TextBox40.ForeColor = RGB(51, 51, 51)
End Sub 'Fin du bouton EDITER
'Début du bouton Validé
Private Sub EnableControls()
TextBox2.Locked = False
TextBox3.Locked = False
TextBox4.Locked = False
End Sub
Private Sub EnableControls2()
TextBox5.Locked = False
TextBox6.Locked = False
TextBox7.Locked = False
End Sub
Private Sub EnableControls3()
TextBox8.Locked = False
TextBox9.Locked = False
TextBox10.Locked = False
End Sub
Private Sub EnableControls4()
TextBox11.Locked = False
TextBox12.Locked = False
TextBox13.Locked = False
End Sub
Private Sub EnableControls5()
TextBox14.Locked = False
TextBox15.Locked = False
TextBox16.Locked = False
End Sub
Private Sub EnableControls6()
TextBox17.Locked = False
TextBox18.Locked = False
TextBox19.Locked = False
End Sub
Private Sub EnableControls7()
TextBox20.Locked = False
TextBox21.Locked = False
TextBox22.Locked = False
End Sub
Private Sub EnableControls8()
TextBox23.Locked = False
TextBox24.Locked = False
TextBox25.Locked = False
End Sub
Private Sub EnableControls9()
TextBox26.Locked = False
TextBox27.Locked = False
TextBox28.Locked = False
End Sub
Private Sub EnableControls10()
TextBox29.Locked = False
TextBox30.Locked = False
TextBox31.Locked = False
End Sub
Private Sub EnableControls11()
TextBox32.Locked = False
TextBox33.Locked = False
TextBox34.Locked = False
End Sub
Private Sub EnableControls12()
TextBox35.Locked = False
TextBox36.Locked = False
TextBox37.Locked = False
End Sub
Private Sub EnableControls13()
TextBox38.Locked = False
TextBox39.Locked = False
TextBox40.Locked = False
End Sub 'Fin du bouton Validé
'Début du bouton Edition
Private Sub CommandButton27_Click()
Call EnableControls14
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub EnableControls14()
TextBox2.Locked = False
TextBox2.ForeColor = RGB(0, 0, 0)
TextBox3.Locked = False
TextBox3.ForeColor = RGB(0, 0, 0)
TextBox4.Locked = False
TextBox4.ForeColor = RGB(0, 0, 0)
End Sub
Private Sub CommandButton28_Click()
Call EnableControls15
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub EnableControls15()
TextBox5.Locked = False
TextBox5.ForeColor = RGB(0, 0, 0)
TextBox6.Locked = False
TextBox6.ForeColor = RGB(0, 0, 0)
TextBox7.Locked = False
TextBox7.ForeColor = RGB(0, 0, 0)
End Sub
Private Sub CommandButton29_Click()
Call EnableControls16
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub EnableControls16()
TextBox8.Locked = False
TextBox8.ForeColor = RGB(0, 0, 0)
TextBox9.Locked = False
TextBox9.ForeColor = RGB(0, 0, 0)
TextBox10.Locked = False
TextBox10.ForeColor = RGB(0, 0, 0)
End Sub
Private Sub CommandButton30_Click()
Call EnableControls17
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub EnableControls17()
TextBox11.Locked = False
TextBox11.ForeColor = RGB(0, 0, 0)
TextBox12.Locked = False
TextBox12.ForeColor = RGB(0, 0, 0)
TextBox13.Locked = False
TextBox13.ForeColor = RGB(0, 0, 0)
End Sub
Private Sub CommandButton31_Click()
Call EnableControls18
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub EnableControls18()
TextBox14.Locked = False
TextBox14.ForeColor = RGB(0, 0, 0)
TextBox15.Locked = False
TextBox15.ForeColor = RGB(0, 0, 0)
TextBox16.Locked = False
TextBox16.ForeColor = RGB(0, 0, 0)
End Sub
Private Sub CommandButton32_Click()
Call EnableControls19
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub EnableControls19()
TextBox17.Locked = False
TextBox17.ForeColor = RGB(0, 0, 0)
TextBox18.Locked = False
TextBox18.ForeColor = RGB(0, 0, 0)
TextBox19.Locked = False
TextBox19.ForeColor = RGB(0, 0, 0)
End Sub
Private Sub CommandButton33_Click()
Call EnableControls20
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub EnableControls20()
TextBox20.Locked = False
TextBox20.ForeColor = RGB(0, 0, 0)
TextBox21.Locked = False
TextBox21.ForeColor = RGB(0, 0, 0)
TextBox22.Locked = False
TextBox22.ForeColor = RGB(0, 0, 0)
End Sub
Private Sub CommandButton34_Click()
Call EnableControls21
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub EnableControls21()
TextBox23.Locked = False
TextBox23.ForeColor = RGB(0, 0, 0)
TextBox24.Locked = False
TextBox24.ForeColor = RGB(0, 0, 0)
TextBox25.Locked = False
TextBox25.ForeColor = RGB(0, 0, 0)
End Sub
Private Sub CommandButton35_Click()
Call EnableControls22
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub EnableControls22()
TextBox26.Locked = False
TextBox26.ForeColor = RGB(0, 0, 0)
TextBox27.Locked = False
TextBox27.ForeColor = RGB(0, 0, 0)
TextBox28.Locked = False
TextBox28.ForeColor = RGB(0, 0, 0)
End Sub
Private Sub CommandButton36_Click()
Call EnableControls23
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub EnableControls23()
TextBox29.Locked = False
TextBox29.ForeColor = RGB(0, 0, 0)
TextBox30.Locked = False
TextBox30.ForeColor = RGB(0, 0, 0)
TextBox31.Locked = False
TextBox31.ForeColor = RGB(0, 0, 0)
End Sub
Private Sub CommandButton37_Click()
Call EnableControls24
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub EnableControls24()
TextBox32.Locked = False
TextBox32.ForeColor = RGB(0, 0, 0)
TextBox33.Locked = False
TextBox33.ForeColor = RGB(0, 0, 0)
TextBox34.Locked = False
TextBox34.ForeColor = RGB(0, 0, 0)
End Sub
Private Sub CommandButton38_Click()
Call EnableControls25
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub EnableControls25()
TextBox35.Locked = False
TextBox35.ForeColor = RGB(0, 0, 0)
TextBox36.Locked = False
TextBox36.ForeColor = RGB(0, 0, 0)
TextBox37.Locked = False
TextBox37.ForeColor = RGB(0, 0, 0)
End Sub
Private Sub CommandButton39_Click()
Call EnableControls26
TextBox1.Text = Format$(Now, "dd/mm/yy")
TextBox41.Text = Format$(Now, "hh:nn")
End Sub
Private Sub EnableControls26()
TextBox38.Locked = False
TextBox38.ForeColor = RGB(0, 0, 0)
TextBox39.Locked = False
TextBox39.ForeColor = RGB(0, 0, 0)
TextBox40.Locked = False
TextBox40.ForeColor = RGB(0, 0, 0)
End Sub 'Fin du bouton Edition
Private Sub TextBox2_Change()
TextBox2.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox3_Change()
TextBox3.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox4_Change()
TextBox4.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox5_Change()
TextBox5.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox6_Change()
TextBox6.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox7_Change()
TextBox7.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox8_Change()
TextBox8.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox9_Change()
TextBox9.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox10_Change()
TextBox10.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox11_Change()
TextBox11.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox12_Change()
TextBox12.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox13_Change()
TextBox13.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox14_Change()
TextBox14.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox15_Change()
TextBox15.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox16_Change()
TextBox16.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox17_Change()
TextBox17.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox18_Change()
TextBox18.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox19_Change()
TextBox19.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox20_Change()
TextBox20.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox21_Change()
TextBox21.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox22_Change()
TextBox22.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox23_Change()
TextBox23.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox24_Change()
TextBox24.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox25_Change()
TextBox25.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox26_Change()
TextBox26.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox27_Change()
TextBox27.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox28_Change()
TextBox28.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox29_Change()
TextBox29.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox30_Change()
TextBox30.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox31_Change()
TextBox31.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox32_Change()
TextBox32.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox33_Change()
TextBox33.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox34_Change()
TextBox34.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox35_Change()
TextBox35.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox36_Change()
TextBox36.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox37_Change()
TextBox37.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox38_Change()
TextBox38.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox39_Change()
TextBox39.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub TextBox40_Change()
TextBox40.ForeColor = RGB(0, 102, 204)
End Sub
Private Sub ToggleButton1_Click()
Excel.Application.Visible = ToggleButton1.Value
Application.DisplayAlerts = False
ActiveWorkbook.Close savechanges:=True
Application.DisplayAlerts = True
End Sub |
Partager