VERSION 5.00
Begin {C62A69F0-16DC-11CE-9E98-00AA00574A4F} FrmCDO 
   Caption         =   "Formulaire de Saisie"
   ClientHeight    =   9840.001
   ClientLeft      =   120
   ClientTop       =   468
   ClientWidth     =   19560
   OleObjectBlob   =   "frmCDO.frx":0000
   StartUpPosition =   1  'CenterOwner
End
Attribute VB_Name = "FrmCDO"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit

Dim tbl As ListObject
Dim i_tbl As Integer
Dim date_naissance As New Textbox_Date


Private Sub UserForm_Initialize()
    
    ' Définir le tableau structuré
    Set tbl = [Tableaubase].ListObject
    
    ' remplir la combobox cboNom
    Me.cboNom.List = [Tableaubase].ListObject.ListColumns("Nom Prénom").DataBodyRange.Value
    
    ' désactiver le bouton ajouter
    btnSAISIE.Enabled = False
    
    ' désactiver le textbox date de naissance
    TextBoxDDN.Enabled = False
    
    ' initialiser l'indice de ligne du tableau
    i_tbl = 0

End Sub


Private Sub cboNom_Click()
    Dim Nom As String
    Dim LigneExistante As Range
    
    ' définir la variable
    Nom = Me.cboNom.Value

    ' affiche la ligne correspondant au tableau
    Set LigneExistante = tbl.ListColumns("Nom Prénom").DataBodyRange.Find(What:=Nom, LookIn:=xlValues)
    If Not LigneExistante Is Nothing Then
        i_tbl = LigneExistante.Row - tbl.HeaderRowRange.Row
        With tbl
        ' cadre identité de l'éleve
            Me.cboNom.Value = .ListColumns("Nom Prénom").DataBodyRange(i_tbl)
            Me.TextBoxDDN.Value = .ListColumns("Date de naissance").DataBodyRange(i_tbl)
            Me.cboSexe.Value = .ListColumns("sexe").DataBodyRange(i_tbl)
            Me.cboLdV.Value = .ListColumns("Lieu de Vie").DataBodyRange(i_tbl)
        'cadre dossier
            Me.TextBoxDateDos.Value = .ListColumns("dossier reçu le").DataBodyRange(i_tbl)
            'Me.cboDegré.Value = .ListColumns("Issu du 1er ou 2nd degré").DataBodyRange(i_tbl)
            Me.cboSaisine.Value = .ListColumns("saisine").DataBodyRange(i_tbl)
            Me.cboSign.Value = .ListColumns("signatures").DataBodyRange(i_tbl)
            Me.cboBilanOb.Value = .ListColumns("Bilans Obligatoires").DataBodyRange(i_tbl)
            Me.cboBilanFac.Value = .ListColumns("Bilan Facultatif").DataBodyRange(i_tbl)
            Me.cboAutresDocs.Value = .ListColumns("Autres docs").DataBodyRange(i_tbl)
            Me.cboAvisEtab.Value = .ListColumns("Accord IEN").DataBodyRange(i_tbl)
            Me.cboAvisFam.Value = .ListColumns("Accord des Parents").DataBodyRange(i_tbl)
        'cadre scolarité actuelle
            Me.cboEtabAct.Value = .ListColumns("Etablissement 2024/2025").DataBodyRange(i_tbl)
            Me.cboClasAct.Value = .ListColumns("Classe 2024/2025").DataBodyRange(i_tbl)
            'Me.cboCirco.Value = .ListColumns("Circonscription").DataBodyRange(i_tbl)
            Me.cboSitO.Value = .ListColumns("Situation d'orientation").DataBodyRange(i_tbl)
         'cadre scolarité envisagée
            Me.cboClasDem.Value = .ListColumns("Classe demandée").DataBodyRange(i_tbl)
            Me.cboVoeu1.Value = .ListColumns("VŒU 1 ETABLISSEMENT 2025/2026").DataBodyRange(i_tbl)
            Me.cboVoeu2.Value = .ListColumns("VŒU 2 ETABLISSEMENT 2025/2026").DataBodyRange(i_tbl)
         'cadre Responsables  légaux
          'Resp L1
            Me.cboCiv1.Value = .ListColumns("Civ Resp 1").DataBodyRange(i_tbl)
            Me.TextBoxR1.Value = .ListColumns("Nom Resp 1").DataBodyRange(i_tbl)
            Me.cboQR1.Value = .ListColumns("Qualité Resp 1").DataBodyRange(i_tbl)
            Me.TextBoxAdR1.Value = .ListColumns("Adresse Resp 1").DataBodyRange(i_tbl)
            Me.cboComR1.Value = .ListColumns("Commune 44 Resp 1").DataBodyRange(i_tbl)
            Me.TxtTelR1.Value = .ListColumns("Tél Resp 1").DataBodyRange(i_tbl)
            Me.TextBoxMailR1.Value = .ListColumns("Mail Resp 1").DataBodyRange(i_tbl)
         'Resp L2
            Me.cboCiv2.Value = .ListColumns("Civ Resp 2").DataBodyRange(i_tbl)
            Me.TextBoxR2.Value = .ListColumns("Nom Resp 2").DataBodyRange(i_tbl)
            Me.cboQR2.Value = .ListColumns("Qualité Resp 2").DataBodyRange(i_tbl)
            Me.TextBoxAdR2.Value = .ListColumns("Adresse Resp 2").DataBodyRange(i_tbl)
            Me.cboComR2.Value = .ListColumns("Commune 44 Resp 2").DataBodyRange(i_tbl)
            Me.TxtTelR2.Value = .ListColumns("Tél Resp 2").DataBodyRange(i_tbl)
            Me.TextBoxMailR2.Value = .ListColumns("Mail Resp 2").DataBodyRange(i_tbl)
          'Resp L3
            Me.cboCiv3.Value = .ListColumns("Civ Resp 3").DataBodyRange(i_tbl)
            Me.TextBoxR3.Value = .ListColumns("Nom Resp 3").DataBodyRange(i_tbl)
            Me.TextBoxStructA.Value = .ListColumns("Nom Structure Resp 3").DataBodyRange(i_tbl)
            Me.cboQR3.Value = .ListColumns("Qualité Resp 3").DataBodyRange(i_tbl)
            Me.TextBoxAdR3.Value = .ListColumns("Adresse Resp 3").DataBodyRange(i_tbl)
            Me.cboComR3.Value = .ListColumns("Commune 44 Resp 3").DataBodyRange(i_tbl)
            Me.TextTelR3.Value = .ListColumns("Tél Resp 3").DataBodyRange(i_tbl)
            Me.TextBoxMailR3.Value = .ListColumns("Mail Resp 3").DataBodyRange(i_tbl)
       'Cadre CDO
            Me.TextBoxMath.Value = .ListColumns("% Eval Math").DataBodyRange(i_tbl)
            Me.TextBoxFran.Value = .ListColumns("% Eval Fran").DataBodyRange(i_tbl)
            Me.cboSuiviExt.Value = .ListColumns("suivi EXT").DataBodyRange(i_tbl)
            Me.cboRased.Value = .ListColumns("RASED").DataBodyRange(i_tbl)
            Me.TextRased.Value = .ListColumns("RASED").DataBodyRange(i_tbl)
            Me.cboDateCDO.Value = .ListColumns("Date CDO").DataBodyRange(i_tbl)
            Me.cboLieuCDO.Value = .ListColumns("Lieu CDO").DataBodyRange(i_tbl)
            Me.TextNote.Value = .ListColumns("Commentaires pour la CDO").DataBodyRange(i_tbl)
            Me.cboPropCDO.Value = .ListColumns("Décision CDO").DataBodyRange(i_tbl)
            Me.cboRecours.Value = .ListColumns("RECOURS").DataBodyRange(i_tbl)
            Me.cboMotifRefus.Value = .ListColumns("Observations Coordonnateur/Enseignant Référent").DataBodyRange(i_tbl)
        End With
    End If

