VBA Excel : sélection d'une plage variable

Résolu/Fermé

Vba
Variable

Pyanitsa - 2 juil. 2010 à 16:20
Mima - 24 sept. 2021 à 12:07

Dim MaPlage As Range

MaPlage = Range("A" & i & ":L" & i)

Je suis sur Excel 2003 et qqc cloche : VBA me renvoie "erreur d'éxecution 91 : variable objet ou variable de bloc With non définie". Vraiment, je ne comprends pas. Quelqu'un a une idée ?

Merci d'avance,
Pyanitsa.

A voir également:

Vba excel sélectionner une plage de cellules variable
Range( a & i) - Meilleures réponses
Vba range avec variable - Meilleures réponses
Frédéric cherche à faire le buzz sur les réseaux sociaux. il a ajouté une image de manchots sur une image de plage. retrouvez l'image originale de la plage. que cachent les manchots ? ✓ - Forum Windows
Liste déroulante excel - Guide
Ce programme est écrit en python. il construit un mot secret dans une variable mais il ne l'affiche pas. modifiez-le pour qu'il affiche le mot secret. exécutez-le. quel est ce mot secret ? ✓ - Forum Python
Excel additionner des cellules - Guide
Aller à la ligne dans une cellule excel - Guide

7 réponses

Réponse 1 / 7

thev Messages postés 1851 Date d'inscription lundi 7 avril 2008 Statut Membre Dernière intervention 15 avril 2024 681
2 juil. 2010 à 18:30

Range("A" & i & ":L" & i) représente une plage de cellules, c'est à dire un "objet Excel" au même titre qu'un classeur, une feuille, une cellule.
Pour assigner une variable (= MaPlage) à un objet, il faut utiliser l'instruction SET.

Cela dit , pour assigner ta plage variable de cellules , je préfère l'instruction :

set MaPlage = Columns("A:L").Rows(i)

que je trouve plus lisible.

Pyanitsa
2 juil. 2010 à 16:26

Nickel, Merci beaucoup, Thev ! Mais pourquoi y avait-il besoin du 'set' ? (je débute tout juste en programmation)

RAMIREZ
23 juil. 2019 à 14:44

MRC gros j'ai éviter d'etre un robot grace a ca

Mima
24 sept. 2021 à 12:07

Merci beaucoup, méthode simple, mais éfficace

Réponse 4 / 7

c2muz
4 janv. 2012 à 11:36

Bonjour,
Débutant VBA Excel 2003
comment sélectionner une plage de données,exemple : de A1 à Zdernière ligne non vide ?
Suite à un import d'un fichier externe le nombre de lignes importées varient et donc le numéro de la dernière ligne n'est jamais identique.
D'avance merci

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743
Modifié le 24 oct. 2018 à 09:32

Bonjour,
Essaye ceci :

Dim maPlage As Range
Dim DernLigne As Long

DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Set maPlage = Range("A1:Z" & DernLigne)

Vinc
22 mai 2014 à 17:34

Merci !!

sdzfz
22 avril 2015 à 12:38

Stylé !

Nessa > pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024
Modifié le 24 oct. 2018 à 09:33

Bonjour Pijaku! Etant novice en vba, je souhaite votre aide et votre expertise sur un code qui m'empêche d'avancer dans mon travail. En effet j'utilise votre code ci dessous

Dim maPlage As Range
Dim DernLigne As Long
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
Set maPlage = Range("A1:Z" & DernLigne)

Mon problème est que le Z n'est pas fixe, ça peut être P, S, R, AA, Z, AY...

J'ai pensé alors à définir une nouvelle variable DernColonne par exemple. Mais je n'arrive pas à définir "maPlage" avec la combinaison de DernColonne et de DernLigne.

Merci d'avance de votre aide.

pijaku Messages postés 12263 Date d'inscription jeudi 15 mai 2008 Statut Modérateur Dernière intervention 4 janvier 2024 2 743 > Nessa
20 juil. 2015 à 12:54

Bonjour,

Avec DernColonne, il faut utiliser Cells dans le Range :

Dim maPlage As Range
Dim DernLigne As Long, DernColonne As Integer
'dernière ligne colonne A
DernLigne = Range("A" & Rows.Count).End(xlUp).Row
'dernière colonne ligne 1
DernColonne = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
Set maPlage = Range(Cells(1, 1), Cells(DernLigne, DernColonne))

Réponse 6 / 7

Bosskev Messages postés 10 Date d'inscription mercredi 8 mai 2013 Statut Membre Dernière intervention 9 mai 2013 3
9 mai 2013 à 19:06

j'ai lu toutes vos réponses, mais est-ce que le VBA sur 2010 est le même que le VBA sur excel 2003 ???

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 209
10 mai 2013 à 23:37

Bonjour,

voir ici

eric

Réponse 7 / 7

Paul*Paul Messages postés 1 Date d'inscription vendredi 31 octobre 2014 Statut Membre Dernière intervention 31 octobre 2014 3
31 oct. 2014 à 13:01

Bonjour tout le monde,

Je dois sélectionner une plage de cellules en fonction d'une variable i, qui représente le numéro de la ligne voulue. Suite à des recherches sur ccm.net et d'autres forums, j'ai trouvé le code suivant :

Dim MaPlage As Range

MaPlage = Range("A" & i & ":L" & i)

Je suis sur Excel 2003 et qqc cloche : VBA me renvoie "erreur d'éxecution 91 : variable objet ou variable de bloc With non définie". Vraiment, je ne comprends pas. Quelqu'un a une idée ?

Merci d'avance,
Pyanitsa.
-------------------------------------------------------------------
V-31-10-2014
Bonjour, Il vous est également possible d'écrire MaPlage ainsi:

Dim MaPlage As Range
Dim i As Integer

Set MaPlage = Range("A" & i , "L"& i)
'La ligne i allant de la colonne A à la colonne L correspondra à MaPlage

Pour obtenir une p

eriiic Messages postés 24569 Date d'inscription mardi 11 septembre 2007 Statut Contributeur Dernière intervention 28 décembre 2023 7 209
31 oct. 2014 à 13:44

Bonjour,

Pourquoi recoller la question et la réponse #1 ????

eric

Paul*Paul
1 nov. 2014 à 13:23

Bonjour
Recopier la question permet de mieux apprécier la réponse.
Cette écriture ne figure pas dans la répons numéro 1
Range("A" & i , "L"& i) me paraît plus simple que l'écriture ci-dessous même si elle donne le même résultat
Range("A" & i & ":L" & i)

Discussions similaires

VBA: Range avec variable

VBA Range(cells(...).value=Range(cells(...).v

selection d'une plage de cellule variable VBA

Selection d'une plage variable

VBA; Sélection plage variable

VBA : Sélectionner une plage de cellules

Discussions similaires

Newsletters