Zone de sélection lignes VB
Résolu/Fermé
pgillou
Messages postés
49
Date d'inscription
lundi 23 août 2010
Statut
Membre
Dernière intervention
14 octobre 2010
-
29 sept. 2010 à 20:04
pgillou Messages postés 49 Date d'inscription lundi 23 août 2010 Statut Membre Dernière intervention 14 octobre 2010 - 5 oct. 2010 à 10:36
pgillou Messages postés 49 Date d'inscription lundi 23 août 2010 Statut Membre Dernière intervention 14 octobre 2010 - 5 oct. 2010 à 10:36
A voir également:
- Zone de sélection lignes VB
- Zone telechargement - Guide
- Vb cable - Télécharger - Audio & Musique
- Vb - Télécharger - Langages
- Site de vente en ligne particulier - Guide
- Partage de photos en ligne - Guide
4 réponses
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
29 sept. 2010 à 23:22
29 sept. 2010 à 23:22
Bonjour,
-Sélectionner toutes les lignes (qui se suivent déjà) pour lesquelles la colonne C ="teste"
Et en faire quoi ?
A+
-Sélectionner toutes les lignes (qui se suivent déjà) pour lesquelles la colonne C ="teste"
Et en faire quoi ?
A+
pgillou
Messages postés
49
Date d'inscription
lundi 23 août 2010
Statut
Membre
Dernière intervention
14 octobre 2010
1
30 sept. 2010 à 08:20
30 sept. 2010 à 08:20
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
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
lermite222
Messages postés
8702
Date d'inscription
dimanche 8 avril 2007
Statut
Contributeur
Dernière intervention
22 janvier 2020
1 190
30 sept. 2010 à 19:40
30 sept. 2010 à 19:40
J'ai toujour pas compris ce que tu veux faire mais si tu dois sélectionner toutes les lignes avec "Test" ...
Et je ne pense pas que faire un tri sur des lignes discontinues soit possible.
A+
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+
pgillou
Messages postés
49
Date d'inscription
lundi 23 août 2010
Statut
Membre
Dernière intervention
14 octobre 2010
1
5 oct. 2010 à 10:36
5 oct. 2010 à 10:36
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!
