[VBA-E] Pb propriété Selection de Worksheet

Bonjour,

Voilà j'effectue un select de type :

Code:

---

wb.Sheets("MonOnglet").Rows(Trim(Str(i + 1)) & ":" & Trim(Str(i + 2))).Select

---

wb étant un autre workbook que celui ds lequel se trouve ma macro.

Ensuite je suis censé faire une insertion de 2 lignes comme suit :

Code:

---

Selection.Insert Shift:=xlDown

---

Mon pb est que l'insertion ne se fait pas car "il" semble ne pas se trouver sur le bon workbook.

Le pb est que je n'arrive pas à lui spécifier un truc du genre :

Code:

---

wb.Sheets("MonOnglet").Selection.Insert Shift:=xlDown

---

Petit précision :
- ce bout de code fonctionen très bien lorsque wb réprésente le workbook ds lequel se trouve le code de la macro.
- lorsque la macro tourne "il" effectue bien une insertion de 2 lignes mais ds la sheet du workbook ds lequel se trouve la macro.

Qq'un aurait il une solution à me proposer ?

Merci d'avance.

jeff

bonsoir

as tu essayé

Code:

---

1 2	Wb.Sheets("MonOnglet").Rows(Trim(Str(i + 1)) & ":" & _ Trim(Str(i + 2))).Insert Shift:=xlDown

---

bonne soiree
michel

pourquoi tous ces trim et str ?

Code:

---

1 2 3

wb.Sheets("MonOnglet").Rows(i).Insert Shift:=xlDown

---

;)

Citation:

---

Envoyé par SilkyRoad

bonsoir

as tu essayé

Code:

---

1 2	Wb.Sheets("MonOnglet").Rows(Trim(Str(i + 1)) & ":" & _ Trim(Str(i + 2))).Insert Shift:=xlDown

---

bonne soiree
michel

---

Ah merci Michel !
Effectivement je n'avais pas tenté cette solution et ça marche impec !

Citation:

---

Envoyé par bbil

pourquoi tous ces trim et str ?

Code:

---

1 2 3

wb.Sheets("MonOnglet").Rows(i).Insert Shift:=xlDown

---

;)

---

Bon en fait je n'ai pas mis tout le code mais au dessus il y a des boucles etc etc ce qui fait que je dois passer par cette solution.