Problème de selection d'une plage

Version imprimable

25/04/2012, 17h19
linkcr15

Problème de selection d'une plage

Bonjour,

Je ne comprends pas pourquoi ces lignes de code ne fonctionne pas :

Code:

Sheets("Demande").Range(Sheets("Demande").Cells(1, 1), Sheets("Demande").Cells(466, 12)).Select

Code:

Sheets("Demande").Range("A1:L466").Select

Je souhaite sélectionner la plage "A1:L466" de la feuille Demande.

Est-ce que quelqu'un peut m'expliquer d'où vient mon erreur svp?

Je tourne sous Excel 2003

Merci d'avance pour vos réponses.
25/04/2012, 22h50
hunteshiva
Bonjour,

j'ai pas de code sous la mains, mais je crois que c'est:
Code:

1 2 3 4 ' Décalaration d'un range Dim MonRange as Microsoft.Office.Interop.Excel.Range ' récupération du range MonRange = Sheets("Demande").Range("A1:L466")
Citation:

ces lignes de code ne fonctionne pas

oui tu pourrais nous dire ce que Visual Studio te dit?
et laisser un peu plus de code... que l'on voie s'il y a une incohérence dans l'utilisation

Bonjour,
Sheets est un type collection de toutes les feuilles du classeur spécifié ou actif.
Sheets est aussi une propriété de Workbook prévue pour retourner une collection Sheets représentant toutes les feuilles de ce classeur.
Elle est en lecture seule.
On ne peut pas les utiliser directement.

Exemple d'emploi :
Code:

1 2 3 4 5 6 7 ' Get sheet. Dim objSheet As Excel.Worksheet = CType(objWorkbook.Sheets("Feuil1"), Excel.Worksheet) ' Get range. Dim objRange As Excel.Range 'récupération du range objRange = CType(objSheet.Range("A1:L466"), Excel.Range) objRange.Select()
Avec l'import suivant :

Code:

Imports Microsoft.Office.Interop

Tout d'abord merci pour vos réponses à vous deux.

hunteshiva : Voici l'erreur :

Citation:

"Erreur d'éxecution '1004'
La méthode Select de la classe Range à échoué

Et voici un peu plus de code ;)

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
Dim feuilDemande 'Définit la feuille du classeur à utiliser
Dim compteur As Integer 'Définit un compteur de 200 à 1 pour trouver la derniere ligne écrite du tableau
Dim derniereLigneTableau As Integer 'Définit la dernière ligne du tableau
Dim Plage
 
'Setters qui permettent d'initialiser les variables
Set feuilDemande = Application.Workbooks("test").Worksheets("Demande")
 
'On recherche la dernière ligne du tableau à récupérer dans le Spreadsheet
For compteur = 2000 To 1 Step -1
'Pour trouver la dernière ligne, on vérifie que la colonne A est vide
If feuilDemande.Cells(compteur, 1).Value <> "" Then
derniereLigneTableau = compteur
Exit For 'On arrête la boucle For si on a trouvé, sinon la dernière ligne vaudra toujours 0
End If
Next compteur
 
'Plage = "A1:L" & derniereLigneTableau
'Sheets("Demande").Activate
'Range(Plage).Select
'Selection.Copy
Sheets("Demande").Range("A1:L466").Select
Selection.Copy
Usr_Affiche.Spsheet_Demande.Range("A1").Paste

