Discussion :

[dj-julio]

Bonjour,
Dans une feuille Excel, j'ai besoin de sélectionner plusieurs lignes non contigues.
J'obtiens le numéro de ces lignes par une variable (qu'on appellera : "LigneASuppr").
Je boucle afin d'instencier ma variable qui contiendra toutes les lignes à sélectionner (cette variable sera : "RangeTotal").
Voilà une partie de mon code :

Code :

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

1
2
3
4
5
6
 
RangeTotal = ""
For t = 1 To UBound(TableauValeurs) 'On boucle dans le tableau
  LigneASuppr = TableauValeurs(t) 'On récupère la ligne à vider de la feuille "ARCHIVES"
  RangeTotal = RangeTotal & ", A" & LigneASuppr & ":T" & LigneASuppr
Next t

En faisant cela, j'obtiens bien la liste des lignes à sélectionner, sous la forme :

RangeTotal = A28598:T28598, A28599:T28599, A28600:T28600, A28601:T28601, A28602:T28602

Si maintenant, je fais :

Code :

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

1
2
 
Range(RangeTotal).Select

il me renvoi l'erreur :

"Erreur d'exécution '1004': La méthode 'Range' de l'objet '_Worksheet' a échoué"

J'ai donc essayé de faire directement :

Code :

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

1
2
 
Range("A28598:T28598, A28599:T28599, A28600:T28600, A28601:T28601, A28602:T28602").Select

J'imagine donc que l'erreur peut venir du fait que dans ma variable "RangeTotal", je n'ai pas les guillemets de début et de
fin.
J'ai donc fais :

Code :

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

1
2
3
4
5
6
7
8
 
RangeTotal = ""
For t = 1 To UBound(TableauValeurs) 'On boucle dans le tableau
  LigneASuppr = TableauValeurs(t) 'On récupère la ligne à vider de la feuille "ARCHIVES"
  RangeTotal = RangeTotal & ", A" & LigneASuppr & ":T" & LigneASuppr
Next t
RangeTotal = Chr(34) & RangeTotal & Chr(34)
Range(RangeTotal).Select

Le Chr(34) étant là pour mettre les guillemets, mais le problème persiste et l'erreur reste la même.
Merci d'avance de votre aide !!

[ouskel'n'or]

Regarde Set Plage = Application.union(Range(Range1),Range(Range2),...) dans l'aide, tu pourras instancier ta plage sans pb.
Où range1,Range2 sont des string correspondant aux adresses successives (sont des variables, donc pas de guillemets)

[LeForestier]

Bonjour,
Bonjour Ouskel'n'or, j'étais aussi persuadé qu'il fallait employer Union pour lier des plages non contigües, et ben non! , voulant faire un test j'ai fait une macro automatique et voila ce qu'elle m'a donné...pour des lignes

Code :

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

1
2
3
4
5
6
Sub CopieLigne()
    Range("3:3,7:7,11:11,16:16,20:20").Select
    Selection.Copy
    Rows("24:24").Select
    ActiveSheet.Paste
End Sub

Et bizarement... cà fonctionne.
A+

[ouskel'n'or]

Bien sûr que ça fonctionne mais...

Je boucle afin d'instencier ma variable qui contiendra toutes les lignes à sélectionner

Elle est où l'instance si tu fais ça ?
Je guette ta réponse
A+

[dj-julio]

Bonjour,
Bonjour Ouskel'n'or, j'étais aussi persuadé qu'il fallait employer Union pour lier des plages non contigües, et ben non! , voulant faire un test j'ai fait une macro automatique et voila ce qu'elle m'a donné...pour des lignes

Code :

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

1
2
3
4
5
6
Sub CopieLigne()
    Range("3:3,7:7,11:11,16:16,20:20").Select
    Selection.Copy
    Rows("24:24").Select
    ActiveSheet.Paste
End Sub

Et bizarement... cà fonctionne.
A+

Oui ça marche très bien en faisant ça
Mais c'est à partir du moment où je remplace le " 3:3,7:7,11:11,16:16,20:20 " par "RangeTotal" que ça bug :'(

J'ai essayé la technique proposée par "ouskel'n'or" mais je n'y arrive pas :s
je ne comprends pas trop

Si je fais

Code :

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

Plage = Application.Union(Range("A20:T20"), Range("A28:T28")).Select

ça fonctionne, mais je ne vois pas comment faire pour l'adapter à mon code :s
Je vais chercher un peu plus au boulot dans pas longtemps

merci encore

P.S : pour "instancier", petite erreur de vocabulaire tu as bien compris ce que je voulais mettre

[ouskel'n'or]

Code :

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

1
2
3
4
5
6
7
Set Plage = Application.union(Range("A28598:T28598"),Range("A28599:T28599"),Range("A28600:T28600"),Range("A28601:T28601"),Range("A28602:T28602 "))
For each Cel in Plage
     'là je n'ai pas compris ce que tu voulais faire mais pour avoir les lignes
     'dans une variable de type string, c'est ça
     Lignes = Lignes & Cell.rows & ","
Next
Lignes = left(Lignes, Len(Lignes) -1)

Pas testé, tu veux bien le faire pour nous ?
Maintenant, si tu veux que "Lignes" soit également l'instance d'un range, tu dis
A+

[LeForestier]

Je crois qu'il y a un qui propos dans sont exposé, il parle de supprimé des lignes... et il détermine la ligne avec des coordonnées de colonnes ?
Pour moi, une ligne c'est par ex: 3:3 ou encore 7:7, sinon ce n'est pas une ligne mais une sélection.
Pourrais- tu nous dire si tu a des données passé la colonne T ?
Sinon, enlève les références aux colonnes et cà fonctionnerra, dans le cas contraire, emploi l'exemple de Ouskel'n'or.
A+
EDIT:
Pour supprimé des lignes (ou des colonnes) pas de problème, mais si tu veux 'SUPPRIME' des plages il faut employer un delete spécial avec le sens de suppression, (j'ai pas la commande en tête)
EDIT2

J'obtiens le numéro de ces lignes par une variable (qu'on appellera : "LigneASuppr").

Si j'interprète ta variable, ces lignes sont à supprimés ?, si oui, pourquoi ne pas les supprimés au fur et à mesure de leurs détections sans passer par un regroupement ?

[dj-julio]

Alors ce que je veux faire c'est :

1) Sélectionner toutes les lignes que me renvoie ma variable "LigneASuppr" (cf mon 1er message).
2) Supprimer ces lignes

