touhaut
Nouveau membre
Bonjour,
Je débute tout juste VBA et je charge à copier toutes les lignes ayant pour condition si la colonne S il y a une couleur alors il faut les coller sur une feuille. j'ai déjà regarder quelques réponses sur ce forum mais je ne parviens tout de même pas à résoudre mon problème. j'ai essayé d'adapter ce code a mon cas, mais le programme copie la cellules au dessus de celle qu'il devrait normalement copier.
En esperant que quelqu'un pourra m'aider
Merci d'avance.
Touhaut
Je débute tout juste VBA et je charge à copier toutes les lignes ayant pour condition si la colonne S il y a une couleur alors il faut les coller sur une feuille. j'ai déjà regarder quelques réponses sur ce forum mais je ne parviens tout de même pas à résoudre mon problème. j'ai essayé d'adapter ce code a mon cas, mais le programme copie la cellules au dessus de celle qu'il devrait normalement copier.
Code:
Sub transfertDbl()
Dim iSheet As Worksheet, tSheet As Worksheet, i As Long, a As Integer
Set iSheet = Sheets("Feuil1")
Set tSheet = Sheets("Feuil2")
a = 1
For i = 2 To Application.WorksheetFunction.CountA(iSheet.Range("S:S"))
If iSheet.Range("S" & i).Interior.ThemeColor = xlThemeColorDark1 Then
'tSheet.Cells(a, 1).Value = iSheet.Cells(i, 1).Value
tSheet.Rows(a).Value = iSheet.Rows(i).Value
a = a + 1
End If
Next i
Merci d'avance.
Touhaut