Compléter macro sélection lignes

[Hoareau]

Bonjour

Je sélectionne des valeurs sur une ligne, les mets dans un tableau.

Je voudrais que les lignes qui correspondent aux valeurs du tableau soient sélectionnée en feuil3

merci

Sub Sélect_Lignes_Tab()

'Mets la ligne , ou les valeurs sélectionnées dans tableau
'Et les recopies dans une colonnes en transposant.

Set Acopier = Application.InputBox _
(prompt:="selectionner les cellules a traiter", _
Title:="cellules à traiter", Type:=8)


Acopier.Select

A = Selection
c = Selection.Count

Sheets("feuil3").Cells(1, 4) = c

Sheets("feuil3").Range("F1:F" & c) = Application.Transpose(A)


Dim cell As Range

For Each cell In Range("F1:F" & c)
If cell.Value >= 100 Then
cell.Font.ColorIndex = 10
End If
Next

End Sub

 

[Hoareau]

Re : Compléter macro sélection lignes

Pour être plus clair.
Je voudrais que si dans A = Selection , il y les valeurs 8,10,12,100
Seules les N° lignes 8,10,12,100 de feuil 3 soient sélectionnés



Sub Sélect_Lignes_Tab()

'Mets les valeurs sélectionnées dans un tableau A


Set Acopier = Application.InputBox _
(prompt:="selectionner les cellules a traiter", _
Title:="cellules à traiter", Type:=8)


Acopier.Select

A = Selection