Discussion :

[Tsuna78]

Bonjour,

Cela fait un petit moment que je bloque sur un truc sans doute stupide.

Quand je mets le code suivant :

Code :

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

1
2
3
 
oSheet.Rows("26:26").Select
Selection.Insert Shift:=xlDown

Ca me rajoute bien une nouvelle ligne.

Par contre quand je tape le code suivant :

Code :

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

1
2
3
4
5
6
7
 
Dim I As Long
 
I = 26
 
oSheet.Rows("I:I").Select
Selection.Insert Shift:=xlDown

Avez-vous une idée ?
Merci par avance.

[mout1234]

Code :

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

1
2
3
4
5
6
7
 
Dim I As Long
 
I = 26
 
oSheet.Rows(I & ":" & I).Select
Selection.Insert Shift:=xlDown

[Tsuna78]

Okay, ça fonctionne.

J'avais essayé de cette façon :

oSheet.Rows("I & ":"" & I").Select

Mais ça ne marchait pas et je m'embrouillais tout seul.

Merci bien

[SylvainJ]

Bonjour,
Sans doute qqchose comme ca:

Code :

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

oSheet.Rows(I & ":" & I).Select

Ciao,
Sylvain