Bonjour,
mon objectif est de réaliser une macro (Excel) qui en fonction de l'intitulé du "Libellé Projet" indique dans la colonne "Activité-1" sa nature avec
1/ Une table de référence
Congés cadre Congés
Congés payés Congés
Maladie Maladie
JRTT Congés
2/et si le libellé projet n'existe pas dans la table, il faut reprendre le nom du champ comme dans l'exemple ci-dessous (voir la colonne Activité-1)
Libellé Projet Activité Activité-1
Congés cadre Congés
Gestion des risques Missions Gestion des risques
Autres travaux d'audit Autres travaux Autres travaux d'audit
Congés cadre Congés
JRTT Congés
Maladie Maladie
Autres travaux Autres travaux Autres travaux
Voila pour le moment ce que j'ai réalisé mais cela plante
Sub ClassActiv1()
Dim s As String, t As Variant, i As Integer, p As Integer, LastRow As Long
LastRow = Sheets("Importation_Données" ).Range("B" & Rows.Count).End(xlUp).Row
t = Sheets("Projet" ).Range("A3:A12" )
i = 3
p = 3
Range("F3" ).Select
For p = 3 To LastRow
If (("D" & i) <> "" ) Then
'If (("D" & i) = t) Then BUG ?
s = Application.WorksheetFunction.VLookup(Sheets("Importation_Données" ).Range("D" & i), Sheets("Projet" ).Range("A3:B12" ), 2, False)
Selection.Value = s
i = i + 1
Range("F" & i).Select
End If
'End If
Next p
MsgBox ("Traitement terminé" )
End Sub
Merci de votre aide