Discussion :

[ifiii]

Bonjour à tous,

Je rencontre un problème dans la définition d'un Range dont la colonne est déterminée par une variable.

Voici mon code qui pose problème, intégré dans une boucle qui incrémente NoCol2 et NoLig2 :

Code :

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

1
2
3
4
5
6
7
8
9
10
     'Récupération de l'adresse de la cellule en NoCol2 de la Feuille 3
                cellForValue = Worksheets("Feuil3").Cells(20, NoCol2).Address(RowAbsolute:=False, ColumnAbsolute:=False) 'testé et fonctionne
 
               'récupération de la valeur de la cellule (une lettre est saisie dans la cellule concernée, "N" par exemple)
               Dim rangeCell As String
               rangeCell = Worksheets("Feuil3").Range(cellForValue).Value 'testé et fonctionne
 
               'utilisation de la valeur de la cellule pour obtenir le Range à récupérer en Feuille 2
               Dim rangeRecup As Range
               rangeRecup = Worksheets("Feuil2").Range(rangeCell & NoLig2) 'Cette ligne est en erreur d'excécution 1004

Je veux ensuite utiliser ma variable rangeRecup pour récupérer la valeur de la cellule concernée.

Exemple :

Code :

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

1
2
 
valeurArecuperer = Worksheets("Feuil2").Range(rangeRecup).Value

Auriez-vous une idée de ce qui bloque ?

En vous remerciant par avance.

[Thautheme]

Bonjour Ifiii, bonjour le forum,

J'ai pas bien compris ton speech mais plutôt que de définir une cellule par Range(adresse), utilise Cells(Ligne, Colonne). Tu définis une variable COL, tu l'initialises et tu l'utilises :
Exemple : A5 vaut 12

Code :

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

1
2
3
4
Dim COL As Interger
DIM PL As Range
COL = Range("A5").Value
Set PL=Range(Cells(1, COL), Cells(10, COL+5)

la plage PL est la plage L1:Q10...

[ifiii]

ma variable rangeCell contient obligatoirement une lettre, c'est pour ça que j'utilise Range et non pas Cells...

[gFZT82]

Bonjour,

Tu dois utiliser l’instruction Set pour associer une référence d’objet à la variable rangeRecup.

Code :

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

Set rangeRecup = Worksheets("Feuil2").Range(rangeCell & NoLig2)

puis

Code :

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

valeurArecuperer = rangeRecup.Value

Cordialement.

[ifiii]

J'ai la même erreur avec l'instruction Set.

Je pense en revanche que le problème vient bien de la référence objet.

Quand je force la référence ainsi par exemple :

Code :

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

1
2
 
rangeRecup = Worksheets("Feuil2").Range("N" & NoLig2)

J'obtiens bien un résultat.

Code :

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

1
2
 
Set rangeRecup = Worksheets("Feuil2").Range(rangeCell & NoLig2)

Là, j'ai de nouveau une erreur d'excécution 1004

[Thautheme]

Re,

Il me semble qu'il y a plus de lignes qu'il n'en faudrait :

Si les variables NoCol2 et NoLig2 sont connues :

Code :

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

1
2
3
4
5
6
7
8
9
10
Sub Macro1()
Dim COL As String
Dim PL As Range
 
'NoCol2 = 10
'NoLig2 = 4
COL = Worksheets("Feuil3").Cells(20, NoCol2).Value
Set PL = Worksheets("Feuil2").Cells(NoLig2, COL)
PL.Select
End Sub

Mais bizarrement aucune lettre dans les variables...