VBA - simplifier code
Bonjour tout le monde,
Peut -on simplifier ce code ? Merci
Select Case test
Case 1: j = j - 6
grade_situ = Sheets("6_evolution_carriere").Cells(i, 6).Value
ech_situ = Sheets("6_evolution_carriere").Cells(i, 7).Value
Case 2: grade_situ = Sheets("6_evolution_carriere").Cells(i, j + 1).Value
ech_situ = Sheets("6_evolution_carriere").Cells(i, j + 2).Value
Case 3:
Do
annee_situ_test = Sheets("6_evolution_carriere").Cells(i, j).Value
If annee_situ_test > annee_notation Then test = 1
If annee_situ_test = annee_notation Then test = 2
If annee_situ_test < annee_notation Then test = 3
j = j + 7
Loop Until (annee_situ_test = "") Or (test = 1) Or (test = 2)
test2 = False
Select Case test
Case 1: j = j - 13
Case 2: j = j - 6
Case 3: annee_situ_test = Sheets("5_calcul_prochain_ae").Cells(i, 6).Value
If annee_situ_test <= annee_notation Then
j = 7
test2 = True
End If
If annee_situ_test > annee_notation Then j = j - 13
End Select
If test2 = True Then
grade_situ = Sheets("5_calcul_prochain_ae").Cells(i, 7).Value
ech_situ = Sheets("5_calcul_prochain_ae").Cells(i, 8).Value
Else
grade_situ = Sheets("6_evolution_carriere").Cells(i, j).Value
ech_situ = Sheets("6_evolution_carriere").Cells(i, j + 1).Value
End If
End Select
Peut -on simplifier ce code ? Merci
Select Case test
Case 1: j = j - 6
grade_situ = Sheets("6_evolution_carriere").Cells(i, 6).Value
ech_situ = Sheets("6_evolution_carriere").Cells(i, 7).Value
Case 2: grade_situ = Sheets("6_evolution_carriere").Cells(i, j + 1).Value
ech_situ = Sheets("6_evolution_carriere").Cells(i, j + 2).Value
Case 3:
Do
annee_situ_test = Sheets("6_evolution_carriere").Cells(i, j).Value
If annee_situ_test > annee_notation Then test = 1
If annee_situ_test = annee_notation Then test = 2
If annee_situ_test < annee_notation Then test = 3
j = j + 7
Loop Until (annee_situ_test = "") Or (test = 1) Or (test = 2)
test2 = False
Select Case test
Case 1: j = j - 13
Case 2: j = j - 6
Case 3: annee_situ_test = Sheets("5_calcul_prochain_ae").Cells(i, 6).Value
If annee_situ_test <= annee_notation Then
j = 7
test2 = True
End If
If annee_situ_test > annee_notation Then j = j - 13
End Select
If test2 = True Then
grade_situ = Sheets("5_calcul_prochain_ae").Cells(i, 7).Value
ech_situ = Sheets("5_calcul_prochain_ae").Cells(i, 8).Value
Else
grade_situ = Sheets("6_evolution_carriere").Cells(i, j).Value
ech_situ = Sheets("6_evolution_carriere").Cells(i, j + 1).Value
End If
End Select
4 réponses
-
ContributeurSalut le forum
Tehani, tu peux expliquer ce que tu veux faire ?
Mytå -
Salut Myta,
Je voulais juste savoir s'il y a vait une autre manière d'écrire ce code en moins de ligne -
ContributeurRe le forum
Que doit faire ton code, il faut deviner et reproduire un classeur !
Pas vraiment le temps pour cela.
Merci de donner des informations.
Mytå -
non je ne demandes pas de reproduire un classeur, je pensais qu'il y avait une autre facon d'écire ce morceau de code. Je ne veux pas une intervention sur mon programme tout entier, uniquement cette partie. Je pensais à des imbrications de Select ou je ne sais quoi? Tant pis c'est pas grave ! Merci quand meme !
