Problème avec Range(Cells(),Cells()

Bonjour,

Je suis nouvelle sur ce forum débutante en vba, je m'excuse d'avance si je n'expose pas mon problème de la meilleure des façons.

J'ai une erreur sur ce code :

Code:

---

1 2 3 4 5

'cette ligne de code me renvoie une erreur 1004 : Set Maplage = Worksheets("Calendrier scolaire").Range(Cells(2, 2), Cells(Semaines_P1 + 1, 3))   'alors que cette ligne de code fonctionne : Set Maplage = Worksheets("Calendrier scolaire").Range("B2:C" & (Semaines_P1 + 1))

---

Ce code est dans un module. J'ai déclaré MaPlage as Range.
J'aimerais pouvoir utiliser l'écriture en Cells plutôt que celle avec le nom des colonnes en lettre car je souhaite piloter mes plages de cellules via des variables Integer. Pourriez-vous m'expliquer la différence entre mes 2 lignes de code qui génère une erreur sur la 1ère et pas sur la 2ème ligne ?

___________________________________________________________________________

J'ai réussi à contourner le problème en écrivant le code ainsi :

Code:

---

1 2 3 4 5 6 7 8

'cette partie de code fonctionne bien With ThisWorkbook.Worksheets("Calendrier scolaire") Set MaPlage = .Range(.Cells(2, 2), .Cells(Semaines_P1 + 1, 3)) End With MaPlage.Copy With Worksheets("Gestion des prets").Range("A4") .PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True End With

---

Je poursuis mon code avec un copier-coller et je change juste de feuille. Mais j'ai de nouveau une erreur 1004 sur la partie qui suit (et si je remplace les .Cells(),.Cells() par un range("A3:H3") ça fonctionne...

Code:

---

1 2 3 4 5

With ThisWorkbook.Worksheets("Gestion des prets") Set MaPlage = .Range(.Cells(3, 1), .Cells(3, Semaines_P1)) 'le programme s'arrête ici et me renvoie une erreur 404 alors que pour moi, c'est exactement la même écriture que les lignes du dessus qui fonctionnent. End With MaPlage.Merge MaPlage.Value = "Période 1"

---

En vous remerciant pour votre aide

Vérifiez le contenu de "Semaines_P1", avant l'instruction :

Code:

---

Set Maplage = Worksheets("Calendrier scolaire").Range(Cells(2, 2), Cells(Semaines_P1 + 1, 3))

---

via

Code:

---

1 2	MsgBox Semaines_P1 'ou bien Debug.Print Semaines_P1

---

Debug.Print Semaines_P1 ne me donne rien
MsgBox Semaines_P1 me donne 8
Dans les variables locales il est écrit

Citation:

---

Semaines_P1="8" Type Variant/String

---

(Semaines_P1 vient d'une InputBox)

Je viens d'essayer de faire :
Semaines_P1=Val(Semaines_P1) et là, ça fonctionne !
Ce que je ne m'explique pas, c'est pourquoi cela a marché après ma modifications sur la première sélection. Mais, je suis beaucoup trop novice pour comprendre.

En tout cas, merci beaucoup

En revanche, pourriez-vous m'expliquer pour ce code avec Cells() ne fonctionne pas (cela me renvoie une erreur 1004).
J'ai ôté toute variable pour éliminer ce problème :

Code:

---

1 2 3 4 5

'cette ligne de code me renvoie une erreur 1004 : Set Maplage = Worksheets("Calendrier scolaire").Range(Cells(2, 2), Cells(9, 3))   'alors que cette ligne de code fonctionne : Set Maplage = Worksheets("Calendrier scolaire").Range("B2:C9")

---

Ce code est dans un module. J'ai déclaré MaPlage as Range.
J'aimerais pouvoir utiliser l'écriture en Cells plutôt que celle avec le nom des colonnes en lettre car je souhaite piloter mes plages de cellules via des variables Integer. Pourriez-vous m'expliquer la différence entre mes 2 lignes de code qui génère une erreur sur la 1ère et pas sur la 2ème ligne ?

Merci pour votre aide

Bonjour

il faut connaitre l'objet auquel se réfère la propriété Cells me semble t-il!
C'est donc Worksheets(...).Cells.
Et à quoi se rapporte le WorkSheet, à un classeur me direz-vous, alors On peut écrire ThisWorkbook.Worksheets("ma feuille") et si on ouvre plusieurs classeurs, Workbooks("mon workbook.xls").Worksheets("ma feuille").Cells(ligne, colonne).

J'avais rajouté le Workbooks("...") mais ça ne change rien à l'erreur.
Ensuite, avec juste une cellule donc Workbooks("mon workbook.xls").Worksheets("ma feuille").Cells(ligne, colonne) cela fonctionne.
C'est quand je veux sélectionner une plage de cellules donc du type Workbooks("mon workbook.xls").Worksheets("ma feuille").Range(Cells(ligne, colonne),Cells(ligne,colonne)) que cela me renvoie une erreur.

Mais peut-être n'ai-je pas interprété correctement votre réponse.

Le fait que "Debug.Print Semaines_P1 ne donne rien" est source de problème.
Vous avez raison de prendre Val(InputBox) car cells(x,y) s'attend à ce que x soit un nombre dans votre cas.
Où en êtes-vous pour l'instant ?

Salut

Citation:

---

Envoyé par erunoyobgd

Code:

---

1 2 3 4 5 6 7 8

'cette partie de code fonctionne bien With ThisWorkbook.Worksheets("Calendrier scolaire") Set MaPlage = .Range(.Cells(2, 2), .Cells(Semaines_P1 + 1, 3)) End With MaPlage.Copy With Worksheets("Gestion des prets").Range("A4") .PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=False, Transpose:=True End With

---

---

Je vois que dans les exemple suivant, tu sembles avoir abandonné cette écriture, tu devrais persévérer dans ce sens, il faut absolument, comme le dit fraflt69, que les cells soit rattacher à la même feuille que le range global, sinon tu auras aussi une erreur.

Comment as-tu déclaré Semaines_P1 ? Quelle valeur est mise à l'intérieur et où est prise cette valeur?

++
Qwaz

Je vous remercie sincèrement de vos aides.
Je n'ai pas abandonné l'écriture :

Code:

---

1 2 3

With ThisWorkbook.Worksheets("Calendrier scolaire") Set MaPlage = .Range(.Cells(2, 2), .Cells(Semaines_P1 + 1, 3)) End With

---

Au contraire, je l'ai gardé et depuis que j'ai transformé ma variable Semaines_P1 en Integer (au lieu du String issu de l'InputBox) tout fonctionne.

J'essaie juste de comprendre mieux les choses et de savoir pourquoi, à l'initial, mon code ci-dessous ne fonctionnait pas :

Code:

---

1 2 3 4 5

'cette ligne de code me renvoie une erreur 1004 : Set Maplage = Worksheets("Calendrier scolaire").Range(Cells(2, 2), Cells(9, 3))   'alors que cette ligne de code fonctionne : Set Maplage = Worksheets("Calendrier scolaire").Range("B2:C9")

---

Car, pour moi comprendre me permet d'apprendre...


Quoiqu'il en soit et pour conclure, mon problème de base est résolu puisque j'ai trouvé grâce à vos réponses une solution à l'écriture de mon code. Merci beaucoup.

Bonjour,

Citation:

---

J'essaie juste de comprendre mieux les choses et de savoir pourquoi, à l'initial, mon code ci-dessous ne fonctionnait pas :
'cette ligne de code me renvoie une erreur 1004 :
Set Maplage = Worksheets("Calendrier scolaire").Range(Cells(2, 2), Cells(9, 3))

---

Parce-que Cells est un objet de type Range qui a comme parent la feuille nommée "Calendrier scolaire" et que vous ne l'avez pas spécifié
Alors que dans cette écriture la parentalité existe

Code:

---

1 2 3

With Worksheets("Calendrier scolaire") Set Maplage = .Range(.Cells(2, 2), .Cells(9, 3)) End With

---

Idéalement, il faudrait également préciser le parent de la feuille soit le classeur

A lire éventuellement Excel VBA - La parentalité d’un objet

Merci, je vais aller lire cette documentation.
Je pensais qu'en écrivant Worksheets("Calendrier scolaire").Range... je définissais justement le parent de l'objet Cells.
J'ai du chemin à parcourir !
Bonne journée

Bonjour,
C'est le point qui précède l'objet qui le relie à son parent.