Bonjour,
J'ai un fichier avec 2 onglets (Backup_Dashboard et raw_data).
Dans le 1er onglet (backup_dashboard) j'ai ma liste d'élément (unique) et une colonne par jour (à partir de la colonne D), et en cellule A1 la date du jour.
Dans le 2nd onglet (raw_data), j'ai les valeurs des résultats pour tous les jours du mois (à partir de la colonne P pour le 1, Q pour le 2, ...) que je souhaite reporter dans le 1er onglet.
J'ai un pb sur mon match/index pour récupérer la valeur de ma recherche dans le 2nd onglet et ensuite la copier dans la bonne cellule du 1er onglet.
Voici le code que j'ai commencé à écrire :
Sub test()
Sheets("Backup_Dashboard").Select
' DateOfTheDay contains the value of day that has to be compilated
DateOfTheDay = Range("A1").Value
' DayIntheMonth contains the number of the day in the current month : Example 23 or 18
DayInTheMonth = Day(DateOfTheDay)
Dim CheckClient As String
Dim Value_Backup As String
Sheets("Backup_Dashboard").Select
TotalRow = Range("A100000").End(xlUp).Offset(0, 1).Row
For Line = 3 To TotalRow
Sheets("Backup_Dashboard").Select
CheckClient = Cells(Line, 2).Value
Sheets("raw_data").Select
Set Control = Range("F:F").Find(What:=CheckClient)
If Control Is Nothing Then
Sheets("Backup_Dashboard").Select
Cells(Line, DayInTheMonth + 3).Value = "NOT"
Else
If Not (IsError(Application.Match(Control, Range("F:F"), 0))) Then
Value_Backup = Application.Index(DayInTheMonth + 16, Application.Match(Control, Range("F:F"), 0))
Else
Value_Backup = "KO"
End If
End If
Next Line
End Sub
Le message d'erreur est que j'ai est "type mistach sur Value_Backup.
Merci de votre aide à tous par avance.