Discussion :

[jeff37]

Bonjour,

Voilà j'effectue un select de type :

Code :

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

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 :

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

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 :

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

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

[SilkyRoad]

bonsoir

as tu essayé

Code :

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

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

bonne soiree
michel

[SfJ5Rpw8]

pourquoi tous ces trim et str ?

Code :

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

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

[jeff37]

pourquoi tous ces trim et str ?

Code :

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

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.

[jeff37]

bonsoir

as tu essayé

Code :

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

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 !