Discussion :

[polpo56]

Bonjour à tous,

Je débute en VBA et je me trouve devant un problème que je n'arrive pas à résoudre malgré les nombreuses aides sur les forum.

Je souhaite sélectionner une plage de données mais les numéros de lignes et de colonnes sont variables

Voici le code qui ne fonctionne pas :

Code :

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

1
2
Set maplage = Sheets(seg).Range(Cells(lig1, 1), Cells(lig2, nbrcol))
maplage.Select

La définition de lig1, lig2 et nbrcol fonctionne sans souci mais lorque j'execute cette ligne j'ai l'erreur suivante :
" Erreur définie par l'application et par l'objet"

J'ai essayé beaucoup de codes différents sans succès.

Merci de votre aide.

Pauline.

[casefayere]

Bonjour,

essayes comme ça :

Code :

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

1
2
3
4
With Sheets("seg") ' si seg est le nom d'une feuille
  Set maplage = .Range(.cells(lig1, 1), .cells(lig2, nbrcol))
  maplage.Select 'ok mais "select" pour faire quoi ?
End With

[polpo56]

Merci de cette réponse rapide.

Je souhaite sélectionner cette plage pour après faire un graphique

seg est un nom de variable qui contient le nom de mes feuilles c'est pour cela que je ne mettais pas de guillemets.

Lorsque j'execute ton code j'ai l'erreur suivante :

"la methode select de la classe range a échoué"

[Invité]

Code :

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

Set maplage = Sheets("seg").UsedRange

[polpo56]

Merci de vos réponses mais j'ai finalement trouvé la solution en mettant ce code :

Code :

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

1
2
3
 
Sheets(seg).Select ' seg est le nom d'une variable
 Set maplage = ActiveSheet.Range(ActiveSheet.Cells(lig1, 1), ActiveSheet.Cells(lig2, nbrcol))

A priori, ce problème venait du fait que ce code est écrit sur une autre feuille que seg, excel essayait donc de sélectionner des lignes de cette autre feuille dans la feuille seg. Je ne suis pas ure d'être très clair, je suis novice et je n'ai moi même pas très bien compris la solution.

En tout cas ça fonctionne c'est le principale !

merci encore!

[Invité]

Sauf que l'usage des '.Select' est déconseillé.

Tu peux très bien faire la même chose avec ce code:

Code :

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

1
2
3
With Sheets(seg)
  Set maplage = .Range(.Cells(lig1, 1), .Cells(lig2, nbrcol))
End With

[casefayere]

donc, je t'avais bien orienté sans passer par "Select" pour la feuille

Code :

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

1
2
Sheets(seg).Select ' seg est le nom d'une variable
Set maplage = ActiveSheet.Range(ActiveSheet.Cells(lig1, 1), ActiveSheet.Cells(lig2, nbrcol))

peut devenir

Code :

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

1
2
3
With Sheets(seg) ' seg est le nom d'une variable
   Set maplage = .Range(.Cells(lig1, 1), .Cells(lig2, nbrcol))
End With

Edit : Je n'ai pas vu ta réponse Vcottineau