Public Sub Affichage()
Dim k&
With Sheets("Résultat")
For k = 4 To 53
'Si les cellules sont numériques
If IsNumeric(.Cells(k, "I")) Then
.Cells(k, "I") = .Cells(k, "I") / 100
.Cells(k, "I").NumberFormat = "0%"
Else
End If
If .Cells(k, "I") = vbNullString Then _
.Cells(k, "I") = "Pas d'évaluation pour cet élève"
Next k
End With
.Range("I:I").Columns.Autofit
End Sub
5 – La possibilité de joindre des fichiers est donnée sur ce forum. Ne pas hésiter à utiliser cette fonction, tout en veillant que les données soient bidons et donc qu’aucune donnée confidentielle, nominative ne soit dans le fichier.
Il reste du ménage à faire dans ton fichier
Voir onglets suivants:
Finform
Résulat_formation
Diplomes
Résultat