Bonjour,
en fait reprenant mon codage depuis le debut et souhaitant optimiser les choses autant que possible
c'est tout au début en vue de récupérer les informations générales de projets
il n'y aucune boucle à ce stade ni rien d'autre
Dim Id_Project As Integer
Private Sub UserForm_Activate()
Id_Project = Sheets("DashBoard").Range("A1")
General_Data
End Sub
Private Sub General_Data()
Dim Project_Range As Integer
Project_Range = Application.Match(Id_Project, Worksheets("Projects").Range("A:A"), 0)
Project_Id = Application.Index(Worksheets("Projects").Range("A:M"), Project_Range, 2)
Project_Acronym = Application.Index(Worksheets("Projects").Range("A:M"), Project_Range, 3)
Project_Title = Application.Index(Worksheets("Projects").Range("A:M"), Project_Range, 4)
End Sub