Discussion :

[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.
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.

[Auteur]

Bonsoir,

regarde la fonction Range.

[ludopol]

Bonsoir,

regarde la fonction Range.

Merci du conseil, mais je l'ai déjà essayée, peut- être mal.

[gnain]

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é.

[ludopol]

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.

[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é

[Docmarti]

Bonjour

Avec Range comme ceci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[vinc_bilb]

Bonjour,

Pour le filtrage, voir exemple de code sous

http://www.developpez.net/forums/d15...ches-expirees/

[ludopol]

Bonjour

Avec Range comme ceci.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ludopol]

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.

[ludopol]

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.

[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.

[Docmarti]

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.

[ludopol]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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