Range défini avec variable

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:

---

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:

---

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

---

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

En vous remerciant par avance.

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:

---

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...

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

Bonjour,

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

Code:

---

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

---

puis

Code:

---

valeurArecuperer = rangeRecup.Value

---

Cordialement.

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:

---

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

---

J'obtiens bien un résultat.

Code:

---

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

---

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

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:

---

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...

Pour relier ton exemple au mien, dans la variable COL qui chez moi est représentée par la variable rangeCell, j'obtiens obligatoirement une lettre et non un chiffre, je ne peux donc pas l'utiliser en tant que Colonne dans Cells, puisque selon moi nous devons obligatoirement avoir Cells(NuméroLigne, NuméroColonne). Je ne peux pas avoir par exemple Cells(1, N). Dites moi si je me trompes...

Bon finalement j'ai trouvé. Ma variable rangeCells pouvait être vide, d'où l'erreur d'instruction puisque la détermination du Range n'était alors pas toujours possible. Désolé pour le dérangement et merci pour vos réponses :D:D:D

Re,

Citation:

---

Envoyé par ifiii

Pour relier ton exemple au mien, dans la variable COL qui chez moi est représentée par la variable rangeCell, j'obtiens obligatoirement une lettre et non un chiffre, je ne peux donc pas l'utiliser en tant que Colonne dans Cells, puisque selon moi nous devons obligatoirement avoir Cells(NuméroLigne, NuméroColonne). Je ne peux pas avoir par exemple Cells(1, N). Dites moi si je me trompes...

---

Alors je te le dis, tu te trompes !... Tu peux écrire Cells(1, 1) ou Cells(1, "A") les deux sont équivalent de Range("A1"). Comme COL est déclarée de type String,

Code:

---

Set PL = Worksheets("Feuil2").Cells(NoLig2, COL)

---

fonctionne tout à fait bien. Si tu avais pris la peine de tester au lieu de t'obstiner, tu l'aurait vu par toi-même, d'ailleurs...

Citation:

---

Envoyé par Thautheme

fonctionne tout à fait bien. Si tu avais pris la peine de tester au lieu de t'obstiner, tu l'aurait vu par toi-même, d'ailleurs...

---

Je ne me suis en rien obstinée, j'ai d'ailleurs demandé si je me trompais, je ne pense pas que ce ton moralisateur soit justifié, surtout que là n'était pas mon problème. J'ai appris quelque chose et j'en te remercie, dommage en revanche pour la façon dont les choses sont expliquées.

Re,

Marrant, moi c'est :

Citation:

---

Envoyé par ifiii

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

---

ce ton, comment dire.... imbu de soi-même, qui m'avait déplu...

Vous auriez pu alors vous abstenir de répondre à partir de ce moment là. Il s'agissait d'une erreur de ma part dans l'utilisation de Cells. '' imbu de soi-même'' est un peu fort de la part de quelqu'un qui se permet une leçon de moralité pour une soi-disant obstination. C' est un forum d'entraide qui rassemble des gens qui connaissent bien le langage VBA et d'autres beaucoup moins. Vous faites sans doute partie de la première catégorie mais redescendez un peu, aider les moins bons ne signifie pas les rabaisser ! Si vous ne supportez pas les erreurs des débutants, ne leur répondez pas...

Re,

Hola ! Pas besoin de redescendre, je suis suffisamment bas et loin, très loin du niveau de beaucoup ici... Je prends juste mon pied à aider quand je peux et si j'ai continué à répondre c'est que tu as affirmé quelques chose d’erroné en plus de ta première phrase franchement pas sympathique alors que mon but était juste de te venir en aide. Mais c'est comme la pouille et la patre dans l'œil du voisin... Certains la voient, d'autres pas... Bonne Soirée.