Sélectionner un groupe de lignes

Version imprimable

Voir 40 message(s) de cette discussion en une page

25/05/2015, 19h31
ludopol

Sélectionner un groupe de lignes

Bonjour,
Je recherche la formule pour sélectionner, par macro VBA, un groupe de lignes dans une feuille Excel, à partir d'une cellule aléatoire mais auparavant précisée, jusqu'à la fin de la page. merci de votre aide.
Je n'ai pas du être assez précis dans ma question.
Jusqu'ici, j'utilisais la fonction While / Wend et chaque ligne à supprimer s'effaçait ligne par ligne, ce qui me demandait pas loin de 3 minutes par opération.
Mon souhait est de sélectionner une plage de cellules ou de lignes différentes des critères approuvés, par exemple "22" ou "2015" et les supprimer ou copier d'un bloc.
La première cellule pourrait être nommée "X" et serait dans la colonne A comportant une valeur, et la dernière "Z" serait dans la colonne M dans une ligne différente mais vide.
25/05/2015, 20h42
Auteur

Bonsoir,

regarde la fonction Range.
25/05/2015, 23h14
gnain

Citation:

Envoyé par ludopol

Bonjour,
Je recherche la formule pour sélectionner, par macro VBA, un groupe de lignes dans une feuille Excel, à partir d'une cellule aléatoire mais auparavant précisée, jusqu'à la fin de la page. merci de votre aide

Bonjour,
débute avec l'enregistreur de macro.
ensuite il faut adapter quelque peut le code généré.

ensuite, si tu as de la difficulté, revient nous, en nous expliquant exactement ou est-ce que tu bloque pour adapté le code généré.
25/05/2015, 23h37
ludopol

Citation:

Envoyé par Auteur

Bonsoir,

regarde la fonction Range.

Merci du conseil, mais je l'ai déjà essayée, peut- être mal.
25/05/2015, 23h39
ludopol

Citation:

Envoyé par gnain

Bonjour,
débute avec l'enregistreur de macro.
ensuite il faut adapter quelque peut le code généré.

ensuite, si tu as de la difficulté, revient nous, en nous expliquant exactement ou est-ce que tu bloque pour adapté le code généré.

Merci, j'ai modifié et précisé ma question.
26/05/2015, 09h58
vinc_bilb

Bonjour,

Pour ce genre de traitement, je suggère toujours la même chose, ayant vu des rapports 10 à 40 sur le temps de processing:

- Filtrer le range sur les valeurs à supprimer
- Utiliser le Range.SpecialCells(xlCellTypeVisible) pour la suppression
- Enlever le filtre .... et le tour est joué

:)

Bonjour

Avec Range comme ceci.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub tt()
 
Set wh = ThisWorkbook.Worksheets("Feuil2")
 x = 5
 m = 10
 
 Set r1 = wh.Cells(x, "A")
 Set r2 = wh.Cells(m, "M")
 
  wh.Range(r1, r2).EntireRow.Delete
 
End Sub

26/05/2015, 16h31
vinc_bilb

Bonjour,

Pour le filtrage, voir exemple de code sous

http://www.developpez.net/forums/d15...ches-expirees/
27/05/2015, 21h42
ludopol

Citation:

Envoyé par vinc_bilb

Bonjour,

Pour ce genre de traitement, je suggère toujours la même chose, ayant vu des rapports 10 à 40 sur le temps de processing:

- Filtrer le range sur les valeurs à supprimer
- Utiliser le Range.SpecialCells(xlCellTypeVisible) pour la suppression
- Enlever le filtre .... et le tour est joué

:)

Oui mais comment filtrer le range des valeurs à supprimer, sachant que celles-ci se trouvent toujours en bas de tableau après les fonctions de tris préalablement programmées.
27/05/2015, 22h09
clementmarcotte

Bonjour,

Qui dit filtre, dit condition. Qui dit condition, dit ça dépend des données.

Une fois que tu as trouvé la condition. l'enregistreur de macros donne le code sur un plateau d'argent.
28/05/2015, 09h26
vinc_bilb

Citation:

Envoyé par clementmarcotte

