probléme au niveau mon code vba

[yaraar]

Bonjour a tous;

serait il possible de m'aider a afficher un tableau dont le resultat est comme ça :
Cell Name RRC Setup Success Rate(%)22/01/2024
ARI_0008_C01_309_f3 78.476523/01/2024
ARI_0008_C01_309_f3 88.970624/01/2024
ARI_0008_C01_309_f3 85.956825/01/2024
ARI_0008_C01_309_f3 96.56826/01/2024
ARI_0008_C01_309_f3 96.29327/01/2024
ARI_0008_C01_309_f3 96.815528/01/2024
ARI_0008_C01_309_f3 97.061529/01/2024
ARI_0008_C01_309_f3 96.715730/01/2024
ARI_0008_C01_309_f3 95.466931/01/2024
ARI_0008_C01_309_f3 96.805301/02/2024
ARI_0008_C01_309_f3 98.379402/02/2024
ARI_0008_C01_309_f3 98.071703/02/2024
ARI_0008_C01_309_f3 98.519104/02/2024
ARI_0008_C01_309_f3 98.534505/02/2024
ARI_0008_C01_309_f3 96,0971

j'ai essayer a modifier mon code plisieurs fois mais toujours je ne rçois une reponse juste
voici le code que j'ai ecrit :
Sub RechercherValeursEtColler()
Dim wsResult As Worksheet
Dim wsLTEKPIs As Worksheet
Dim wsTDB As Worksheet
Dim cellName As String
Dim kpiValue As String
Dim lastRowResult As Long
Dim lastRowLTEKPIs As Long
Dim i As Long, j As Long
Dim LTEKPIsDate As Date

' Définir les feuilles de calcul
Set wsResult = ThisWorkbook.Sheets("result")
Set wsLTEKPIs = ThisWorkbook.Sheets("lte kpis")
Set wsTDB = ThisWorkbook.Sheets("TDB")

' Récupérer les valeurs des cellules A2 et B2 de la feuille "result"
cellName = wsResult.Range("A2").Value
kpiValue = wsResult.Range("B2").Value

' Trouver la dernière ligne utilisée dans la feuille "lte kpis"
lastRowLTEKPIs = wsLTEKPIs.Cells(Rows.Count, "A").End(xlUp).Row

' Initialiser le compteur de lignes dans la feuille "TDB"
Dim newRow As Long
newRow = 2 ' Commencer à la ligne 2 pour éviter d'écraser les en-têtes

' Boucle à travers toutes les lignes de données de la feuille "lte kpis"
For j = 6 To lastRowLTEKPIs ' Commencer à la ligne 6 pour sauter les en-têtes
' Vérifier si les valeurs correspondent
If wsLTEKPIs.Cells(j, "D").Value = cellName And wsLTEKPIs.Cells(j, "I").Value = kpiValue Then
' Récupérer la date correspondante dans la colonne A de la feuille "lte kpis"
LTEKPIsDate = wsLTEKPIs.Cells(j, "A").Value
' Copier les valeurs correspondantes dans la feuille "TDB"
wsTDB.Cells(newRow, "A").Value = LTEKPIsDate ' Date
wsTDB.Cells(newRow, "B").Value = cellName ' Cell Name
wsTDB.Cells(newRow, "C").Value = kpiValue ' KPI Value
' Incrémenter le compteur de lignes dans la feuille "TDB"
newRow = newRow + 1
End If
Next j

MsgBox "Les valeurs ont été copiées avec succès dans la feuille TDB.", vbInformation
End Sub

et voici le fichier

 

[yaraar]

je n'arrive pas a mettre le fichier mais ci dessous queqlque description la partie que je voulais cherché sont la date /cell name et RRC setup se trouvent sous l'onglet LTE kpi et dans la feuille result je veux chercher la cellule A2 et avoir lhistorique des kpi.
le resultat que j'obtiens et une seule ligne

 

[Oneida]

Bonjour a tous;

serait il possible de m'aider a afficher un tableau dont le resultat est comme ça :
Cell Name RRC Setup Success Rate(%)22/01/2024
ARI_0008_C01_309_f3 78.476523/01/2024
ARI_0008_C01_309_f3 88.970624/01/2024
ARI_0008_C01_309_f3 85.956825/01/2024
ARI_0008_C01_309_f3 96.56826/01/2024
ARI_0008_C01_309_f3 96.29327/01/2024
ARI_0008_C01_309_f3 96.815528/01/2024
ARI_0008_C01_309_f3 97.061529/01/2024
ARI_0008_C01_309_f3 96.715730/01/2024
ARI_0008_C01_309_f3 95.466931/01/2024
ARI_0008_C01_309_f3 96.805301/02/2024
ARI_0008_C01_309_f3 98.379402/02/2024
ARI_0008_C01_309_f3 98.071703/02/2024
ARI_0008_C01_309_f3 98.519104/02/2024
ARI_0008_C01_309_f3 98.534505/02/2024
ARI_0008_C01_309_f3 96,0971

j'ai essayer a modifier mon code plisieurs fois mais toujours je ne rçois une reponse juste
voici le code que j'ai ecrit :
Sub RechercherValeursEtColler()
Dim wsResult As Worksheet
Dim wsLTEKPIs As Worksheet
Dim wsTDB As Worksheet
Dim cellName As String
Dim kpiValue As String
Dim lastRowResult As Long
Dim lastRowLTEKPIs As Long
Dim i As Long, j As Long
Dim LTEKPIsDate As Date

' Définir les feuilles de calcul
Set wsResult = ThisWorkbook.Sheets("result")
Set wsLTEKPIs = ThisWorkbook.Sheets("lte kpis")
Set wsTDB = ThisWorkbook.Sheets("TDB")

' Récupérer les valeurs des cellules A2 et B2 de la feuille "result"
cellName = wsResult.Range("A2").Value
kpiValue = wsResult.Range("B2").Value

' Trouver la dernière ligne utilisée dans la feuille "lte kpis"
lastRowLTEKPIs = wsLTEKPIs.Cells(Rows.Count, "A").End(xlUp).Row

' Initialiser le compteur de lignes dans la feuille "TDB"
Dim newRow As Long
newRow = 2 ' Commencer à la ligne 2 pour éviter d'écraser les en-têtes

' Boucle à travers toutes les lignes de données de la feuille "lte kpis"
For j = 6 To lastRowLTEKPIs ' Commencer à la ligne 6 pour sauter les en-têtes
' Vérifier si les valeurs correspondent
If wsLTEKPIs.Cells(j, "D").Value = cellName And wsLTEKPIs.Cells(j, "I").Value = kpiValue Then
' Récupérer la date correspondante dans la colonne A de la feuille "lte kpis"
LTEKPIsDate = wsLTEKPIs.Cells(j, "A").Value
' Copier les valeurs correspondantes dans la feuille "TDB"
wsTDB.Cells(newRow, "A").Value = LTEKPIsDate ' Date
wsTDB.Cells(newRow, "B").Value = cellName ' Cell Name
wsTDB.Cells(newRow, "C").Value = kpiValue ' KPI Value
' Incrémenter le compteur de lignes dans la feuille "TDB"
newRow = newRow + 1
End If
Next j

MsgBox "Les valeurs ont été copiées avec succès dans la feuille TDB.", vbInformation
End Sub

et voici le fichier

Bonjour,
Pas de fichier en vue!

 

[Dranreb]

Bonjour.
Essayez :

If wsLTEKPIs.Cells(j, "D").Value = cellName And Abs(wsLTEKPIs.Cells(j, "I").Value - kpiValue) < 0.0001 Then