Re : Tableau de Suivi et Tri suivant importance
Malheureusement je travail sur des données confidentielles c'est pour cela que je ne peu pas fournir de fichier cependant j'ai déjà fait ceci mais la boucle For ne marche pas correctement
Dim NbLigne, i As Integer
Dim Colonne, matriculeCherche As String
Dim Trouve As Boolean
Sheets.Add.Name = "Tableau Suivi"
NbLignes = Application.CountA(Sheets("BO_effectif").Range("A:A"))
Colonne = "J2:J" + CStr(NbLignes)
Sheets("BO_effectif").Range(Colonne).Copy
Range("D2").Select
ActiveSheet.Paste
Colonne = "H2:H" + CStr(NbLignes)
Sheets("BO_effectif").Range(Colonne).Copy
Range("B2").Select
ActiveSheet.Paste
Colonne = "I2:I" + CStr(NbLignes)
Sheets("BO_effectif").Range(Colonne).Copy
Range("C2").Select
ActiveSheet.Paste
For i = 2 To 100
Set result = Range("D2
100").Find(What:="J" & i, LookIn:=xlValues)
If result Is Nothing Then
Application.Cells("E", i).Value = "Non Formé"
End If
If Not result Is Nothing Then
Application.Cells("E", i).Value = "Formé"
End If
Next i
Je débute tout juste alors si vous avez des idées ou des conseils pour l'un ou l'autre des sujets je suis preneur