-> J'arrive bien à récupérer mes lignes
-> Je n'arrive pas à les sélectionner de cette façon :

Code :

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

1
2
3
4
5
6
7
8
9
10
RangeTotal = ""
For t = 1 To UBound(TableauValeurs) 'On boucle dans le tableau
      LigneASuppr = TableauValeurs(t) 'On récupère la ligne à vider de la feuille "ARCHIVES"
       If t = 1 Then
             RangeTotal = "A" & LigneASuppr & ":T" & LigneASuppr
       Else
             RangeTotal = RangeTotal & ", A" & LigneASuppr & ":T" & LigneASuppr
       End If
Next t
Range(RangeTotal).Select

-> Je sais les supprimer.

De cette façon je ne sais pas comment faire :

Code :

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

1
2
 
Plage = Application.Union(??? RangeTotal ???).Select

Merci

P.S : je ne supprime pas les lignes au fur et à mesure parce que ça me créait des problèmes :s donc j'ai décidé de le faire à la fin de tout

Après ma colonne T il n'y a rien effectivement.

Pour les supprimer je ferais comme ça :

C'est pour ça que je cherche à selectionner (ça fonctionne pareil, mais ça m'évite d'avoir toutes les données à resaisir après).

Code :

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

1
2
 
Range(RangeTotal).Delete xlShiftUp

[dj-julio]

Lol j'ai du mal à me faire comprendre

Tout ce que tu as fais au dessus j'y arrive très bien
Je bloque en fait là où il faudrait que

Code :

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

1
2
 
Set Plage = Application.Union(Range("A28598:T28598"), Range("A28600:T28600"))

Soit en fait rempli grace à ma boucle

Code :

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

1
2
 
Set Plage = Application.Union(??, ??...)

Je rappelle que j'ai ça :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
RangeTotal = ""
For t = 1 To UBound(TableauValeurs) 'On boucle dans le tableau
            LigneASuppr = TableauValeurs(t) 'On récupère la ligne à vider de la feuille "ARCHIVES"
      If t = 1 Then
                RangeTotal = "A" & LigneASuppr & ":T" & LigneASuppr
      Else
                 RangeTotal = RangeTotal & ", A" & LigneASuppr & ":T" & LigneASuppr
      End If
Next t

Là, la variable "RangeTotal" me ramène bien une suite de lignes comme ça :

A28598:T28598, A28599:T28599, A28600:T28600, A28601:T28601, A28602:T28602

Dans mon appli, les lignes ne se suivent pas obligatoirement

[dj-julio]

Petit up

En fait, je ne sais pas pourquoi on est parti sur :

Code :

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

Set Plage = Application.Union(Range("A28598:T28598"), Range("A28600:T28600"))

Alors que

Code :

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

1
2
 
Range("A28598:T28598, A28599:T28599, A28600:T28600, A28601:T28601, A28602:T28602").Select

Fonctionne

Là où ça ne fonctionne pas, c'est si je fais :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
For t = 1 To UBound(TableauValeurs) 'On boucle dans le tableau
      LigneASuppr = TableauValeurs(t) 'On récupère la ligne à vider de la feuille "ARCHIVES"
      If t = 1 Then
            RangeTotal = "A" & LigneASuppr & ":T" & LigneASuppr
      Else
             RangeTotal = RangeTotal & ", A" & LigneASuppr & ":T" & LigneASuppr
      End If
Next t
'RangeTotal me ramène : A28598:T28598, A28599:T28599, A28600:T28600, A28601:T28601, A28602:T28602
Range(RangeTotal).Select

[alsimbad]

si je peux me permettre un petit commentaire a la lumière de la lecture du post dans son ensemble.

Alors ce que je veux faire c'est :

1) Sélectionner toutes les lignes que me renvoie ma variable "LigneASuppr" (cf mon 1er message).
2) Supprimer ces lignes

ça c'est un probleme traité des dizaines de fois

P.S : je ne supprime pas les lignes au fur et à mesure parce que ça me créait des problèmes :s donc j'ai décidé de le faire à la fin de tout

et ça également.
les problemes en question seraient t'y pas que si on supprime la ligne 2, la ligne 3 deviens la ligne 2 et ça décale tout? parce que si c'est ça, tout le monde ( a part dj-julio peut etre) connais la solution.
solution 1 on supprime tout ensemble ce qui oblige a selectionner toutes ces plages en, même temps
solution 2. on part de la fin

Code :

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

1
2
3
4
5
For t =  UBound(TableauValeurs) to 1
row(TableauValeurs(t) ).entirerow.delete
Next t

[dj-julio]

Et je déclare alsimbad chamion de la réponse
je vais faire ça en commençant par la fin ^^
j'y avais pas pensé :s
merci

[Singular]

Envoyé par alsimbad :

Code :

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

1
2
3
4
For t =  UBound(TableauValeurs) to 1
row(TableauValeurs(t) ).entirerow.delete
Next t

on devrait ajouter Step - 1 à la suite de To 1, non?