Zone de sélection lignes VB

Résolu
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. Contributeur
    Bonjour,
    -Sélectionner toutes les lignes (qui se suivent déjà) pour lesquelles la colonne C ="teste"
    Et en faire quoi ?
    A+
    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
      1. Contributeur
        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+
        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!