End Sub

Private Sub cboNom_Change()
    
    ' réinitialiser tout si rab de la combobox
    If cboNom = Empty Then i_tbl = 0: btnEffacer_Click: i_tbl = 0

End Sub

Private Sub cboNom_AfterUpdate()
    
    ' si ligne de tableau sélectionnée via nom existant pas d'ajout possible
    If i_tbl <> 0 Then Exit Sub

    ' activation bouton ajouter
    If cboNom <> Empty And TextBoxDDN <> Empty Then btnSAISIE.Enabled = True Else btnSAISIE.Enabled = False

End Sub


Private Sub Datepicker1_Click()
    
    ' activer le textbox date de naissance
    TextBoxDDN.Enabled = True
    
    ' affectation du modèle de saisie d'une date
    date_naissance.affecter_modèle Me.TextBoxDDN

End Sub

Private Sub TextBoxDDN_Change()
    date_naissance.saisir Me.TextBoxDDN
End Sub

Private Sub TextBoxDDN_AfterUpdate()
    
    ' si ligne de tableau sélectionnée via nom existant pas d'ajout possible
    If i_tbl <> 0 Then Exit Sub

    ' activation bouton ajouter
    If cboNom <> Empty And TextBoxDDN <> Empty Then btnSAISIE.Enabled = True Else btnSAISIE.Enabled = False

