[VBA-USERFORM] select de la classe range

**shinji7800** · 07/05/2009, 09h02

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** · 07/05/2009, 09h17

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** · 07/05/2009, 10h19

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** · 07/05/2009, 10h34

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** · 07/05/2009, 11h32

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** · 07/05/2009, 11h36

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

**shinji7800** · 07/05/2009, 11h37

Envoyé par 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+

merci pour cette precision je ne le savais pas !

j'essaye de suite

**LeForestier** · 07/05/2009, 11h40

Beh.. si tu veux compliquer la chose, remplace

Code :

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

1
2
3
.Select
'par
.Activate

**shinji7800** · 07/05/2009, 11h43

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

**cafeine** · 07/05/2009, 12h02

Hello,

comme te le dirait LeForestier (je pense), tu pourras colorer sans .Select

**shinji7800** · 07/05/2009, 12h08

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

merci pour toutes ces precisions !

**LeForestier** · 07/05/2009, 17h44

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

Code :

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

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+

**shinji7800** · 18/05/2009, 15h36

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 :

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

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

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

**LeForestier** · 18/05/2009, 18h19

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.

A+

**shinji7800** · 19/05/2009, 09h26

pas bête ! :$

merci encore pour vos interventions à tous !

[VBA-USERFORM] select de la classe range [XL-2002]

Macros et VBA Excel

Discussions similaires

Partager

Partager