L2 - T2SS

Sub MAJEtudiant2()

    Dim ws As Worksheet
    Set ws = ThisWorkbook.Sheets("formulaire2")  ' <--- Adaptez si le nom de la feuille diffère

    ' On suppose que l’utilisateur saisit les données en ligne 12 :
    '   A12 : ID
    '   B12 : Filière
    '   C12 : Année d’Étude
    '   D12 : Stage Affecté
    '   E12 : Nom
    '   F12 : c.Âge
    '   G12 : Salaire

    Dim idValue As Variant
    Dim filiereValue As String, anneeValue As String
    Dim stageValue As String, nomValue As String
    Dim ageValue As Variant, salaireValue As Variant
    
    ' 1) Lecture des cellules en ligne 12
    idValue = ws.Range("A12").Value
    filiereValue = ws.Range("B12").Value
    anneeValue = ws.Range("C12").Value
    stageValue = ws.Range("D12").Value
    nomValue = ws.Range("E12").Value
    ageValue = ws.Range("F12").Value
    salaireValue = ws.Range("G12").Value

    ' 2) Vérifier si un ID est saisi
    If idValue = "" Then
        MsgBox "Veuillez renseigner un ID en A12 avant de lancer la macro.", vbExclamation
        Exit Sub
    End If

    ' 3) Rechercher si l’ID existe déjà en colonne A
    Dim foundCell As Range
    Set foundCell = ws.Range("A:A").Find(What:=idValue, LookIn:=xlValues, LookAt:=xlWhole)
    
    If Not foundCell Is Nothing Then
        ' --> L'ID existe, on met à jour la ligne trouvée
        foundCell.Offset(0, 1).Value = filiereValue
        foundCell.Offset(0, 2).Value = anneeValue
        foundCell.Offset(0, 3).Value = stageValue
        foundCell.Offset(0, 4).Value = nomValue
        foundCell.Offset(0, 5).Value = ageValue
        foundCell.Offset(0, 6).Value = salaireValue
        
        MsgBox "Mise à jour effectuée pour l'ID : " & idValue, vbInformation

    Else
        ' --> L'ID n'existe pas, on ajoute une nouvelle ligne en bas
        Dim lastRow As Long
        lastRow = ws.Cells(ws.Rows.Count, "A").End(xlUp).Row + 1

        ws.Range("A" & lastRow).Value = idValue
        ws.Range("B" & lastRow).Value = filiereValue
        ws.Range("C" & lastRow).Value = anneeValue
        ws.Range("D" & lastRow).Value = stageValue
        ws.Range("E" & lastRow).Value = nomValue
        ws.Range("F" & lastRow).Value = ageValue
        ws.Range("G" & lastRow).Value = salaireValue
        
        MsgBox "Nouvel enregistrement créé pour l'ID : " & idValue, vbInformation
    End If
    
    ' 4) (Optionnel) Vider les cellules après l’opération
    ' ws.Range("A12:G12").ClearContents

End Sub