End Sub
  
Private Sub btnEffacer_Click()
    Dim ctrl As Control

  ' Effacer le contenu de tous les TextBox et combobox
  For Each ctrl In Me.Controls
          If TypeOf ctrl Is MSForms.TextBox Or TypeOf ctrl Is MSForms.ComboBox Then ctrl = Empty
  Next ctrl
  
End Sub

        '**************************
'Procédure permettant de remplir le tableau à partir des données du formulaire
        '**************************
Private Sub btnsaisie_Click()
    'définir les variables
    Dim nouvelleLigne As ListRow

    If i_tbl = 0 Then
        ' si le nom n'existe pas, ajoute une nouvelle ligne
        Set nouvelleLigne = tbl.ListRows.Add: i_tbl = nouvelleLigne.Index
        With tbl
            ' cadre identité de l'éleve
            .ListColumns("Nom Prénom").DataBodyRange(i_tbl) = UCase(Me.cboNom.Value)
            .ListColumns("Date de naissance").DataBodyRange(i_tbl) = CDate(Me.TextBoxDDN.Value)
            .ListColumns("sexe").DataBodyRange(i_tbl) = Me.cboSexe.Value
            .ListColumns("Lieu de Vie").DataBodyRange(i_tbl) = Me.cboLdV.Value
        'cadre dossier
            .ListColumns("dossier reçu le").DataBodyRange(i_tbl) = Me.TextBoxDateDos.Value
            '.ListColumns("Issu du 1er ou 2nd degré").DataBodyRange(i_tbl) = Me.cboDegré.Value
            .ListColumns("saisine").DataBodyRange(i_tbl) = Me.cboSaisine.Value
            .ListColumns("signatures").DataBodyRange(i_tbl) = Me.cboSign.Value
            .ListColumns("Bilans Obligatoires").DataBodyRange(i_tbl) = Me.cboBilanOb.Value
            .ListColumns("Bilan Facultatif").DataBodyRange(i_tbl) = Me.cboBilanFac.Value
            .ListColumns("Autres docs").DataBodyRange(i_tbl) = Me.cboAutresDocs.Value
            .ListColumns("Accord IEN").DataBodyRange(i_tbl) = Me.cboAvisEtab.Value
            .ListColumns("Accord des Parents").DataBodyRange(i_tbl) = Me.cboAvisFam.Value
        'cadre scolarité actuelle
            .ListColumns("Etablissement 2024/2025").DataBodyRange(i_tbl) = Me.cboEtabAct.Value
            .ListColumns("Classe 2024/2025").DataBodyRange(i_tbl) = Me.cboClasAct.Value
            .ListColumns("Circonscription").DataBodyRange(i_tbl) = Me.cboCirco.Value
            .ListColumns("Situation d'orientation").DataBodyRange(i_tbl) = Me.cboSitO.Value
         'cadre scolarité envisagée
            .ListColumns("Classe demandée").DataBodyRange(i_tbl) = Me.cboClasDem.Value
            .ListColumns("VŒU 1 ETABLISSEMENT 2025/2026").DataBodyRange(i_tbl) = Me.cboVoeu1.Value
            .ListColumns("VŒU 2 ETABLISSEMENT 2025/2026").DataBodyRange(i_tbl) = Me.cboVoeu2.Value
         'cadre Responsables  légaux
          'Resp L1
            .ListColumns("Civ Resp 1").DataBodyRange(i_tbl) = Me.cboCiv1.Value
            .ListColumns("Nom Resp 1").DataBodyRange(i_tbl) = Me.TextBoxR1.Value
            .ListColumns("Qualité Resp 1").DataBodyRange(i_tbl) = Me.cboQR1.Value
            .ListColumns("Adresse Resp 1").DataBodyRange(i_tbl) = Me.TextBoxAdR1.Value
            .ListColumns("Commune 44 Resp 1").DataBodyRange(i_tbl) = Me.cboComR1.Value
            .ListColumns("Tél Resp 1").DataBodyRange(i_tbl) = Me.TxtTelR1.Value
            .ListColumns("Mail Resp 1").DataBodyRange(i_tbl) = Me.TextBoxMailR1.Value
         'Resp L2
            .ListColumns("Civ Resp 2").DataBodyRange(i_tbl) = Me.cboCiv2.Value
            .ListColumns("Nom Resp 2").DataBodyRange(i_tbl) = Me.TextBoxR2.Value
            .ListColumns("Qualité Resp 2").DataBodyRange(i_tbl) = Me.cboQR2.Value
            .ListColumns("Adresse Resp 2").DataBodyRange(i_tbl) = Me.TextBoxAdR2.Value
            .ListColumns("Commune 44 Resp 2").DataBodyRange(i_tbl) = Me.cboComR2.Value
            .ListColumns("Tél Resp 2").DataBodyRange(i_tbl) = Me.TxtTelR2.Value
            .ListColumns("Mail Resp 2").DataBodyRange(i_tbl) = Me.TextBoxMailR2.Value
          'Resp L3
            .ListColumns("Civ Resp 3").DataBodyRange(i_tbl) = Me.cboCiv3.Value
            .ListColumns("Nom Resp 3").DataBodyRange(i_tbl) = Me.TextBoxR3.Value
            .ListColumns("Nom Structure Resp 3").DataBodyRange(i_tbl) = Me.TextBoxStructA.Value
            .ListColumns("Qualité Resp 3").DataBodyRange(i_tbl) = Me.cboQR3.Value
            .ListColumns("Adresse Resp 3").DataBodyRange(i_tbl) = Me.TextBoxAdR3.Value
            .ListColumns("Commune 44 Resp 3").DataBodyRange(i_tbl) = Me.cboComR3.Value
            .ListColumns("Tél Resp 3").DataBodyRange(i_tbl) = Me.TextTelR3.Value
            .ListColumns("Mail Resp 3").DataBodyRange(i_tbl) = Me.TextBoxMailR3.Value
       'Cadre CDO
            .ListColumns("% Eval Math").DataBodyRange(i_tbl) = Me.TextBoxMath.Value
            .ListColumns("% Eval Fran").DataBodyRange(i_tbl) = Me.TextBoxFran.Value
            .ListColumns("suivi EXT").DataBodyRange(i_tbl) = Me.cboSuiviExt.Value
            .ListColumns("RASED").DataBodyRange(i_tbl) = Me.cboRased.Value
            .ListColumns("RASED").DataBodyRange(i_tbl) = Me.TextRased.Value
            .ListColumns("Date CDO").DataBodyRange(i_tbl) = Me.cboDateCDO.Value
            .ListColumns("Lieu CDO").DataBodyRange(i_tbl) = Me.cboLieuCDO.Value
            .ListColumns("Commentaires pour la CDO").DataBodyRange(i_tbl) = Me.TextNote.Value
            .ListColumns("Décision CDO").DataBodyRange(i_tbl) = Me.cboPropCDO.Value
            .ListColumns("RECOURS").DataBodyRange(i_tbl) = Me.cboRecours.Value
            .ListColumns("Observations Coordonnateur/Enseignant Référent").DataBodyRange(i_tbl) = Me.cboMotifRefus.Value
                     
        End With
        MsgBox "Nouvel élève enregistré!", vbInformation
        
        
        ' Optionnel : Réinitialiser les champs du formulaire
        btnEffacer_Click
    Else
        ' si le nom existe déjà, informe l 'utilisateur
        MsgBox "L'élève a déjà été enregistré.", vbExclamation
    End If

