[VBA-USERFORM] select de la classe range

Version imprimable

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:

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

07/05/2009, 09h17
Krovax
Essaye ceci

Code:

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

chez moi ce code marche très bien
Code:

1 2 3 Dim vNewAdd As String vNewAdd = "A2" Workbooks("test.xls").Sheets("feuil2").Range(vNewAdd).EntireRow.Insert Shift:=xlDown
07/05/2009, 10h19
shinji7800

merci pour cette réponse.

j'ai oublié de préciser que :

Code:

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
07/05/2009, 10h34
Krovax
Je voi plusieur possibilité

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

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?
07/05/2009, 11h32
LeForestier

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

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

Code:

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

A+
07/05/2009, 11h36
shinji7800

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

dés que j'utilise:

Code:

.select

j'ai toujours l'erreur 1004

j'essaye ta méthode de diagnostic desuite je te tiens au courant
07/05/2009, 11h37
shinji7800

Citation:

Envoyé par LeForestier

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

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

Code:

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
07/05/2009, 11h40
LeForestier
Beh.. si tu veux compliquer la chose, remplace
Code:

1 2 3 .Select 'par .Activate
07/05/2009, 11h43
shinji7800

je m'excuse par avance, je débute en VBA, je n'ai surement pas les bon automatisme.

enfaite si je veux absolument selectionner, c'est pour "colorier" toute la ligne, ainsi que y copier des données venant d'un autre classeur
07/05/2009, 12h02
cafeine

Hello,

comme te le dirait LeForestier (je pense), tu pourras colorer sans .Select
07/05/2009, 12h08
shinji7800

j'essaye cette piste, je n'ai pas encore trouvé la solution

merci pour toutes ces precisions !

Re,
avec ce système tu peu faire tout ce qui est possible sur Rows(R)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
Sub Test()
Dim R As Long
    vFinCode = "$A$6"
    With Workbooks("LISTE_CODE.xls").Sheets("LISTECODE")
        R = .Range(vFinCode).Row + 1
        .Rows(R).Insert Shift:=xlDown
        .Rows(R).Interior.ColorIndex = 3
        'Et pour copier une ligne d'un autre classeur
        '(L = le N° de la ligne de l'autre classeur)
        Workbooks("AutreClasseur.xls").Sheets("LaFeuill").Rows(L).Copy .Rows(R)
    End With
End Sub

Comme tu peu le constater... pas un seul Select !!;)
A+

18/05/2009, 15h36
shinji7800

Re, (Désolé pour cette réponse tardive, j'ai eu quelques soucis)

merci pour cette réponse, et surtout pour ta solution.

cependant j'ai un souci au niveau de :

Code:

Workbooks("AutreClasseur.xls").Sheets("LaFeuill").Rows(L).Copy .Rows(R)

Citation:

elle ne fonctionne pas, j'ai essayé de la corrigé mais je ne comprends pas la logique de cette commande.

je suis désolé, ton code fonctionne, j'ai fait une erreur lors de son utilisation (à la place de "L" j'ai mis "$D&3" au lieu de "3"

cependant j'aimerai quand même que tu m'explique la logique :)

merci par avance
18/05/2009, 18h19
LeForestier

un petit conseil, quand tu a une fonction que tu ne connaît pas ou que tu ne comprend pas tu double clic sur le mot pour le sélectionner et ensuite tu tape F1...fait le pour copy, With, etc.. et tu auras plus de renseignements que je ne pourrais t'en donner. :king:
A+
19/05/2009, 09h26
shinji7800

pas bête ! :$

merci encore pour vos interventions à tous !