Sélectionner un groupe de lignes

Code:

---

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

---

montre ton code entier car normalement ce que tu as ecris c'est juste avec le union , donc ca depend du contexte et donne le type d'erreur

Voici ma macro en cours d'étude,Merci.

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28

Sub Macro1() ' ' Macro1 Macro ' ' Sheets("BASE").Select Range("A2:M25000").Select Selection.Sort Key1:=Range("F2"), Order1:=xlAscending, Header:=xlGuess, _ OrderCustom:=2, MatchCase:=False, Orientation:=xlTopToBottom Set wh = ThisWorkbook.Worksheets     Columns("F:F").Select Selection.Find(What:="29", After:=ActiveCell, LookIn:=xlFormulas, LookAt _ :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _ False, SearchFormat:=False).Activate ActiveCell.Offset(0, -5).Select ligne = ActiveCell.Row   range1 = ("A" & ligne) range2 = ("M" & ligne + 20000) Set MyRange = Range(Union(range1, range2)) 'wh.Range(r1, r2).EntireRow.Delete 'EntireRow.Delete   'Selection.Clear contents   End Sub

---

Code:

---

1 2 3

Set range1 = Range("A" & Ligne) Set range2 = Range("A" & Ligne + 20) Set MyRange = Range(range1, range2)

---

A mon umble avis on ne peux pas faire un union sur seulement 2 valeurs vu que en fait tu peux faire un range de deux valeurs , donc ca doit marcher que pour >2 valeurs ;) a confirmer ou a tester :) met ce bout de code et ca marche :)

Code:

---

1 2 3 4 5

Set range1 = Range("A" & Ligne) Set range2 = Range("A" & Ligne + 20) Set range3 = Range("A" & Ligne + 10) Set MyRange = Application.Union(range1, range2, range3) MyRange.Select

---

voila comment ca marche je decouvre en meme temps que toi ;)

Citation:

---

Envoyé par ludopol

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

---

Pour créer un range contenant une seule cellule, tu peux faire comme ceci :

Code:

---

range("A" & ligne)

---

Citation:

---

Envoyé par tamtam64

Code:

---

1 2 3 4 5

Set range1 = Range("A" & Ligne) Set range2 = Range("A" & Ligne + 20) Set range3 = Range("A" & Ligne + 10) Set MyRange = Application.Union(range1, range2, range3) MyRange.Select

---

voila comment ca marche je decouvre en meme temps que toi ;)

---

merci quand même
Désolé, mais avec cette formule, je n'obtiens pas le résultat escompté.

En utilisant ta formule associée à un While Wend, ça fonctionne à merveille.
Merci encore.

Code:

---

1 2 3 4 5

Set range1 = Range("A" & Ligne) Set range2 = Range("A" & Ligne + 20) Set range3 = Range("A" & Ligne + 10) Set MyRange = Application.Union(range1, range2, range3) MyRange.Select

---

heureux de t'avoir aider ;) bonne continuation