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
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