un petit coup de main s'il vous plaitRésolu

Question

salut tout le monde,
voila mon pb,jutilise la macro de galopin01 pour comparer deux colonnes.apres cette macro, les cases en rouge representent les elements que l'on utilise plus dans l'usine.je cherche a faire une macro qui recupere ces elements pour en faire une liste mais j'ai un pb avec cette macro.(au fait je suis un newby donc j'ai repris qq ligne de 
galopin01 pour cette macro)<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" /??>
Sub Macro3()
'
Dim iLR1%, i%
iLR1 = Worksheets("Feuil1").Cells(65535, 1).End(xlUp).Row
For i = 1 To iLR1
    If Worksheets("Feuil1").Cells(i, 1).Interior.ColorIndex = 3 Then
    Cells(i, 1).Select
    ActiveCell.Copy
    Application.Goto Reference:=Worksheets("Feuil2").Range("A1"), _
     scroll:=True
        If Range("A1").Value = "" Then
         ActiveSheet.Paste
        Else: ActiveCell.Offset(1, 0).Range("A1").Select
            ActiveSheet.Paste
        End If
    End If

Next
'
End Sub

merci d'avance a ceux qui sauront m'aider
ps : desole s'il n'y a pas d'accent mais la je suis en Angleterre et c'est un clavier qwerty

cs_bipou · Accepted Answer

Sub Macro3()
'
Dim iLR1%, i%
Dim j as integer
iLR1 = Worksheets("Feuil1").Cells(65535, 1).End(xlUp).Row
j=1
For i = 1 To iLR1
    If Worksheets("Feuil1").Cells(i, 1).Interior.ColorIndex = 3 Then
       Cells(i, 1).Copy Destination:=Worksheets("Feuil2").cells(j,1)
       j=j+1
    End If





Next
'
End Sub

pano78 · Answer

merci beaucoup bipou.

Un petit coup de main s'il vous plait

2 réponses

Votre réponse