Zone de sélection lignes VB

Résolu
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

4 réponses

  1. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    Bonjour,
    -Sélectionner toutes les lignes (qui se suivent déjà) pour lesquelles la colonne C ="teste"
    Et en faire quoi ?
    A+
    0
  2. pgillou Messages postés 53 Statut Membre 1
     
    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
    0
  3. lermite222 Messages postés 9042 Statut Contributeur 1 199
     
    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+
    0
  4. pgillou Messages postés 53 Statut Membre 1
     
    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!
    0