chrismonoye : Tu peux me dire comment réaliser un Imports stp? Je ne sais pas comment faire :(

En tout cas merci de vous pencher sur mon problème!

26/04/2012, 09h49
-N4w4k-

Salut

Citation:

comment réaliser un Import

Il faut que tu ajoute la référence de la DLL (click droit sur ton projet, Ajouter une référence..) et que tu marque Imports Microsoft.Office.Interop en haut de ta classe.

Cependant je suis tombé sur ce topic qui pourrait s'appliquer à ton cas.. (topic social.msdn)
26/04/2012, 10h54
linkcr15

Je n'ai pas ajouter une référence lors d'un click droit sur mon projet.
Et quand je vais dans Outils => Références, rien ne fais référence à Microsoft.Office.Interop
26/04/2012, 11h04
-N4w4k-

Citation:

Je n'ai pas ajouter une référence lors d'un click droit sur mon projet.

8O. Faut clicker sur le projet dans l'explorateur de solution. Sinon tu vas dans les propriétés du projet, dans l'onglet "Références" et tu click sur "Ajouter..".
26/04/2012, 11h39
chrismonoye

Citation:

Envoyé par linkcr15

Je n'ai pas ajouter une référence lors d'un click droit sur mon projet.
Et quand je vais dans Outils => Références, rien ne fais référence à Microsoft.Office.Interop

Normalement c'est dans PROJET de ton menu du haut de ton IDE, tu dois avoir "ajouter une référence"
Dans la fenêtre qui s'affiche, cliquer sur l'onglet COM et sélectionner "Microsoft Excel ........ Object Library " ou approchant.
Et OK.

Salut,

Code:

1
2
3
4
5
6
7
8
'On recherche la dernière ligne du tableau à récupérer dans le Spreadsheet
For compteur = 2000 To 1 Step -1
'Pour trouver la dernière ligne, on vérifie que la colonne A est vide
If feuilDemande.Cells(compteur, 1).Value <> "" Then
derniereLigneTableau = compteur
Exit For 'On arrête la boucle For si on a trouvé, sinon la dernière ligne vaudra toujours 0
End If
Next compteur

Pour trouver la dernière ligne sur la colonne A (je considère que la colonne A est la première de ta feuille "demande"), moi je ferais simplement :

1)Recherche de la ligne vide en partant du haut de la feuille

Code:

1
2
3
4
5
'je sélectionne la feuille Demande (pas nécessaire si tu n'as qu'une feuille dans ton classeur)
Worksheets("Demande").Activate
'je cherche la ligne vide qui sera dans la variable numLignevide
Dim numLignevide as Integer
    numLignevide = ActiveSheet.Columns(1).Find("").Row

2)Recherche de la ligne vide en partant du bas de la feuille

Code:

1
2
3
4
5
'je sélectionne la feuille Demande (pas nécessaire si tu n'as qu'une feuille dans ton classeur)
Worksheets("Demande").Activate
'je cherche la ligne vide qui sera dans la variable numLignevide
Dim numLignevide as Integer
    numLignevide = Range("A65000").End(xlUp).Offset(1, 0).Row

J'ai vu aussi ceci que tu as désactivé :

Code:

'Plage = "A1:L" & derniereLigneTableau

Il me semble que la syntaxe correct est :

Code:

1
2
Dim Plage as string
Plage = "A1" & ":L" & derniereLigneTableau

26/04/2012, 17h00
linkcr15

Bon et bien je n'ai pas trouvé Microsoft Interop donc je laisse tomber =p
Merci à vous quand même ^^

Mafioso : Mon code est plus lisible désolé je vais garder le mien :p
Sa ne vient pas de toi mais de moi, je ne suis pas expert en visual basic.
J'ai mis des bouts de code en commentaire car ce sont des choses qui fonctionnent à moitié donc à défaut de tout supprimer, je les met en commentaire c'est tout, mais tu n'as pas besoin de séparer les deux cellules comme toi, j'ai testé :P
26/04/2012, 17h12
IL-MAFIOSO

Re,

Pas de soucis, pour les lignes vides, c'était un moyen + court pour arriver au même résultat que j'utilisais quand je développais des macros sous Excel ;)

Pour le reste, tu vas dans Projet puis ajouter une référence. Dans COM moi j'ai trouvé "Microsoft Excel .... Object Library"
Je pense que c'est cette référence que tu as besoin pour manipuler des feuilles Excels.
26/04/2012, 17h45
shayw

Salut

Citation:

Bon et bien je n'ai pas trouvé Microsoft Interop donc je laisse tomber =p

je pense que cela dépend du framework comme j'ai le framework 3.5
pour l'excel je coche dans les réferences net microsoft.office.interop.excel
et pour le framework 4 c'est dans les com
26/04/2012, 17h58
linkcr15

De toute façon j'ai laissé tombé, maintenant je sélectionne la feuille en l'activant et je prend mon range depuis la feuille activée et ça fonctionne bien!

Merci pour votre aide à tous quand même! :ccool: