Zone de sélection lignes VB
Résolu
pgillou
Messages postés
53
Statut
Membre
-
pgillou Messages postés 53 Statut Membre -
pgillou Messages postés 53 Statut Membre -
Bonsoir à tous,
Besoin d'aide pour:
-Sélectionner toutes les lignes (qui se suivent déjà) pour lesquelles la colonne C ="teste"
Remarque:La zone de sélection doit couvrir toute les lignes répondant à la condition .
Si je ne suis pas assez clair merci de me le faire savoir
Merci beaucoup
Besoin d'aide pour:
-Sélectionner toutes les lignes (qui se suivent déjà) pour lesquelles la colonne C ="teste"
Remarque:La zone de sélection doit couvrir toute les lignes répondant à la condition .
Si je ne suis pas assez clair merci de me le faire savoir
Merci beaucoup
4 réponses
-
Bonjour,
-Sélectionner toutes les lignes (qui se suivent déjà) pour lesquelles la colonne C ="teste"
Et en faire quoi ?
A+ -
Bonjour,
En faite il s'agit de sélectionner les lignes pour effectuer un tri.
Voici la structure de code actuel qui ne permet de sélectionner q'une ligne:
Dim Lig As Long
Dim Col As String
Dim NbrLig As Long
Dim NumLig As Long
Dim Plage As Range
NumLig = 0
Col = "C" '
For Lig = 1 To NbrLig
If .Cells(Lig,Col).Value='"test"
.Cells(Lig,Col).EntireRow.Select
End If
Selection.Sort Key1:=Columns("S"), Order1:=xlAscending, Header:=xlGuess _
, OrderCustom:=7, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
Merci de ton aide et bonne journée -
J'ai toujour pas compris ce que tu veux faire mais si tu dois sélectionner toutes les lignes avec "Test" ...
Sub TR() Dim Lig As Long Dim List As String For Lig = 3 To Range("C65536").End(xlUp).Row If Cells(Lig, 3) = "Test" Then If List <> "" Then List = List & "," List = List & Lig & ":" & Lig End If Next Lig Range(List).Select Selection.Copy Sheets("feuil2").Select Rows("3").Select ActiveSheet.Paste End Sub
Et je ne pense pas que faire un tri sur des lignes discontinues soit possible.
A+ -
Désolé j'ai oublié de te répndre je m'étais poser un problème alors qu'il n'avait pas lie d'être je te remercie de ton aide!