Bonjour à tous et merci d'avance pour votre aide,
J'ai sur un fichier la macro ci-dessous. Elle fonctionne très bien mais elle m'oblige à ressaisir toutes les données de la première colonne pour que la deuxième colonne se mette à jour. N'y aurait-il pas un moyen pour que la macro prenne en compte les données déjà saisies ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 6 Or Target.Count > 1 Then Exit Sub
'le 6 c'est pour la colonne où tu saisis donc colonne F pour la classe
'le >1 c'est pour empêcher une saisie multiple
If Target.Value = "" Then Range("D" & Target.Row).Value = ""
'Modif : si tu vides la cellule de la colonne F, cela vide la cellule correspondante de D
Application.EnableEvents = False 'pour que cela ne "scintille" plus
If IsNumeric(Target) = False Then Target.Value = UCase(Target.Value)
'Modif : les saisies dans la feuille ne sont plus sensibles à la casse
' tout passe en majuscule
Select Case Left(Target.Value, 2)
'Modif : ne considère que les 2 caractères de gauche de la saisie
Case "PR" 'pour préscolaire
Range("D" & Target.Row).Value = "Préscolaire"
Case "SP", "SM", "SG", "ST" 'ST pour STP, cela marche pour SP/SM bien sûr
Range("D" & Target.Row).Value = "Mat"
'le résultat est sur la même ligne que la saisie, mais en colonne F
Case "CP", "CE", "CM", "AD", "PE", "CJ" 'AD pour adapt, PE pour perf, CJ pour CJA
Range("D" & Target.Row).Value = "Prim"
Case "6", "5", "4", "3", "6°", "5°", "4°", "3°", "CA" 'CA pour CAP
Range("D" & Target.Row).Value = "Collège"
Case "3", "2", "1", "TE", "3°", "2°", "1°", "BE", "BT" 'BE pour BEP, BT pour BTS
'pour prendre en compte un 2è caractère si c'est ° après un chiffre au collège et lycée
Range("D" & Target.Row).Value = "Lycée"
Case "UN" 'pour université
Range("D" & Target.Row).Value = "Université"
Case "HA" 'pour handicapé
Range("D" & Target.Row).Value = "Handicapé"
End Select
Application.EnableEvents = True
End Sub
J'ai sur un fichier la macro ci-dessous. Elle fonctionne très bien mais elle m'oblige à ressaisir toutes les données de la première colonne pour que la deuxième colonne se mette à jour. N'y aurait-il pas un moyen pour que la macro prenne en compte les données déjà saisies ?
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column <> 6 Or Target.Count > 1 Then Exit Sub
'le 6 c'est pour la colonne où tu saisis donc colonne F pour la classe
'le >1 c'est pour empêcher une saisie multiple
If Target.Value = "" Then Range("D" & Target.Row).Value = ""
'Modif : si tu vides la cellule de la colonne F, cela vide la cellule correspondante de D
Application.EnableEvents = False 'pour que cela ne "scintille" plus
If IsNumeric(Target) = False Then Target.Value = UCase(Target.Value)
'Modif : les saisies dans la feuille ne sont plus sensibles à la casse
' tout passe en majuscule
Select Case Left(Target.Value, 2)
'Modif : ne considère que les 2 caractères de gauche de la saisie
Case "PR" 'pour préscolaire
Range("D" & Target.Row).Value = "Préscolaire"
Case "SP", "SM", "SG", "ST" 'ST pour STP, cela marche pour SP/SM bien sûr
Range("D" & Target.Row).Value = "Mat"
'le résultat est sur la même ligne que la saisie, mais en colonne F
Case "CP", "CE", "CM", "AD", "PE", "CJ" 'AD pour adapt, PE pour perf, CJ pour CJA
Range("D" & Target.Row).Value = "Prim"
Case "6", "5", "4", "3", "6°", "5°", "4°", "3°", "CA" 'CA pour CAP
Range("D" & Target.Row).Value = "Collège"
Case "3", "2", "1", "TE", "3°", "2°", "1°", "BE", "BT" 'BE pour BEP, BT pour BTS
'pour prendre en compte un 2è caractère si c'est ° après un chiffre au collège et lycée
Range("D" & Target.Row).Value = "Lycée"
Case "UN" 'pour université
Range("D" & Target.Row).Value = "Université"
Case "HA" 'pour handicapé
Range("D" & Target.Row).Value = "Handicapé"
End Select
Application.EnableEvents = True
End Sub
