Bonjour à tous,
J'aimerai à partir d'une base de donnée mettre à jour un tableau en fonction des noms des collaborateurs et de leur compétences.
Le but pour un collaborateur nommé "DUPONT" avec une compétence A et une compétences B, voir apparaître ces compétences sur une autre feuille excel en positionnant une croix dans un tableau récapitulatif. J'ai commencé à écrire un code VBA mais je bloque vers la fin (notamment pour mettre la croix dans le tableau). Pouvez-vous m'aider ?
Sub job() 'mise à jour des compétences des collaborateurs'
Dim debut As Date, Fin As Date 'déclaration les variables de façon explicite'
Dim nblig As Long, i As Long, j As Long, k As Long, nom As String, job As String, competences As String
Dim result As Range
Application.ScreenUpdating = False
Dim jreport As Worksheet
Set jreport = Sheets("report_skills") 'attribution de la variable du worksheet'
Dim fjob As Worksheet
Set fjob = Sheets("Fichier") 'attribution de la variable'
fcp.Activate ' activation de la feuille fcp'
[B8:G13].ClearContents 'suppresion du tableau des competences'
nbLignes = jreport.[A1].CurrentRegion.Rows.Count 'comptage du nombre de ligne du tableau des compétences'
For i = 2 To nblig
nom = jreport.Cells(i, 1) 'attribution variable nom'
For j = 2 To nblig
job = jreport.Cells(i, 2) 'attribution de la variable job'
For k = 2 To 7
Set result = fcp.Range("A8:A13").Find(What:=nom, LookIn:=xlValues) 'comparaison entre les noms de la base de donnée et les noms de l'équipe'
If Not result Is Nothing Then
jreport.Cells(i, j) = fcp.Cells(7, k) 'comparaison des compétences entre les deux tableaux'
'mettre une croix dans le tableau par compétence'
End With
End If
End If
Next i
Next j
End Sub
Merci beaucoup pour votre aide