Problème macro et Sheets
Bonjour à tous,
Voici mon soucis,
J'exécute la macro ci-dessous de la feuille "Export" toutes mes données se génèrent bien dans la feuille ""QCP 1 TP sec"
sauf que pour la ligne Range("B1048576").End(xlUp).Offset(2, 0) = "TQ(sec)" ", "TQ(sec)" s'écris dans la feuille "Export"!!!!
Pourquoi je voudrai continué ma macro dans la feuille "QCP 1 TP sec"
Merci d'avance pour voter aide.
Dim test(23, 100000)
Dim Method(23, 100000)
Dim System(23, 100000)
Dim Country(23, 100000)
Dim Pool(23, 100000)
Dim PERIOD(23, 100000)
Dim LEVELNR(23, 100000)
Dim NR(23, 100000)
Dim MN(23, 100000)
Dim SD(23, 100000)
Dim CV(23, 100000)
Sub extractionQCP()
Lignes = 100000
l = 1
'lecture des données
For i = 2 To Lignes
If Sheets("Export").Range("J" & i).Value = "PT" Then
If Sheets("Export").Range("S" & i).Value = "2" Then
If Sheets("Export").Range("N" & i).Value = "IL: ACL Top Family" Then
If Sheets("Export").Range("R" & i).Value <> "14" Then
If Sheets("Export").Range("R" & i).Value <> "15" Then
With Sheets("Export")
test(1, l) = .Range("J" & i).Value
Method(2, l) = .Range("L" & i).Value
System(3, l) = .Range("N" & i).Value
Country(4, l) = .Range("O" & i).Value
Pool(5, l) = .Range("P" & i).Value
PERIOD(6, l) = .Range("R" & i).Value
LEVELNR(7, l) = .Range("S" & i).Value
NR(8, l) = .Range("T" & i).Value
MN(9, l) = .Range("U" & i).Value
SD(10, l) = .Range("V" & i).Value
CV(11, l) = .Range("W" & i).Value
l = l + 1
End With
End If
End If
End If
End If
End If
Next i
'Ecriture des données
With Sheets("QCP 1 TP sec")
For i = 1 To l
.Range("A" & i + 1).Value = test(1, i)
.Range("B" & i + 1).Value = Method(2, i)
.Range("C" & i + 1).Value = System(3, i)
.Range("D" & i + 1).Value = Country(4, i)
.Range("E" & i + 1).Value = Pool(5, i)
.Range("F" & i + 1).Value = PERIOD(6, i)
.Range("G" & i + 1).Value = LEVELNR(7, i)
.Range("H" & i + 1).Value = NR(8, i)
.Range("I" & i + 1).Value = MN(9, i)
.Range("J" & i + 1).Value = SD(10, i)
.Range("K" & i + 1).Value = CV(11, i)
Next i
Range("B1048576").End(xlUp).Offset(2, 0) = "TQ(sec)"
End With
End Sub
Bonjour
tu as oublié un point devant ton instruction range
.Range("B1048576").End(xlUp).Offset(2, 0) = "TQ(sec)"Merci, c'était vraiment tout bête!!!!!