Discussion :

[shinji7800]

Bonjour,
Mon problème se situe au niveau de la ligne en gras du code: Erreur d'exécution '1004' La méthode Select de la classe Range a échouéCette partie de code est mise dans un bouton d'un userform

Code :

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

1
2
3
4
5
6
7
Dim i As Single
Dim vNewAdd As String
    
vFinCode = "$A$46"
vNewAdd = Workbooks("LISTE_CODE.xls").Sheets("LISTECODE").Range(vFinCode).Offset(1, 0).Address
Workbooks("LISTE_CODE.xls").Sheets("LISTECODE").Range(vNewAdd).EntireRow.Select
Selection.Insert Shift:=xlDown

Merci à vous

[Krovax]

Essaye ceci

Code :

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

Workbooks("LISTE_CODE.xls").Sheets("LISTECODE").Range(vNewAdd).EntireRow.Insert Shift:=xlDown

chez moi ce code marche très bien

Code :

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

1
2
3
Dim vNewAdd As String
vNewAdd = "A2"
Workbooks("test.xls").Sheets("feuil2").Range(vNewAdd).EntireRow.Insert Shift:=xlDown

[shinji7800]

merci pour cette réponse.

j'ai oublié de préciser que :

Code :

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

Workbooks("LISTE_CODE.xls").Sheets("LISTECODE").Range(vNewAdd).EntireRow.Insert Shift:=xlDown

fut ce que j'ai essayé en premier lieu et j'ai eu le même message d'erreur.

j'ai essayé ensuite de le faire en deux étape, sa a fonctionné deux ou trois fois avant que j’obtienne le même message d’erreur

A savoir que vNewAdd et vFinCode sont des variables globales

[Krovax]

Je voi plusieur possibilité

vNewAdd ne contient pas une adresse valide ou tu as une erreur dans un de tes nom.
Essaye

Code :

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

1
2
3
4
Workbooks("LISTE_CODE.xls").select
Sheets("LISTECODE").select
Range(vNewAdd).select
Range(vNewAdd).EntireRow.select

Avec un peu de chance tu verra ou ca ne colle pas.
Car la ligne en elle même semble bonne

si tu le met sur une seule ligne tu as quoi comme erreure?

[LeForestier]

Bonjour,
Les select ne sont pas supporter dans cette configuration.

Mais sans select c'est possible avec une ligne...

Code :

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

Workbooks("LISTE_CODE.xls").Sheets("LISTECODE").Rows(Range(vFinCode).Offset(1, 0).Row).Insert Shift:=xlDown

A+

[shinji7800]

Bonjour,
Les select ne sont pas supporter dans cette configuration.

Mais sans select c'est possible avec une ligne...

Code :

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

Workbooks("LISTE_CODE.xls").Sheets("LISTECODE").Rows(Range(vFinCode).Offset(1, 0).Row).Insert Shift:=xlDown

A+

merci pour cette precision je ne le savais pas !

j'essaye de suite

[shinji7800]

effectivement ta ligne fonctionne, mais parce que tu ne la sélectionne pas

dés que j'utilise:

Code :

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

.select

j'ai toujours l'erreur 1004


j'essaye ta méthode de diagnostic desuite je te tiens au courant

[LeForestier]

Beh.. si tu veux compliquer la chose, remplace

Code :

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

1
2
3
.Select
'par
.Activate