End Sub


       
   
      
      '*******************************
'Procédure permettant de modifier les informations sur un élève
        '*******************************
Private Sub btnModifier_Click()
    
    ' vérifie si une ligne du tableau a été sélectionnée
    If i_tbl <> 0 Then
        With tbl
         ' cadre identité de l'éleve
            .ListColumns("Nom Prénom").DataBodyRange(i_tbl) = UCase(Me.cboNom.Value)
            .ListColumns("Date de naissance").DataBodyRange(i_tbl) = CDate(Me.TextBoxDDN.Value)
            .ListColumns("sexe").DataBodyRange(i_tbl) = Me.cboSexe.Value
            .ListColumns("Lieu de Vie").DataBodyRange(i_tbl) = Me.cboLdV.Value
        'cadre dossier
            .ListColumns("dossier reçu le").DataBodyRange(i_tbl) = Me.TextBoxDateDos.Value
            '.ListColumns("Issu du 1er ou 2nd degré").DataBodyRange(i_tbl) = Me.cboDegré.Value
            .ListColumns("saisine").DataBodyRange(i_tbl) = Me.cboSaisine.Value
            .ListColumns("signatures").DataBodyRange(i_tbl) = Me.cboSign.Value
            .ListColumns("Bilans Obligatoires").DataBodyRange(i_tbl) = Me.cboBilanOb.Value
            .ListColumns("Bilan Facultatif").DataBodyRange(i_tbl) = Me.cboBilanFac.Value
            .ListColumns("Autres docs").DataBodyRange(i_tbl) = Me.cboAutresDocs.Value
            .ListColumns("Accord IEN").DataBodyRange(i_tbl) = Me.cboAvisEtab.Value
            .ListColumns("Accord des Parents").DataBodyRange(i_tbl) = Me.cboAvisFam.Value
        'cadre scolarité actuelle
            .ListColumns("Etablissement 2024/2025").DataBodyRange(i_tbl) = Me.cboEtabAct.Value
            .ListColumns("Classe 2024/2025").DataBodyRange(i_tbl) = Me.cboClasAct.Value
            .ListColumns("Circonscription").DataBodyRange(i_tbl) = Me.cboCirco.Value
            .ListColumns("Situation d'orientation").DataBodyRange(i_tbl) = Me.cboSitO.Value
         'cadre scolarité envisagée
            .ListColumns("Classe demandée").DataBodyRange(i_tbl) = Me.cboClasDem.Value
            .ListColumns("VŒU 1 ETABLISSEMENT 2025/2026").DataBodyRange(i_tbl) = Me.cboVoeu1.Value
            .ListColumns("VŒU 2 ETABLISSEMENT 2025/2026").DataBodyRange(i_tbl) = Me.cboVoeu2.Value
         'cadre Responsables  légaux
          'Resp L1
            .ListColumns("Civ Resp 1").DataBodyRange(i_tbl) = Me.cboCiv1.Value
            .ListColumns("Nom Resp 1").DataBodyRange(i_tbl) = Me.TextBoxR1.Value
            .ListColumns("Qualité Resp 1").DataBodyRange(i_tbl) = Me.cboQR1.Value
            .ListColumns("Adresse Resp 1").DataBodyRange(i_tbl) = Me.TextBoxAdR1.Value
            .ListColumns("Commune 44 Resp 1").DataBodyRange(i_tbl) = Me.cboComR1.Value
            .ListColumns("Tél Resp 1").DataBodyRange(i_tbl) = Me.TxtTelR1.Value
            .ListColumns("Mail Resp 1").DataBodyRange(i_tbl) = Me.TextBoxMailR1.Value
         'Resp L2
            .ListColumns("Civ Resp 2").DataBodyRange(i_tbl) = Me.cboCiv2.Value
            .ListColumns("Nom Resp 2").DataBodyRange(i_tbl) = Me.TextBoxR2.Value
            .ListColumns("Qualité Resp 2").DataBodyRange(i_tbl) = Me.cboQR2.Value
            .ListColumns("Adresse Resp 2").DataBodyRange(i_tbl) = Me.TextBoxAdR2.Value
            .ListColumns("Commune 44 Resp 2").DataBodyRange(i_tbl) = Me.cboComR2.Value
            .ListColumns("Tél Resp 2").DataBodyRange(i_tbl) = Me.TxtTelR2.Value
            .ListColumns("Mail Resp 2").DataBodyRange(i_tbl) = Me.TextBoxMailR2.Value
          'Resp L3
            .ListColumns("Civ Resp 3").DataBodyRange(i_tbl) = Me.cboCiv3.Value
            .ListColumns("Nom Resp 3").DataBodyRange(i_tbl) = Me.TextBoxR3.Value
            .ListColumns("Nom Structure Resp 3").DataBodyRange(i_tbl) = Me.TextBoxStructA.Value
            .ListColumns("Qualité Resp 3").DataBodyRange(i_tbl) = Me.cboQR3.Value
            .ListColumns("Adresse Resp 3").DataBodyRange(i_tbl) = Me.TextBoxAdR3.Value
            .ListColumns("Commune 44 Resp 3").DataBodyRange(i_tbl) = Me.cboComR3.Value
            .ListColumns("Tél Resp 3").DataBodyRange(i_tbl) = Me.TextTelR3.Value
            .ListColumns("Mail Resp 3").DataBodyRange(i_tbl) = Me.TextBoxMailR3.Value
       'Cadre CDO
            .ListColumns("% Eval Math").DataBodyRange(i_tbl) = Me.TextBoxMath.Value
            .ListColumns("% Eval Fran").DataBodyRange(i_tbl) = Me.TextBoxFran.Value
            .ListColumns("suivi EXT").DataBodyRange(i_tbl) = Me.cboSuiviExt.Value
            .ListColumns("RASED").DataBodyRange(i_tbl) = Me.cboRased.Value
            .ListColumns("RASED").DataBodyRange(i_tbl) = Me.TextRased.Value
            .ListColumns("Date CDO").DataBodyRange(i_tbl) = Me.cboDateCDO.Value
            .ListColumns("Lieu CDO").DataBodyRange(i_tbl) = Me.cboLieuCDO.Value
            .ListColumns("Commentaires pour la CDO").DataBodyRange(i_tbl) = Me.TextNote.Value
            .ListColumns("Décision CDO").DataBodyRange(i_tbl) = Me.cboPropCDO.Value
            .ListColumns("RECOURS").DataBodyRange(i_tbl) = Me.cboRecours.Value
            .ListColumns("Observations Coordonnateur/Enseignant Référent").DataBodyRange(i_tbl) = Me.cboMotifRefus.Value
                       
        End With
        MsgBox "Données mises à jour!", vbInformation
    Else
        ' si le nom n'existe pas , informe l'utilisateur
        MsgBox "Le nom n'existe pas dans le tableau.", vbExclamation
    End If