Bonjour,
Une fois que tu as trouvé la condition. l'enregistreur de macros donne le code sur un plateau d'argent.

8O Plateau d'argent? OK, c'est une parole d'expert :) Peut-être en argent mais le plateau est vraiment lourdingue.... Trêve de plaisanteries, c'est ce qui m'a le plus aidé à mes débuts

Citation:
Envoyé par Docmarti
Bonjour

Avec Range comme ceci.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Sub tt() Set wh = ThisWorkbook.Worksheets("Feuil2") x = 5 m = 10 Set r1 = wh.Cells(x, "A") Set r2 = wh.Cells(m, "M") wh.Range(r1, r2).EntireRow.Delete End Sub
Merci, mais ça ne fonctionne pas

28/05/2015, 14h25
Docmarti

Citation:

Envoyé par ludopol

Jusqu'ici, j'utilisais la fonction While / Wend et chaque ligne à supprimer s'effaçait ligne par ligne, ce qui me demandait pas loin de 3 minutes par opération.

Donne le code que tu utilisais et qui fonctionnait. On pourra le modifier avec plus de précision.

Bonsoir,

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
Sub Suppression()
'
' 
'
 
'
    Sheets("BASE").Select
     Range("A2:M25000").Select
     Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Header:=xlGuess, _
        OrderCustom:=2, MatchCase:=False, Orientation:=xlTopToBottom
 
     Range("A2").Select
     While Cells(ActiveCell.Row, ActiveCell.Column).Value <> ""
     While Cells(ActiveCell.Row, ActiveCell.Column + 5).Value <> "22"
     ActiveCell.Select
     Selection.EntireRow.Delete
     Wend
     ActiveCell.Offset(1, 0).Select
     Wend
End Sub

Merci de ta réponse

28/05/2015, 22h06
clementmarcotte

Bonjour,

Citation:

Envoyé par vinc_bilb

8O Plateau d'argent? OK, c'est une parole d'expert :) Peut-être en argent mais le plateau est vraiment lourdingue.... Trêve de plaisanteries, c'est ce qui m'a le plus aidé à mes débuts

C'est, pour ainsi dire, un "passage obligé". :lol:
01/06/2015, 21h21
ludopol

Bonsoir, vous m'avez fait recercher, mais je n'ai pas trouvé.

Merci de votre réponse.
Cependant,
je pense que pour mon problème, il faut partir d'une autre solution:
VBA me donne le numéro de ligne aléatoire de la cellule située dans la colonne A.
Je voudrais concaténer la colonne A avec le numéro de la ligne à savoir ( A:ligne ) et le transformer par exemple en ( A: 3978).
Si j'arrive tout mon problème sera résolu.
A l'avance, merci de votre réponse.
02/06/2015, 01h23
Docmarti

Pour concaténer, on utilise l'opérateur de concaténation &

Code:

"A:" & ligne
02/06/2015, 01h47
tamtam64

Union aussi ca marche

Sinon un union ca doit marcher aussi

Code:

Set MyRange = Range(union(range1,range2..))

c'est comme en math tu peux faire un range de plusieurs lignes ou colonnes
02/06/2015, 23h31
ludopol
Citation:

Envoyé par tamtam64

Sinon un union ca doit marcher aussi

Code:

Set MyRange = Range(union(range1,range2..))

c'est comme en math tu peux faire un range de plusieurs lignes ou colonnes

Merci, avec ta formule, je réunie bien les cellules à sélectionner
Code:

1 2 3 4 5 ligne = ActiveCell.Row range1 = ("A" & ligne) range2 = ("M" & ligne + 20000) Set MyRange = Range(Union(range1, range2))
Mais la dernière ligne Set MyRange se met en jaune, même avec les .. que tu m'as indiqué.
02/06/2015, 23h35
ludopol

Citation:

Envoyé par Docmarti

Pour concaténer, on utilise l'opérateur de concaténation &

Code:

"A:" & ligne

Merci de ta réponse,

J'ai effectivement pu concaténer, mais je n'arrive pas à en faire un objet Range.
Sympa de t'occuper de mon problème.

Voir 40 message(s) de cette discussion en une page