End Sub

  
        '**************************
'Procédure permettant de fermer un formulaire
        '**************************
Private Sub btnFermer_Click()
  Unload Me
End Sub
 

      '*******************************
'Procédure permettant d'accéder au tableau de données
        '*******************************
Private Sub btnVoir_Click()
  Sheets("Base CDO").Activate
  Range("A3").Select
  UserForm.Hide 'attention! ça ne ferme pas l'userform
End Sub
 

'***** compléter automatiquement la circonscription et le réseau*****
            '*****en fonction de l'établissememnt choisi*****

Private Sub cboEtabAct_Change()

Dim ws_data As Worksheet
Dim lstrw As Long
Dim i As Integer

 'vérifier qu'on a sélectionné un établissement
 If cboEtabAct.Value <> "" Then
    'ajouter la circo correspondante
    'feuille
    Set ws_data = Worksheets("ETABL et SECT")
    'dernière ligne
    lstrw = ws_data.Cells(Rows.Count, 3).End(xlUp).Row
    'boucle
    For i = 2 To lstrw
    'vérifier la catégorie
    If ws_data.Cells(i, 3) = cboEtabAct.Value Then
    'charger le nom de la circo
     cboCirco.Value = ws_data.Cells(i, 2)
     
 End If
 Next
End If
End Sub


'saisie de l'adresse des responsables légaux en majuscule
Private Sub TextBoxAdR1_Change()
TextBoxAdR1 = UCase(TextBoxAdR1)
End Sub
Private Sub TextBoxAdR2_Change()
TextBoxAdR2 = UCase(TextBoxAdR2)
End Sub
Private Sub TextBoxAdR3_Change()
TextBoxAdR3 = UCase(TextBoxAdR3)
End Sub

'saisie du nom du responsable legal en majuscule
Private Sub TextBoxR1_Change()
TextBoxR1 = UCase(TextBoxR1)
End Sub
Private Sub TextBoxR2_Change()
TextBoxR2 = UCase(TextBoxR2)
End Sub
Private Sub TextBoxR3_Change()
TextBoxR3 = UCase(TextBoxR3)
End Sub